テキストファイルを分割して保存するには？ fsefsetwetjuutさん テキストファイルを分割して保存するには？

テキストファイルを分割して保存するには？
fsefsetwetjuutさん

テキストファイルを分割して保存するには？
ながーいテキストファイルがあるとします。

たとえば


テキストテキスト

・
・
・

テキスト

と、だらだら続くようなファイルがあったとして、

これを、とある記号、

たとえば★とかで区切って、


たとえばこういうファイルがあったとして、

+++++

ABCD

★

EFGH

★

+++++++

こういう感じだとして、

★で区切って、

ファイル１（中身は、ABCD）

ファイル２（中身は、EFGH）

って感じで保存したいのです。

説明下手ですいません。

分割して、

ファイル１
ファイル２
ファイル３

と別途テキストファイルとして、保存したいのですが、

そういうソフトありますか。

No.2 回答者： qwerjpo 回答日時： 2010/03/06 00:10

ちょっとVBSで作ってみました。

お粗末ですが一応動作します。（保証はないけど）
分割したファイルは「1.txt」「2.txt」という風に出力されます。
以下をメモ帳などに張り付け、拡張子を「.vbs」にして試してみてください。

Dim SplitStr
Dim ReadFile
Dim objFSO
Dim objReadFile
Dim objWriteFile
Dim StrREC
Dim Count

'#####　設定箇所（以下の三か所を設定してください）　#####

'区切り文字
SplitStr = "★"

'読み取るファイル(絶対パスで）
ReadFile = "C:\Sample.txt"

'出力先フォルダ(絶対パスで、なおかつ最後は必ず￥を付けること)
CreateFile = "C:\"

'#####　ここまで #####

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objReadFile = objFSO.OpenTextFile(ReadFile, 1)
Count = 1
Do Until objReadFile.AtEndOfStream
Set objWriteFile = objFSO.CreateTextFile(CreateFile & Count & ".txt")
Do
if objReadFile.AtEndOfStream Then Exit Do
StrREC = objReadFile.ReadLine
msgbox StrREC
If StrREC <> SplitStr Then objWriteFile.WriteLine(StrREC)
Loop Until StrREC = SplitStr
Count = Count + 1
objWriteFile.close
Loop

この回答への補足

わ！ありがとうございます。

試して見ますね！

補足日時：2010/03/06 15:37

No.1 回答者： qwerjpo 回答日時： 2010/03/05 23:31

あまりそういうソフトはないんじゃないでしょうか？

まぁ作ろうと思えば作れますけど。