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

Posted 2023-05-07

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

【英文标题】：How do I get vbscript to save variables into a text file and recall them when reopening the program?

【发布时间】：2013-04-04 03:00:01

【问题描述】：

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

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

和类似的数据。

【参考方案1】：

计划：

使用数组存储数据 使用 FileSystemObject 读取/写入 使用拆分/连接来（取消）字符串化数据

演示：

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

【讨论】：

这是朝着正确方向迈出的一步，我会继续努力，看看它会把我带到哪里，谢谢。