使用vbscript代码从文本文件中读取和写入值

pet*_*ter 7 vbscript

我有一个名为'data'的变量我需要写入一个名为"listfile.txt"的文本文件.你能告诉我vbscript代码吗?我需要vbscript代码从textfile"listfile.txt"读取值也

Tes*_*101 32

来写

Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\listfile.txt",2,true)
objFileToWrite.WriteLine(data)
objFileToWrite.Close
Set objFileToWrite = Nothing
Run Code Online (Sandbox Code Playgroud)

OpenTextFile参数:

<filename>, IOMode (1=Read,2=write,8=Append), Create (true,false), Format (-2=System Default,-1=Unicode,0=ASCII)
Run Code Online (Sandbox Code Playgroud)

阅读整个文件

Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\listfile.txt",1)
strFileText = objFileToRead.ReadAll()
objFileToRead.Close
Set objFileToRead = Nothing
Run Code Online (Sandbox Code Playgroud)

逐行阅读

Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\listfile.txt",1)
Dim strLine
do while not objFileToRead.AtEndOfStream
     strLine = objFileToRead.ReadLine()
     'Do something with the line
loop
objFileToRead.Close
Set objFileToRead = Nothing
Run Code Online (Sandbox Code Playgroud)