Question

我希望看到一种使用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

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

Answer 1

首先使用方法OpenTextFile，然后使用...

使用方法ReadAll：

立即读取文件

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

或逐行使用方法ReadLine：

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

Answer 2

Dim obj : Set obj = CreateObject("Scripting.FileSystemObject")
Dim outFile : Set outFile = obj.CreateTextFile("in.txt")
Dim inFile: Set inFile = obj.OpenTextFile("out.txt")

' Read file
Dim strRetVal : strRetVal = inFile.ReadAll
inFile.Close

' Write file
outFile.write (strRetVal)
outFile.Close

如何使用VBScript从文本文件中读取？

2 个答案: