txtファイルから変数にコンテンツをダウンロードする

Question

VBScriptのアクションとしてボタンを押したときに動作するカウンタを作成しました。

私のコード：

Licznik_ID = Licznik_ID + 1 

    Dim Stuff, myFSO, WriteStuff, dateStamp 

    Stuff = "Whatever you want written" 

    Set myFSO = CreateObject("Scripting.FileSystemObject") 
    Set WriteStuff = myFSO.OpenTextFile("c:\tmp\yourtextfile.txt", 2, True) 
    WriteStuff.WriteLine(Licznik_ID) 
    WriteStuff.Close 
    SET WriteStuff = NOTHING 
    SET myFSO = NOTHING 

矢印 "Licznik_ID" という名前のカウンタ変数。

それがファイルに書き込まれ、 "C：\ TMP \ yourtextfile.txt" そして、それはうまく動作します。 番号が1つずつ増加し、txtファイルに置き換えられて保存されます。 「：\ TMP \ yourtextfile.txt C」ファイルで保存されたデータをダウンロードする方法今

ファイルには、数1が含まれており、txtファイルの増加はそれほどの数2を表示され、...

あなたがNiceFormを起動するか、ボタンにtxtファイルの内容を変数にロードしたときにそのような方法で使用するために、変数に戻ってきますか？

Answer 1

Set myFSO = CreateObject("Scripting.FileSystemObject") 
Licznik_ID = myFSO.OpenTextFile("C:\tmp\yourtextfile.txt").ReadAll 
Licznik_ID = Licznik_ID + 1 
myFSO.OpenTextFile("C:\tmp\yourtextfile.txt",2,True).Write(Licznik_ID) 

FSOは時々ファイルモードを行う方法です。

編集：あなたはそれが存在しない場合、これはエラーなしでファイルを作成することができこれに伴い2を交換したい場合は、次のファイルが存在しない場合は

If myFSO.FileExists("C:\tmp\yourtextfile.txt") Then 
    Licznik_ID = myFSO.OpenTextFile("C:\tmp\yourtextfile.txt").ReadAll 
End If 

、Licznik_IDになりますEmpty 。 vbscriptのEmpty + 1 = 1。