Come leggere una riga di testo delimitato da tabulazioni in VBA

March 7

Come leggere una riga di testo delimitato da tabulazioni in VBA


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

istruzione

1 Fare clic sul pulsante Start di Windows e digitare "Blocco note" nella casella di testo "Cerca programmi e file". Premere il tasto "Enter" per lanciare il blocco note. Tipo "Questo," premere "Tab," tipo "è," premere "Tab", tipo "A", premere "Tab," tipo "scheda", premere "Tab," tipo "delimitato", premere "Tab" e tipo "sentenza". Premere il tasto "Ctrl" e "S" per salvare il file in "C: \ MyTextFile.txt."

2 Avviare Microsoft Excel, fare clic sulla scheda "Sviluppatore" e fare clic su "Visual Basic" per avviare la finestra di VB Editor. Fare clic sul menu "Inserisci" e fare clic su "modulo" per aggiungere un nuovo modulo di codice. Fai clic sul menu "Strumenti" e fare clic su "Riferimenti". Seleziona la casella accanto a "Microsoft Scripting Runtime" e fare clic su "OK".

3 Digitare la seguente per creare una nuova procedura sotto:

Private Sub readTabDelimited ()

4 Aggiungere il seguente codice per dichiarare le variabili:

Dim oFSO come nuovo FileSystemObject

oFS Dim

Dim sTesto As String

Dim tmpArray (10) As String

pos fioco come Integer

Dim Xcntr As Integer

5 Aprire e leggere il file di testo creato nel passaggio 1:

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

Fare Fino oFS.AtEndOfStream

sText = oFS.ReadLine

Ciclo continuo

6 Trova ogni scheda nella scheda delimitato frase e aggiungere ogni parola alla matrice String:

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

Do While (pos <> 0)

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

sTesto = Destra (sTesto, Len (sTesto) - pos)

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

Xcntr = Xcntr + 1

Se (pos = 0) Poi

tmpArray (Xcntr) = sTesto

Finisci se

Ciclo continuo

7 Visualizzare ogni parola attraverso la finestra immediata dalla matrice String:

Xcntr = 0

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

Debug.Print tmpArray(Xcntr)

Xcntr = Xcntr + 1

Ciclo continuo

8 Terminare la procedura digitando "End Sub", come la riga finale del codice VBA. Premere il tasto "Ctrl" e "G" per visualizzare la finestra "immediata" e premere il tasto "F5" per eseguire la procedura.


Articoli Correlati