Vb6 Exécution d'une opération basée sur chaque ligne d'un fichier texte

Question

J'ai un fichier texte avec une série de commandes, chacune étant sur une ligne différente ce que je dois faire est de parcourir le fichier texte ligne par ligne et pour chaque ligne effectuer un ensemble d'opérations. Comment pourrais-je boucler ligne par ligne?

Exemple:

fichier texte contient:
johndoe.log
Pommes et organes.log
et monkies zebras.log

scénario

saisirait la ligne 1 (johndoe.log)
créer un nouveau fichier texte nommé johndoe.log
aller à la ligne deux
créer un nouveau fichier texte nommé pommes et organes.log
etc ... jusqu'à ce que le fichier texte est complet

Je sais comment faire tout, sauf la boucle qui effectue une opération sur chaque ligne du fichier texte :(

et je sais que ses oranges, typoed et est allé avec ça.

Answer 1

Dans VB6 classique:

Dim LineData as String 
Dim FileHandle as Integer 

FileHandle = FreeFile 
Open "C:\Test.txt" For Input As #FileHandle 
Do While Not EOF(FileHandle) 
    Line Input #FileHandle, LineData 
    ' Do whatever with LineData 
Loop 
Close #FileHandle 

Ou vous pouvez consulter le FileSystemObject