スクリプトを実行した後に変数をスクリプトコードに保存する方法

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