读入全部 TextStream 文件并返回结果字符串。
object.ReadAll
object 应为 TextStream 对象的名称。
对于大文件,使用 ReadAll 方法浪费内存资源。应该使用其他技术输入文件,例如按行读文件。
Function ReadAllTextFileConst ForReading = 1, ForWriting = 2Dim fso, fSet fso = CreateObject("Scripting.FileSystemObject")Set f = fso.OpenTextFile("c: estfile.txt", ForWriting, True)f.Write "
世界你好!"
Set f = fso.OpenTextFile("c: estfile.txt", ForReading)
ReadAllTextFile =f.ReadAll
End Function