algorithm - Vb6 根据文本文件的每一行执行操作

Question

我有一个包含一系列命令的文本文件，每个命令都在不同的行上，我需要做的是逐行浏览文本文件，并为每一行执行一组操作。我将如何逐行循环？

例子:

文本文件包含:
johndoe.log
苹果和器官.log
monkies 和 zebras.log

脚本会抓取第 1 行(johndoe.log)
创建一个名为 johndoe.log 的新文本文件
去第二行
创建一个名为 apples 和 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