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

List 如何让vbscript将变量保存到文本文件中,并在重新打开程序时调用它们?,list,text,vbscript,save,List,Text,Vbscript,Save,我对制作程序还很在行,我更喜欢把代码打出来。我正在尝试创建一个“保存”文件,我希望有人能为我指明正确的方向,告诉我如何在“用户名”下保存变量列表,并在关闭和重新打开程序后(根据需要)调用它们。最好使用单独的.txt文件。例如: title: username24.txt username24 yes no 17 blue 555-624-9652 [blank] first last 和类似数据。计划: 使用数组存储数据 使用FileSystemObject进行读/写操作 使用拆分/联接(取消

我对制作程序还很在行,我更喜欢把代码打出来。我正在尝试创建一个“保存”文件,我希望有人能为我指明正确的方向,告诉我如何在“用户名”下保存变量列表,并在关闭和重新打开程序后(根据需要)调用它们。最好使用单独的.txt文件。例如:

title: username24.txt
username24
yes
no
17
blue
555-624-9652
[blank]
first last
和类似数据。

计划:

  • 使用数组存储数据
  • 使用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