VBSciptでテキスト出力

いつもありがとうございます。

現在inputboxで入力した内容をテキストファイルを出力するVBScriptを作成しています。
出力するテキストの内容は以下のようなイメージです。

●test.txt
---------------------
YYYYMMDD
<種別>　　　
項目A=111
項目B=222
項目C=333
---------------------

＜種別＞は固定文字で、inpuboxを最大３度表示して数字を入力し、入力された数字を
"項目A～C"として出力してくというものをイメージしています。

１回目の入力：　"111"を入力→　"項目A=111"を出力
２回目の入力：　"222"を入力→　"項目B＝222"を出力・・・

勉強を兼ねてWebで調べながら作成しているのですが、自身で作るとどうしても
実現できません。

●test.txt
------------------
YYYYMMDD　　　　　　←＜種別＞の固定文字がない
111　　　　　　　　　　←項目A=がない
222　　　　　　　　　　←項目B＝がない
------------------　　　　←同じ処理（Inputboxの処理）を都度記載。。

基礎から学習する必要があるのは承知の上で、みなさんのアドバイスを頂きたく
一部例を教えて頂けるとうれしいです。


どうぞ宜しくお願い致します。

No.2 ベストアンサー 回答者： GOMΛFU 回答日時： 2018/06/28 17:49

変数に文字を入れるだけの処理にして最後に一括して書き込んでみては。

No.1 回答者： GOMΛFU 回答日時： 2018/06/28 14:58

スクリプトがどうなっているかわからないと答えようがないと思うが。

この回答へのお礼

ありがとうございます。
とても長くなってしまいますので、一部抜粋して記載させていただきます。
----------------------------------------------------------------------------
Set fso = CreateObject("Scripting.FileSystemObject")
filepath = "c:\test.txt"

　　nyuryoku1 = Inputbox("入力１")
'キャンセル時
If IsEmpty(nyuryoku1) = true Then
Call MsgBox("キャンセル")
Else
'未入力時
If nyuryoku1 = "" Then
Call MsgBox("未入力")
Else
Set txtfile = objFso.CreateTextFile("filepath")
' 1行目の入力処理
txtfile.WriteLine("<種別>" & vbCrlf & "項目A=" & nyuryoku1)
End If

nyuryoku2 = Inputbox("2行目入力")
If IsEmpty(nyuryoku2) = true Then
Call MsgBox("キャンセル")
Else
If nyuryoku2 = "" Then
Call MsgBox("未入力")
Else
txtfile.Write("項目B=" & nyuryoku2)
End If
End If
・
・
・
nyuryoku10 =
--------------------------------------------------------------------
このようなイメージで、inputboxごとに同じ処理を何度も書いています。。
実際は10回（＝10行分）くらいまで想定しており、途中でキャンセルすることで
処理を完了できるようにもしたいです。
勉強されている方は、どのような内容で作成されるのか参考にさせて頂けるとたすかります。

よろしくお願い致します。

お礼日時：2018/06/28 17:15