找这样的文本处理工具

沐攸

my @lines = <>;
my $last;
open NEWFILE,'>',$ARGV[0];
foreach (@lines){
    if($last e $_){}
    else{
        print NEWFILE $_;
    }
    $last = $_;
}

David442

原帖由 沐攸 于 2008-12-17 03:00 PM 发表
my @lines = ;
my $last;
open NEWFILE,'>',$ARGV[0];
foreach (@lines){
    if($last e $_){}
    else{
        print NEWFILE $_;
    }
    $last = $_;
}

汗。。。这个程序怎么用。。。

syl9aimlxmx

如果实在想要工具也有
用Replace Pioneer
1. 按ctrl-o打开文件A
2. 按ctrl-h打开replace对话框，设置如下：
在Replace页：
Replace Unit=Line
Search for Pattern下面填.*(表示任意行)
If下面填get_value($match)==1
(注:以上操作表示删除重复行)
打开Advance页：
Run following at the beginning of text 填 clear_values_all()
Run following for each matched unit 填 set_value($match,1)(注:set_value表示把每行记录下来)
3. 点击Replace,即删除了重复行，存盘。

下载地址:http://www.onlinedown.net/soft/69616.htm

David442

是不是excel下的，data--advanced filter就可以？？

荷兰剑客

1111
2222
1111
3333
2222
排序为：
A1               B1
1111            此处输入：=if(A1=A2,1)..然后下拉复制
1111
2222
2222
3333

然后自动筛选一下“1”，一下子delete

沐攸

原帖由 David442 于 2008-12-17 03:05 PM 发表

汗。。。这个程序怎么用。。。

呵呵，perl 程序， 只能处理普通文本，如果是windows里面那种特殊格式就没法弄了。不懂微软那一套的规则。

荷兰剑客

lz想偷懒要多动脑子哦

荷兰剑客

对了，我的方法应该很好用了













给钱！！！！！

David442

原帖由 荷兰剑客 于 2008-12-17 03:10 PM 发表
1111
2222
1111
3333
2222
排序为：
A1               B1
1111            此处输入：=if(A1=A2,1)..然后下拉复制
1111
2222
2222
3333

然后自动筛选一下“1”，一下子delete

好像不用那么麻烦，用这个就可以

David442

剑客和syl9aimlxmx看看对不

钱别急，都会有的