Å kunne lese en linje av tabulatorbegrenset tekst ved hjelp av Visual Basic for Applications og analysering hvert av ordene kan gjøre VBA -programmet mer dynamisk . Ofte programmerere trenger å lese tabulatorseparerte filer og vise innholdet i disse filene. I VBA , bruke " OpenTextfile "-metoden for å åpne en tekstfil som inneholder tabulatorseparerte data . Søk hver linje for faner med " vbTab " VBA konstant. Denne prosessen er nyttig når du trenger å raskt finne faner i en streng i stedet for å lese hvert tegn i strengen . Du trenger
Microsoft Excel
Vis flere instruksjoner
en

Klikk på Windows Start-knappen og skriv " Notepad " i " Søk programmer og filer " tekstboksen . Trykk "Enter " for å starte Notisblokk. Skriver " Dette, " trykk " Tab , " type "er ", trykker " Tab , " type " en , " trykk " Tab , " type "tab ", trykker " Tab , " type " avgrenset ", trykker "Tab" og type " setning ". Trykk "Ctrl " og " S " for å lagre filen i "C : . \\ MyTextFile.txt "
2

Launch Microsoft Excel , klikker du på " Developer " og klikk " Visual Basic " for å starte VB Editor vinduet. Klikk på " Insert"-menyen og klikk " Module " for å legge til en ny kode modul . Klikk på " Verktøy"-menyen og klikk " Referanser . " Kryss av i boksen ved siden av " Microsoft Scripting Runtime " og klikk
3

Skriv inn følgende for å opprette en ny sub prosedyre " OK . " : En

Private Sub readTabDelimited ( )
4

Legg til følgende kode for å erklære variabler : en

Dim oFSO som ny FileSystemObject

Dim OFS

Dim sText As String

Dim tmpArray ( 10 ) As String

Dim pos As Integer

Dim Xcntr As Integer
5

Åpne og lese teksten filen er opprettet i trinn 1 : en

Set OFS = oFSO.OpenTextFile ( "C : \\ myTextFile.txt ")

inntil oFS.AtEndOfStream

sText = oFS.ReadLine
< p> Loop
6

Finn hver kategori i kategorien avgrenset setning og legge hvert ord til String matrise:

pos = InStr ( 1 , sText , vbTab , vbTextCompare )

Mens ( pos < > 0 )

tmpArray ( Xcntr ) = Venstre ( sText , pos - 1 )

sText = Høyre ( sText , Len ( sText ) - pos)

pos = InStr ( 1 , sText , vbTab , vbTextCompare )

Xcntr = Xcntr + 1
p Hvis ( pos = 0) Then

tmpArray ( Xcntr ) = sText

End If

Loop
7

Vis hvert ord gjennom Umiddelbar vinduet fra String matrise:

Xcntr = 0

Mens ( tmpArray ( Xcntr ) < > "")

Debug.Print tmpArray ( Xcntr )

Xcntr = Xcntr + 1
< p> Loop
8

End prosedyren ved å skrive "End Sub " som den siste linjen av VBA -kode. Trykk "Ctrl " og " G " for å vise "Direkte "-vinduet og trykk " F5 " for å kjøre prosedyren.