テキスト文章１行ずつをファイル化するソフトは存在しますか？

質問

テキスト文章１行ずつをファイル化するソフトは存在しますか？

コンピューター関係の質問
（バージョン）、ハードの
機種名やメーカー名などを

このように３行あったら，その行に応じてテキストファイルを作るソフトです。
こんな感じで（↓）３つのテキストファイルを作ってくれるソフト。

01.txt
--------
コンピューター関係の質問
--------

02.txt
--------
（バージョン）、ハードの
--------

03.txt
--------
機種名やメーカー名などを
--------

ご存知の方ご返答何卒よろしくお願い致します。

回答No.4

wolv · ベストアンサー

ちょっと訂正＋追加情報。

WindowsXPで動作確認しました。

http://www.vector.co.jp/soft/dl/dos/util/se000208.html
からjgawkをダウンロードしてください。
デスクトップなどにダウンロードして、アイコンをダブルクリックすると、フォルダがひとつできて、その中に全て解凍されます。（たぶん）

そのフォルダの中に先ほどのスクリプトファイルと、データファイルを置いてください。
前の回答のスクリプトファイルは間違いがありました。

div.awk -------
{
file = sprintf("%02d.txt",NR)
print $0 > file
close(file)
}
--------------
こうしてください。（「---」のある行はファイルの内容の一部ではありません。BEGINの部分はいりません。）

データは、data.txtという名前にしました。

さらに、中身が１行のバッチファイル
div.bat --------
jgawk -f div.awk data.txt
----------------
を同じディレクトリーに作成します。

このバッチファイルのアイコンをダブルクリックすると、jgawkが動き、01.txt, 02.txt, 03.txtが作られます。

参考URL：

http://www.vector.co.jp/soft/dl/dos/util/se000208.html

回答No.6

imogasi

＞ファイル化するソフト
そんなソフトと言うものでなくて出来る問題です。
エクセルがあればVBAの機能を借りて
（DOS－Basicのプログラムと同じですが）
VBE画面に下記をコピペして実行。
元のテキストファイル名aaa1.txt
１行ファイルの名はTXT○.txtで○部は連番です。
Sub test03()
i = 1
Open "c:\my documents\aaa1.txt" For Input As #1
p01:
If EOF(1) Then GoTo end1
Line Input #1, a
Open "c:\my documents\txt" & i & ".txt" For Output As #2
Print #2, a
Close #2
' If i = 3 Then GoTo end1
i = i + 1
GoTo p01
end1:
Close #1
End Sub
でできると思います。少数例でテスト済み。
本番の場合には、どこを変えれば良いか判るようでしたらやって見てください。
' If i = 3 Then GoTo end1のコメントを外して、少数行（３行）でテストして、納得後本番をやってください。

お礼

＞＞皆様本当にありがとうございました。
とても参考になり、無事解決をすることが出来ました！！

回答No.5

noname#13376

夕飯をたべて、いっぱいやっている間に、＃３、４さんがお答えになっていましたね。

回答No.3

wolv

awkなら、div.awkというファイルを

BEGIN{i=1}
{
file = sprintf("%02d.txt",i)
print $0 > file
close(file)
}

という内容にし、コマンドラインで

　awk -f div.awk 入力ファイル

と実行すれば、目的が達成できます。

回答No.2

noname#13376

JGAWK（MS-DOSのソフト）でAWKスクリプトを書けばできます。
スクリプトは今すぐ思いつかないので後で書きますが、とっても簡単です。
なお、JGAWKはXpなどの「コマンドプロンプト」で動かせますが、同様のWindowsで動くAWKソフトもあるかと思います（未調査）

回答No.1

mizuki_ff

100行が最小単位ですがもし１行単位にのものがなかったら使ってみてください。そしてあとで改行を置換ソフトで削除すればうまくいきます。

参考URL：

http://www.vector.co.jp/soft/win95/util/se088352.html