- ベストアンサー
自動で文章を作成するソフトを探しています
- 文字を1つずつ上げて保存するソフトを探しています。現在はメモ帳でファイルを作っていますが、自動化できる方法を探しています。
- 毎回同じ形式の文章を作成して保存する作業を自動化したいです。具体的には、特定のパターンを持った文を作成し、連番の名前で保存するプログラムを探しています。
- 文章を作成して保存する作業を効率化したいです。何度も同じ作業を繰り返す手間を省きたいので、自動化できるソフトウェアを探しています。
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
- ベストアンサー
Dim a '変数a,ssを宣言します Dim ss Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Const ForReading = 1, ForWriting = 2, ForAppending = 8 For a = 1001 To 1010 Step 1 ss = a & ".txt" Set objInput = objFSO.OpenTextFile("1000.txt", ForReading) ' 1000.txtを読み取りモードで開く Set objOutput = objFSO.OpenTextFile(ss, ForWriting, True) ' ssを書き込みモードで開く Do Until objInput.AtEndOfStream ' 入力ファイルの終端まで繰り返し strLine = objInput.ReadLine ' 入力ファイルを1行読み込む strLine = Replace(strLine,"1000",a) ' 1000を変数aに変換 objOutput.WriteLine strLine ' 出力ファイルに書き出す Loop objInput.Close objOutput.Close Next --------------------------------------------------------------- VBScriptで書いてみました。 1000.txtと同じフォルダーに入れて For文のaを必要な数値に変えてください VBScriptについては http://www.atmarkit.co.jp/fwin2k/tutor/cformwsh01/cformwsh01_03.html たぶんこれでいいと思うのですが、間違えていたらすいません。
その他の回答 (1)
No1です。 少し解りにくかったかもしれません、 先頭の Dim a の所から Next の所までをコピーして メモ帳に貼り付けて保存してください。(ファイル名はなんでもいいです) 拡張子は(.txt)になっていますが、拡張子を(.vbs)に変更するとアイコンがメモ帳からSの付いた形になるので、 Sの形をしたアイコンと同じフォルダに 1000.txt をいれてください そして、Sの形をしたアイコンをダブルクリックすると 1001.txt 1002.txt 1003.txt ……………… とファイルができると思います。
お礼
で、出来ました! あっという間に。 泣けてきました。 ありがとうございます! ポイントは100入れたい位です。 感謝しています!!! 一杯おごりたいです(T_T)