|
Ê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 la méthode " OpenTextFile " pour ouvrir un fichier texte qui contient des données délimités par des tabulations . Rechercher chaque ligne pour les onglets en utilisant le " vbTab " constante VBA. Ce processus est utile lorsque vous avez besoin de trouver rapidement tabulations dans une chaîne au lieu de lire chaque caractère de la chaîne . Choses que vous devez
Microsoft Excel
Afficher plus Instructions
1 Cliquez sur le bouton Démarrer de Windows et tapez " Notepad " dans les " Rechercher les programmes et fichiers " de la boîte de texte. Appuyez sur "Entrée " pour lancer le Bloc-notes . Tapez «Ce », « Tab », appuyez sur le type " est ", " Tab ", appuyez sur " onglet ," type " Tab ", appuyez sur " délimité ", tapez sur la touche " Tab " type " A", " Tab ", appuyez sur et «peine ». type Appuyez sur "Ctrl" et "S" pour enregistrer le fichier dans " C : \\. MyTextFile.txt "
2 Lancez Microsoft Excel, cliquez sur l'onglet "Developer " et cliquez sur " Visual Basic " pour lancer la fenêtre de l'éditeur VB . Cliquez sur le menu "Insertion " et cliquez sur "Module" pour ajouter un nouveau module de code. Cliquez sur le menu «Outils» et cliquez sur « Références ». Cochez la case à côté de " Microsoft Scripting Runtime " et cliquez sur
3 Tapez la suivante pour créer un nouveau sous-procédure "OK". :
ReadTabDelimited Private Sub ()
4 Ajoutez le code suivant pour déclarer vos variables :
Dim FOSO As New FileSystemObject
Dim oFS
Dim sText As String < br > Dim tmpArray (10) As String
Dim pos As Integer
Xcntr As Integer
5 ouvrir et lire le fichier texte créé à l'étape 1:
Set oFS = oFSO.OpenTextFile ("C: \\ MyTextFile.txt " )
Do Until oFS.AtEndOfStream
sText = oFS.ReadLine
Boucle
6 Retrouvez chaque onglet dans la phrase délimité par des tabulations et ajouter chaque mot au tableau String :
pos = InStr (1, sText , vbTab , vbTextCompare ) < br > Do While (pos <> 0)
tmpArray ( Xcntr ) = Gauche ( sText , pos - 1)
sText = Droite ( sText , Len ( sText ) - pos)
pos = InStr (1, sText , vbTab , vbTextCompare )
Xcntr = Xcntr + 1
( pos = 0) alors
tmpArray ( Xcntr ) = sText
End If
boucle
7 afficher chaque mot dans la fenêtre Exécution du tableau String :
Xcntr = 0
Do While ( tmpArray ( Xcntr ) <> "" )
Debug.Print tmpArray ( Xcntr )
Xcntr = Xcntr + 1
Boucle
8 Fin de la procédure en tapant "End Sub " que la dernière ligne de code VBA. Appuyez sur "Ctrl" et "G" pour afficher la fenêtre " immédiate " et appuyez sur "F5" pour exécuter la procédure .
|
