Les partenaires publicitaires:

Comment lire une ligne de texte délimité par des tabulations en VBA

Ê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.

Choses que vous devez

  • Microsoft Excel

Instructions

  1. 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."

  2. 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."

  3. Tapez la commande suivante pour créer une nouvelle procédure sous:

    Private Sub readTabDelimited ()

  4. 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

  5. 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




  6. 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

  7. 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

  8. 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.

» » » » Comment lire une ligne de texte délimité par des tabulations en VBA