file-io - 如何使用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 Sample Code)

带循环:

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