テキストファイルを分割してそのままテキストファイルで使えるソフト

質問

先ほどのものです。PCがパワーアップされるまで時間がかかるようなので、一先ずテキストファイルを分割しようと思うのですが、フリーソフトで使えるものは全て結合することを目的としているので、用途に合いません。私の目的はテキストファイル（350MBぐらい）を分割して、分割されたテキストファイルをそのままアクセスに取り込むというものですが、これに適したフリーソフトはないでしょうか。。

回答No.3

PrintScree · ベストアンサー

一部訂正。

Input #FnumIN, lstrInString
InRecCnt = InRecCnt + 1
Print #FnumOut, lstrInString
の部分を
Line Input #FnumIN, lstrInString
InRecCnt = InRecCnt + 1
Print #FnumOut, lstrInString
としてください。

お礼

再度ありがとうございました。
ただ、非常に残念に思わせてしまうと思うのですが、、モジュールについて詳しくなく、色々と
試してみたのですが、ちょっとうまくいきません。
（引数が無効となってしまいます。）ごめんなさい。教えていただいたモジュールを実行できるように、これからアクセスのプロに手取り足取り教えてもらうように致します。重ねてありがとうございました。

補足

できましたぁぁぁー。
本当にありがとうございました！

回答No.2

PrintScree

先ほどはどうも。

フリーソフトが有るかどうかは知りませんが、私ならAccessのモジュールでファイルを分割するプログラムを作成します。

簡単に作ってみたので、試してみてください。
Public Sub test()
Dim lstrInString As String
Dim OutFName As String
Dim FnumIN As Integer
Dim FnumOut As Integer
Dim OutFCnt As Integer
Dim InRecCnt As Integer

FnumIN = FreeFile
Open "350MBのファイル名をフルパスで記述" For Input As FnumIN

OutFCnt = 0
InRecCnt = 0
While Not (EOF(FnumIN))
If OutFCnt = 0 Then
OutFCnt = OutFCnt + 1
FnumOut = FreeFile
OutFName = "出力先フォルダ名\OutF_" & Format(OutFCnt, "000") & ".txt"
' 出力ファイルの出力先のフォルダ名を入れること
Open OutFName For Output As FnumOut
End If
If InRecCnt >= 5 Then ' １ファイルあたりの分割件数
Close (FnumOut)
InRecCnt = 0
OutFCnt = OutFCnt + 1
OutFName = "出力先フォルダ名\OutF_" & Format(OutFCnt, "000") & ".txt"
' 出力ファイルの出力先のフォルダ名を入れること
Open OutFName For Output As FnumOut
End If

Input #FnumIN, lstrInString
InRecCnt = InRecCnt + 1
Print #FnumOut, lstrInString

Wend
Close (FnumIN)
Close (FnumOut)
Debug.Print "End"
End Sub

回答No.1

hirumin

サイト閲覧者が全ての質問に目を通しているわけではなく、刻々と新しい質問が出てくるので、「先ほどのもの」という前置きは無意味ですよ。（続きの質問も禁止されていますし）

さて、テキストファイルの分割について、Vectorで検索してみましたところ、たくさんのファイルが引っ掛かりましたよ。
参考URLから選んでみてください。

参考URL：

http://search.vector.co.jp/search?query=%83e%83L%83X%83g+%95%AA%8A%84

お礼

すみませんでした。＆お手数をお掛けいたしました。私もVectorからいくつかのソフトをインストールしたのですが、どれも分割後のファイル名が.txtにならないのです。それぞれ、再度結合することが目的となっているか、分割できるテキストファイルの大きさが5MBぐらいとかそれぞれ問題がありました。。