Être capable de lire une ligne de texte délimité par des tabulations l'aide de Visual Basic pour Applications et analyser chacun des mots peut rendre votre application VBA plus dynamique. Souvent, les programmeurs ont besoin de lire des fichiers délimités par des tabulations et afficher le contenu de ces fichiers. Dans VBA, utilisez le "OpenTextFile" méthode pour ouvrir un fichier texte qui contient des données délimités par des tabulations. Recherchez chaque ligne pour les onglets en utilisant le "vbTab" Constante VBA. Ce processus est utile lorsque vous avez besoin de trouver rapidement des tabulations dans une chaîne au lieu de lire chaque caractère de la chaîne.
Cliquez sur le bouton Démarrer de Windows et tapez "Bloc-notes" dans le "Rechercher les programmes et fichiers" zone de texte. Appuyez "Entrer" pour lancer le Bloc-notes. Type "Ce," presse "Tab," type "est," presse "Tab," type "un," presse "Tab," type "onglet," presse "Tab," type "délimité," presse "Tab" et le type "phrase." Appuyez "Ctrl" et "S" pour enregistrer le fichier dans "C: MyTextFile.txt."
Lancez Microsoft Excel, cliquez sur le "Développeur" onglet et faites un clic "Visual Basic" pour lancer la fenêtre VB Editor. Clique le "Insérer" Menu et cliquez sur "Module" pour ajouter un nouveau module de code. Clique le "Outils" Menu et cliquez sur "Références." Cochez la case à côté de "Microsoft Scripting Runtime" et cliquez sur "D'ACCORD."
Tapez la commande suivante pour créer une nouvelle procédure sous:
Private Sub readTabDelimited ()
Ajoutez le code suivant pour déclarer vos variables:
Dim oFSO As New FileSystemObject
OFS Dim
Dim sText As String
Dim tmpArray (10) As String
Pos Dim As Integer
Dim Xcntr As Integer
Ouvrir et lire le fichier texte créé à l'étape 1:
Réglez oFS = oFSO.OpenTextFile ("C: MyTextFile.txt")
Faire jusqu'à oFS.AtEndOfStream
sText = oFS.ReadLine
Boucle
Trouver chaque onglet dans l'onglet délimité phrase et ajouter chaque mot au tableau cordes:
pos = InStr (1, sText, vbTab, vbTextCompare)
Do While (pos lt; gt; 0)
tmpArray (Xcntr) = Gauche (sText, pos - 1)sText = Droite (sText, Len (sText) - pos)
pos = InStr (1, sText, vbTab, vbTextCompare)
Xcntr Xcntr = + 1
Si (pos = 0) Ensuite,
tmpArray (Xcntr) = sText
Fin si
Boucle
Afficher chaque mot à travers la fenêtre immédiate du tableau de String:
Xcntr = 0
Do While (tmpArray (Xcntr) lt; gt; "")
Debug.Print tmpArray (Xcntr)Xcntr Xcntr = + 1
Boucle
Terminer la procédure en tapant "End Sub" comme la dernière ligne de code VBA. Appuyez "Ctrl" et "g" pour afficher la "Immédiatement" fenêtre et appuyez sur "F5" pour exécuter la procédure.