如何让vbscript将变量保存到文本文件中，并在重新打开程序时调用它们？

Question

我在制作程序方面还很新鲜，我更愿意输入我的代码。我试图创建一个“保存”文件，我希望有人指出我正确的方向，以至于如何在“用户名”下保存一个变量列表，并在关闭后再调用它们（根据需要）重新开始程序。单独的.txt文件将是首选。例如：

title: username24.txt 
username24 
yes 
no 
17 
blue 
555-624-9652 
[blank] 
first last 

和类似数据。

Answer 1

安排：

1. 使用阵列来存储数据
2. 使用FileSystemObject的读/写
3. 使用分流/加入到（未）字符串化数据

演示：

Option Explicit 

Const csFiNa = "username24.txt" 
Const cnName = 0 
Const cnTStamp = 1 
Const cnBlank = 2 
Const cnYesNo = 3 

Dim oFS : Set oFS = CreateObject("Scripting.FileSystemObject") 

Dim aData : aData = Array("username24", Now, "", True) 
If oFS.FileExists(csFiNa) Then aData = Split(oFS.OpenTextFile(csFiNa).ReadAll(), vbCrLf) 
aData(cnTStamp) = Now 
aData(cnYesNo) = Not aData(cnYesNo) 
WScript.Echo Join(aData, ", ") 
oFS.CreateTextFile(csFiNa, True).Write Join(aData, vbCrLf) 

运行：

cscript 00.vbs 
username24, 4/4/2013 7:50:14 AM, , False 

type username24.txt 
username24 
4/4/2013 7:50:14 AM 

False 

cscript 00.vbs 
username24, 4/4/2013 7:50:47 AM, , True