Ako čítať rad text oddelený tabulátorom vo VBA

Byť schopný čítať riadok textu oddeleného tabulátory pomocou jazyka Visual Basic for Applications a analýzy jednotlivých slov môžete vytvoriť svoj ​​VBA aplikácie dynamickejšie . Často programátori potrebujú čítať tabulátorom súbory a zobraziť obsah týchto súborov . Vo VBA , použite metódu " OpenTextFile " otvorte textový súbor , ktorý obsahuje tabulátory dát . Hľadať každý riadok pre karty pomocou " vbTab " VBA konštantný . Tento proces je užitočný , ak potrebujete rýchlo nájsť karty v reťazci namiesto čítania každý znak v reťazci . Veci , ktoré budete potrebovať v Microsoft Excel
Zobraziť ďalšie inštrukcie Cestuj 1

Kliknite na tlačidlo Štart a zadajte " Poznámkový blok " v " Hľadať programy a súbory " textového poľa . Stlačte tlačidlo " Enter " pre spustenie programu Poznámkový blok . Zadajte "Toto , " stlačte tlačidlo " Tab , " typ " je " , stlačte tlačidlo " Tab " typu " , " stlačte tlačidlo " Tab " , " kartu " , zadajte stlačte tlačidlo " Tab " typ " oddelený " , stlačte tlačidlo " Tab " a typ " vetu . " Stlačte tlačidlo " Ctrl " a " S " uložiť súbor v " C : . \\ MyTextFile.txt "
2

Spustite program Microsoft Excel , kliknite na kartu " Vývojár " a kliknite na " Visual Basic " pre uvedenie na trh okná VB Editor . Kliknite na " Vložiť " menu a kliknite na " modul " pre pridanie nového kódu modulu . Kliknite na menu " Nástroje " a kliknite na " Referencie " . Zaškrtnite políčko vedľa " Microsoft Scripting Runtime " a kliknite na " OK " .
3

Zadajte nasledujúci vytvoriť nový čiastkové postup :

Private Sub readTabDelimited ( )
4

Pridajte nasledujúci kód deklarovať svoje premenné :

Dim oFSO ako nový FileSystemObject

Dim OFZ

Dim sText As String

Dim tmpArray ( 10 ) As String Dim

pos As Integer

Dim Xcntr As Integer
5

otvoriť a čítať textový súbor vytvorený v kroku 1 :

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

Do oFS.AtEndOfStream

sText = oFS.ReadLine

Loop
6

Hľadať na každú kartu v tabulátorom vety a pridajte každé slovo do poľa String :

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

robiť , keď ( pos < > 0 )

tmpArray ( Xcntr ) = Ľavá ( sText , pos - 1 )

sText = Right ( sText , Ľan ( sText ) - pos )

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

Xcntr = Xcntr + 1

( pos = 0 ) Then

tmpArray ( Xcntr ) = sText

End If

Loop
7

Zobraziť každé slovo v okne Immediate od String poľa :

Xcntr = 0

robiť , keď ( tmpArray ( Xcntr ) < > " " )

Debug.Print tmpArray ( Xcntr )

Xcntr = Xcntr + 1

Loop
8

Ukončenie postupu zadaním " End Sub " ako posledný riadok kódu VBA . Stlačte tlačidlo " Ctrl " a " G " sa zobrazí okno " bezprostrednej " a stlačte " F5 " spustiť procedúru .

• Predchádzajúca strana: Ako pridať obrázok v programe Word VB6 
• Ďalšia strana: Ako používať Nahradiť v VB.NET