エディタで効率的な切り出し方法

解決済

質問者：mellow91
質問日時：2011/01/25 16:02
回答数：3件

エディタで効率的な切り出し方法

CSVファイルがあります。５０万行くらいのボリュームがあります。
このCSVを５万行づつ分けて別ファイルとしたいと思っています。

すぐに思いつくのは、同一ファイルを１０個コピペ。
１つ１つファイルを開いて、
1～５万行目まで残して残りを削除。
50001から100000まで残して残りを削除。

というような事をすれば５０万行のファイルを分割することはできます。

ただ、これだと手間がかかります。なんとか良い方法で１０万ファイル作る方法はあるでしょうか？

サクラエディタ、秀丸エディタでできればと思います。
Excel 2007ならできるかも知れませんが、持っていません・・・

お願いいたします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： keithin
回答日時：2011/01/25 21:39

たとえばエクセルのマクロにやらせてみます。

手順：
Excelを起動する
ALT+F11を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim s as string
　dim n
　dim c
　open "c:\test\50.csv" for input as #1　　’保存場所とファイル名を修正

　do until eof(1)
　　c = c + 1
　　open "c:\test\50_" & c & ".csv" for output as #2　’保存場所ファイル名修正
　　do
　　　n = n + 1
　　　line input #1, s
　　　print #2, s
　　loop until n = 50000 or eof(1)
　　n = 0
　　close #2
　loop
　close #1
end sub

ファイルの保存場所，ファイル名などを修正したら，そのまま実行する。
ファイルのサイズに直接比例しますが，そんなに手間取らずに終わっていると思います。