Vb6: Trennung Von Text (Tab Getrennt)

Ich habe eine Datei mit mehreren tausend Zeilen und mehrere Spalten, die durch Tabulatoren voneinander getrennt, Was ich gerne machen würde, ist die Schleife Durchlaufen, jeden einzeln, löschen Sie die Spalten in ein array, so dass ich legen Sie Sie in einer anderen Anwendung einzeln, dann bewegen Sie auf die nächste Zeile. Leider bekam ich ungefähr so weit wie dieser:

Open mytextfile.txt For Input As #FileHandle
 Do While Not EOF(FileHandle)
 Line Input #FileHandle, IndividualLine
 StringToBreakup = IndividualLine
Loop

Also wie würde ich mich über brechen einzelne Zeile in ein array

InformationsquelleAutor | 2008-11-15

  1. 6
    Dim str() as String

Open mytextfile.txt For Input As #FileHandle
    Do While Not EOF(FileHandle)
    Line Input #FileHandle, IndividualLine
    str = Split(IndividualLine, vbTab)
    Debug.Print str(0)  'First array element
Loop

    Zu klären: ich würde es vermeiden, die Verwendung von Varianten und die Nutzung vbTab.

    InformationsquelleAutor

  2. 0

    Verwenden Sie den split-Befehl

    Dim StringArray as Variant

Open mytextfile.txt For Input As #FileHandle
 Do While Not EOF(FileHandle)
 Line Input #FileHandle, IndividualLine
 StringToBreakup = IndividualLine

 StringArray = Split(StringToBreakup, CHR(9)) 

 Process array here...

Loop

    InformationsquelleAutor DJ.

Schreibe einen Kommentar