如何使用VBScript从文本文件读取?

我期待看到一个简单的方法来使用VBScript读取和写入文本文件。

我认为这是写入文件的可接受的方法。

Dim f, Dim fso Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.CreateTextFile("C:\test.txt", True, True) f.WriteLine("Data to Add to file.") f.Close 

但是,我想知道如何以类似的方式从文件中读取。

Solutions Collecting From Web of "如何使用VBScript从文本文件读取?"

 Set file = fso.OpenTextFile("C:\test.txt", 1) content = file.ReadAll 

或逐行

 Set dict = CreateObject("Scripting.Dictionary") Set file = fso.OpenTextFile ("c:\test.txt", 1) row = 0 Do Until file.AtEndOfStream line = file.Readline dict.Add row, line row = row + 1 Loop file.Close 'Loop over it For Each line in dict.Items WScript.Echo line Next