如何使用Power Point VBA代码逐个读取文本文件中的行？

Question

此代码将从文本文件中读取一行:

set file = CreateObject("Scripting.FileSystemObject").OpenTextFile("c:\number.txt", 1)
text = file.ReadLine
MsgBox text

如何从同一个文件中一行接一行地重复读取？我猜,我应该在这里使用一个循环,对吧？我需要它在第一次迭代时从文件中读取第一行,在第二次迭代时读取第二行,在第三次迭代时读取第三行,依此类推直到所有行都被读取.我该怎么做？

重要的补充:我需要代码逐一操作每一行 - 而不是一次完成!

Answer 1

使用ReadAll()方法:

text = file.ReadAll

(可能有趣:FileSystemObject示例代码)

循环:

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, MyFile, FileName, TextLine

Set fso = CreateObject("Scripting.FileSystemObject")

FileName = "c:\testfile.txt"

Set MyFile = fso.OpenTextFile(FileName, ForReading)

'' Read from the file
Do While MyFile.AtEndOfStream <> True
    TextLine = MyFile.ReadLine

    '' Do stuff to TextLine

Loop
MyFile.Close