いつもありがとうございます。
現在inputboxで入力した内容をテキストファイルを出力するVBScriptを作成しています。
出力するテキストの内容は以下のようなイメージです。
●test.txt
---------------------
YYYYMMDD
<種別>
項目A=111
項目B=222
項目C=333
---------------------
<種別>は固定文字で、inpuboxを最大3度表示して数字を入力し、入力された数字を
"項目A~C"として出力してくというものをイメージしています。
1回目の入力: "111"を入力→ "項目A=111"を出力
2回目の入力: "222"を入力→ "項目B=222"を出力・・・
勉強を兼ねてWebで調べながら作成しているのですが、自身で作るとどうしても
実現できません。
●test.txt
------------------
YYYYMMDD ←<種別>の固定文字がない
111 ←項目A=がない
222 ←項目B=がない
------------------ ←同じ処理(Inputboxの処理)を都度記載。。
基礎から学習する必要があるのは承知の上で、みなさんのアドバイスを頂きたく
一部例を教えて頂けるとうれしいです。
どうぞ宜しくお願い致します。
No.1
- 回答日時:
スクリプトがどうなっているかわからないと答えようがないと思うが。
ありがとうございます。
とても長くなってしまいますので、一部抜粋して記載させていただきます。
----------------------------------------------------------------------------
Set fso = CreateObject("Scripting.FileSystemObject")
filepath = "c:\test.txt"
nyuryoku1 = Inputbox("入力1")
'キャンセル時
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行分)くらいまで想定しており、途中でキャンセルすることで
処理を完了できるようにもしたいです。
勉強されている方は、どのような内容で作成されるのか参考にさせて頂けるとたすかります。
よろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
VBAのExecメソッドで画面を非表...
-
MMDでavi出力が出来ない
-
COBOLのMOVEで桁数が異なる場合
-
OBS配信すると、マイクが途切れ...
-
VBでステッピングモーターを動...
-
中国の電子レンジの火力は何ワ...
-
KEYENCEのシーケンスプログラム...
-
makeで文字化けする。migwのmak...
-
プログラムについての質問です...
-
wsprintfで浮動小数を扱うには?
-
クリップボードからの貼り付け...
-
無線とかアンテナに関しの質問...
-
PrintDocumentでうまく印字がで...
-
データカウンター
-
定格冷房能力(出力)とは 定格...
-
AIに回答させるって
-
coutで出力した文字を消去する...
-
C言語で矩形波生成方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
MMDでavi出力が出来ない
-
プログラムについての質問です...
-
COBOLのMOVEで桁数が異なる場合
-
cout と cerrの違い
-
コンセントの電力は入力と出力...
-
スマホのバッテリー消費につい...
-
アクセスでエクセルに出力する...
-
PC電源は、出力DC12VとDC5Ⅴで...
-
Windows Formアプリからコンソ...
-
ACCESS クエリ→フォーム...
-
VBAのExecメソッドで画面を非表...
-
printfの書式%.*s
-
無線とかアンテナに関しの質問...
-
【ExcelVBA】最終行の取得で困...
-
ACCESSからExcelへエクスポート...
-
Accessのテーブルからcsv出力す...
-
CRC16計算について
-
Excel VBAで値を変えながら、pd...
おすすめ情報