Vb6 Выполнение операции на основе каждой строки текстового файла

Question

У меня есть текстовый файл с серией команд, каждая из которых находится на отдельной строке, мне нужно построчно просматривать текстовый файл и для каждой строки выполнять набор операций. Как бы я перебрал строку за строкой?

Пример:

Текстовый файл содержит:
johndoe.log
Яблоки и орган.log
monkies and zebras.log

скрипт будет захватывать строку 1 (johndoe.log)
создайте новый текстовый файл с именем johndoe.log
перейти ко второй строке
создайте новый текстовый файл с именем apple и organes.log
и т. д. ... пока текстовый файл не будет заполнен

Я знаю, как сделать все, кроме цикла, который выполняет операцию с каждой строкой текстового файла: (

и я знаю его апельсины, опечатал и пошел с ним.

Answer 1

В классическом VB6:

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

Или вы можете посмотреть на FileSystemObject