Vb6: Séparer le texte délimité par tabulation

Question

J'ai un fichier avec plusieurs milliers de lignes et plusieurs colonnes séparées par des tabulations Ce que je voudrais faire est de parcourir chacune individuellement, Déposez les colonnes dans un tableau afin que je puisse les placer dans un autre application individuellement, puis passez à la ligne suivante. Malheureusement, je suis aussi loin que cela:

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

Alors, comment pourrais-je aller à briser la ligne individuelle vers le haut dans un tableau

Answer 1

Utilisez la commande Fractionner

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 

Answer 2

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 

Pour clarifier: J'éviterais l'utilisation de Variants et utiliserais vbTab.