Essere in grado di leggere una riga di testo delimitato da tabulazioni utilizzando Visual Basic , Applications Edition e l'analisi di ciascuna delle parole può rendere la vostra applicazione VBA più dinamico . Spesso i programmatori hanno bisogno di leggere i file delimitati da tabulazioni e di visualizzare il contenuto di quei file . In VBA , utilizzare il metodo " OpenTextFile " per aprire un file di testo contenente i dati delimitati da tabulazioni . Cerca ogni linea di schede utilizzando la costante di VBA " vbTab " . Questo processo è utile quando è necessario trovare rapidamente le schede in una stringa invece di leggere ogni carattere della stringa . Cose che ti serviranno
Microsoft Excel
Show More Istruzioni

1 Fare clic sul pulsante Start di Windows e digitare " Blocco note " nella sezione " Cerca programmi e file " casella di testo. Premere il tasto " Enter" per avviare Blocco note. Digitare " Questa ", " Tab ", premere il tasto di tipo " è", " Tab ", premere il tasto " tab ", tipo " Tab ", premere " delimitato ", tipo il tasto " Tab " tipo " a", " Tab ", premere e tipo " frase ". Premere il tasto " Ctrl " e "S" per salvare il file in " C : \\. MyTextFile.txt "
2

lancio di Microsoft Excel , fare clic sulla scheda "Sviluppatore " e cliccare su " Visual Basic " per lanciare finestra Editor VB . Fai clic sul menu "Inserisci" e fare clic su "Modulo " per aggiungere un nuovo modulo di codice . Fai clic sul menu "Strumenti " e clicca su "Riferimenti ". Seleziona la casella accanto a "Microsoft Scripting Runtime" e fare clic su
3

Digitare quanto segue per creare una nuova procedura sub "OK ". :

ReadTabDelimited Private Sub ( )
4

Aggiungere il seguente codice per dichiarare le variabili :

Dim oFSO As New FileSystemObject

Dim oFS

Dim sText As String < br >

Dim tmpArray ( 10) As String

Dim pos As Integer Dim

Xcntr As Integer
5

aprire e leggere il file di testo creato nel passaggio 1 :

oFS = oFSO.OpenTextFile ( " C : \\ MyTextFile.txt " ) per

Do Until oFS.AtEndOfStream

sText = oFS.ReadLine
< p >
loop Pagina 6

Trova ogni scheda nella frase delimitato da tabulazioni e aggiungere ogni parola alla matrice String :
Ruolo

= InStr ( 1 , sText , vbTab , vbTextCompare ) < br >

Do While (pos < > 0 ) per

tmpArray ( Xcntr ) = Sinistra ( sText , pos - 1 ) per

sText = Right ( sText , Len ( sText ) - Ruolo ) per

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

Xcntr = Xcntr + 1

( pos = 0) allora

tmpArray ( Xcntr ) = sText

End If loop

7

visualizzare ogni parola attraverso la finestra immediata dalla matrice String :

Xcntr = 0

Do While ( tmpArray ( Xcntr ) < > " " ) per

Debug.Print tmpArray ( Xcntr ) per

Xcntr = Xcntr + 1
< p >
loop Pagina 8

Fine della procedura digitando "End Sub ", come l' ultima riga di codice VBA . Premere il tasto " Ctrl " e "G" per visualizzare la finestra " Immediata " e premere " F5 " per eseguire la procedura .