VBScrit テキストの内容をinputboxに表示

Question

はじめて利用させていただきます。

早速ですが現在、VBScriptを勉強をかねて作成しております。
下記のような複数行からなるテキストの内容を、行ごとにinputboxに表示し
更新するような処理を実現したいのですが、ご支援頂けませんでしょうか。

■テキスト

タイトル１=A
タイトル２＝B
タイトル３＝C
タイトル４＝D
・
・
タイトル１０＝K

知識が乏しく、下記（一部抜粋）ではどうしてもテキストの内容が１度のiputboxで表示されしまいます。

Set objFile = objFso.OpenTextFile("c:\test.txt")
txtvalue = objFile.ReadAll
afile = Inputbox(txtvalue)

Set iniFile = objFso.CreateTextFile("c:\text.txt")
iniFile.WriteLine(afile)

行ごとにipuntboxを行数分表示し、かつ上記A・B・Cだけを表示できるのが理想なのですが、ご教授頂けませんでしょうか。
※タイトルの文字数は統一

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

Answer 1

1行ずつ読み込んでInputboxに表示するのであればこんな感じでできるかと思います。

Do While objFile.AtEndOfStream <> True
	txtvalue = objFile.ReadLine
	afile = Inputbox(txtvalue)
Loop

最初の3行のみということなら3回繰り返したらループを抜けるなど条件を適宜追加してください。

Comments

[skygo]

早々にご回答ありがとうございます！

こちらの質問の仕方が悪かったのですが、テキストに記述されている行数ごとにinputboxを表示して
１行ごと更新するというのが目的となります。
こちらの例で言いますと、タイトル１=Aを初期値としてinputboxを表示、タイトル２=Bを初期値としてinputboxを表示・・・といったように、１行ずつ更新したい次第です。

伝わりにくくて申し訳ございません。
引き続き、ご支援頂けますと幸いです。

[ttyp03]

ん？一行ずつ処理されないですか？
それとも書き込みの処理がないことを指摘されています？
それとも３つのinputboxを同時に表示したいのでしょうか？
回答したのは「テキストの内容が１度のiputboxで表示されしまいます」の修正方法です。

[skygo]

何度も申し訳ございません。
ご教示頂いたコードで試したところ、inputboxのコメント欄（テキストボックスではなく）にテキストの内容が一覧で表示された為、間違った伝わり方をしてしまったのかと思いました。
仰せのとおり、"テキストの内容を行数分inputboxを分けて表示する"というのが目的なので
もう一度見直してみて、試してみます！

[ttyp03]

動かしてみてわかりました。
テキストボックスに値が入らないということですね。
次のようにしてみてください。
afile = Inputbox("修正してください", "タイトル", txtvalue)
メッセージとタイトルはお好みで修正してください。

[skygo]

度々申し訳ございません。
ご教示頂いた内容でできました！上記については大変失礼しました。。
重ねてとなり恐縮ですが、inputboxで入力した内容で行ごとに更新する場合、どのようなコードになりますか？
この状態では、最後の入力で更新されますか？
教えを乞うばかりで申し訳ないです。。

[ttyp03]

テキストファイルの更新処理は非常に面倒です。
一番簡単なのは、別の作業用ファイルに吐き出していって、最後に元のファイルを削除、作業用のファイルをリネームでしょうか。
まったく同じ文字数で書き換えるのであればファイルポインタを戻して上書きという手が使えますが、FileSystemObjectではファイルポインタの操作ができないようなので、最初の方法が無難です。

[skygo]

なるほど。ご教示頂いた代替案で作れるかやってみます。
前段で教えて頂いたループ処理なのですが、テキストファイルの２行目から開始するという指定は可能でしょうか？

[ttyp03]

SkipLineというメソッドで飛ばせそうです。
Set objFile = objFso.OpenTextFile("c:\test.txt")
Call objFso.SkipLine
マニュアルはここです。
https://msdn.microsoft.com/ja-jp/library/cc428058.aspx
FileSystemObjectが持つメソッドの一覧は以下にあります。
https://msdn.microsoft.com/ja-jp/library/cc428078.aspx
使えそうなのを調べつつお試しください。

[skygo]

いろいろとありがとうございます。
ご教示頂いたSkipLineで１行目をスキップできました！
お忙しいところご教示頂きまして感謝します。