存储输入框值并将其用作默认值

Question

我发现这个代码 - 我相信在这个网站上。它通过将输入框值存储到文本文件来完成我需要的第一部分。我尝试做的下一部分是当我重新打开vbs文件时，输入框中填充了相同的文本文件值 - 因此实际上输入框中输入的最后一个值将成为输入框的默认值

Dim objFSO 'File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objTS 'Text Stream Object
Const ForWriting = 2
Set objTS = objFSO.OpenTextFile("C:\Users\UserName\Desktop\TextFile.txt", ForWriting, True)
objTS.Write(InputBox("Here it is"))
objTS.Close()

Answer 1

只需将您的Const换成阅读并调用ReadLine方法，然后将其传递给InputBox

Dim objFSO 'File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objTS 'Text Stream Object
Const ForReading = 1
Const ForWriting = 2
Set objTS = objFSO.OpenTextFile("C:\Users\UserName\Desktop\TextFile.txt", ForReading)
strContent = objTS.ReadLine
InputBox(strContent)
objTS.Close()