用Replace Pioneer怎么提取文件名的差是固定距离两个文本的共同数前面我询问了找出所有距离不大于9的文件中的共同数字这个问题,现在我想做一点修改,问题是：用Replace Pioneer怎么提取固定距

用Replace Pioneer怎么提取文件名的差是固定距离两个文本的共同数前面我询问了找出所有距离不大于9的文件中的共同数字这个问题,现在我想做一点修改,问题是：用Replace Pioneer怎么提取固定距
用Replace Pioneer怎么提取文件名的差是固定距离两个文本的共同数
前面我询问了找出所有距离不大于9的文件中的共同数字这个问题,现在我想做一点修改,问题是：用Replace Pioneer怎么提取固定距离两个文本的共同数
文件名是000-999的1000个txt文本,都是若干3位数每行一个,有的是空白!我想根据一个jieguo.txt文本中每行的3位数当做距离来分别找出1000个txt中距离 等于 这个数的两个文件中的共同数字,然后把jieguo.txt文本中第一行的数找出来的追加到D:\jieguo\001 里面.jieguo.txt文本中第二行的数找出来的追加到D:\jieguo\002 里面.举例一下jieguo.txt：
009
599
999
第一行是009,就找出1000个txt中文件名差等于9的两个文件中的共同数字,然后追加到D:\jieguo\001 里面,共991种情况.
第二行是599,就找出1000个txt中文件名差等于599的两个文件中的共同数字,然后追加到D:\jieguo\002 里面,共401种情况.
第三行是999,就找出1000个txt中文件名差等于999的两个文件中的共同数字,然后追加到D:\jieguo\003 里面,共1种情况.
追加的时候在D:\jieguo\ 下自动生成各文本,追加的数也是从小到大排列,不要重复

用Replace Pioneer怎么提取文件名的差是固定距离两个文本的共同数前面我询问了找出所有距离不大于9的文件中的共同数字这个问题,现在我想做一点修改,问题是：用Replace Pioneer怎么提取固定距
假设你的原文件保存在目录d:\old,新文件保存在目录d:\jieguo,以下是用Replace Pioneer按要求提取共同数字的详细步骤:
1.ctrl-o打开jieguo.txt
2.ctrl-h打开replace窗口
* 把replace unit选为Line
* 点击Advanced页,在Run following for each matched unit输入：
my $oldpath="d:\\old";
my $newpath="d:\\jieguo";
my $gap=$match;
my $total=999;
my %h1;
for my $id(0..$total-$gap) {
my $f1=$oldpath."\\".sprintf("%03d",$id).".txt";
my $f2=$oldpath."\\".sprintf("%03d",$id+$gap).".txt";
if (-e $f1 && -e $f2 && open(F1,"$f3")) { print F3 join("\n",sort(keys(%h1))); close(F3); }
3.点击Replace,完成!
注意自己修改第二步oldpath和newpath所指的路径,要用双斜杠\\