寻找文本批量处理工具，有的说下

因为本人做一些数据筛选工作，上10万的产品编号在一个记事本里边，每行一个，我需要一种工具对此进行处理，需要将1个10W行TXT文件变成10个1W行的TXT文件，并且替换掉前面的“产品编号：”4个字 替换方法很简单，记事本有这种功能，但是记事本和word文档，都不能处理这莫大的一个数据量，并且不能把文件拆分！ 要求： 1.工具能实现拆分 2.工具能实现批量替换 3.操作时不能太卡，一定不能卡！！50分送上，如果有好的联系我

推荐用Replace Pioneer 2.51或以上，处理10万行没问题。详细操作：

1. ctrl-o 打开待处理文本文件
2. 做替换：
ctrl-h 打开replace窗口
(1) 把Replace Unit选成Chars
(2) 把Replace Scope选成Line
(3) 在Search for pattern输入"产品编号："不带双引号
(4) 点击Replace,完成
3. 分割文件：
选择File->Save As->Save to Files-Split by Bytes/Lines
(1)把Split Naming 的内容改为output.###.txt
(2)把Split by 改为10000 lines
(3)点击Next,选择目录，输入结果文件名，即可完成。

注意：
第2步的(2)不是必要的，但是能提高替换速度，实测100000行的替换时间是30秒，分割时间更短。

最好要用版本2.51或以上

Microsoft Office Access

记事本处理100万的文本都没问题，我的同事经常再做，没有说处理不了的，只是处理的时候会很慢，要有耐心。 当然我不会用记事本来处理，我的机器也没按别的软件，处理这样的问题我一般使用PERL或者PHP写程序来完成，我给许多同事写过很多个，不但可以按行数撤分，而且还可以按里面的一列内容撤分（例如按省份）。 写这样的程序并不复杂，要不了几行，下面粘贴一个我用PERL写的程序，可以完成按固定行数分正文件，但是你要安装PERL环境才能执行，而我编译为EXE后也无法粘贴上来： #!c:\perl\bin\perl.exe #0.检查参数 if ($#ARGV < 0 ) {print "本程序按指定行数拆分文本文件文小文件，Yang GuangBin 2008-5-5 for Luo Weihong\n\n使用方法：Split_n.exe <文本文件名> [<行数（默认65535）>]\n\n请看明白以后按回车...";<stdin>;exit(0);} #0.设置变量 $text_file=$ARGV[0]; $split_size=$ARGV[1]+0; $split_size=65535 if ($split_size==0); print "正在拆分文件 $text_file\n\n每个文件 $split_size 行 ... ..."; #1.修改文件 $i=0; $j=0; open(F1,$text_file); while ($s=<F1>){ if ($j==0) { close(F2) if ($i++); open(F2,">$text_file.$i.txt"); } $s =~ s/\\ //g; $s =~ s/\|/\t/g; print F2 $s; $j++; $j=0 if ($j>=$split_size); } close(F2); close(F1);