如何在腳本運行後將變量保存到腳本代碼

Question

我目前正在爲一些我用vbs創建的腳本製作一個愚蠢的UI（用戶界面）。對於腳本的開始，您可以選擇「設置」選項。它要求你的名字和東西。無論如何，我想要做的是有一個腳本，所以它保存輸入和下次運行程序時使用的名稱，如果他們不選擇安裝選項。這是它發生的部分。

Entry = Inputbox("Welcome To The Solus Project!" & vbNewLine & "" & vbNewLine & "Enter" & vbNewLine & "Setup" & vbNewLine & "Quit", "Solus Entry") 
If Entry = "Setup" Then 
InputName = Inputbox("Please Enter Your Name", "Name") 
ElseIf Entry = "Quit" Then 
Wscript.Quit 
ELseIf Entry = "Enter" Then 

所以一旦它保存名稱變量「輸入」我希望以後能夠使用它，如果腳本被重新運行，因此人們不必不斷地使用「設置」選項刷新他們的名字。在此先感謝，

-BTH

Answer 1

保存輸入的名稱後在本地文件，並從中讀取 - 如果可能的話 - 在腳本的開頭。簡單快速&骯髒的例子可能看起來像這樣：

Set objFso = CreateObject("Scripting.FileSystemObject") 
nameFilePath = "saved_name.txt" 
InputName = "" 

If (objFso.FileExists(nameFilePath)) Then 
    Set objFile = objFso.OpenTextFile(nameFilePath) 
    InputName = objFile.ReadLine 
    objFile.Close 
End If 

Entry = Inputbox("Welcome To The Solus Project!" & vbNewLine & "" & vbNewLine & "Enter" & vbNewLine & "Setup" & vbNewLine & "Quit", "Solus Entry") 
If Entry = "Setup" Then 
    InputName = Inputbox("Please Enter Your Name", "Name") 
    Set objFile = objFso.CreateTextFile(nameFilePath, True) 
    objFile.Write InputName 
    objFile.Close 
ElseIf Entry = "Quit" Then 
    Wscript.Quit 
ElseIf Entry = "Enter" Then 
    ' Some other stuff 
End If 

WScript.Echo InputName