求一段VBA比较d盘的两个.txt文件并提取不同数据的代码

wanghan519

CAONI 发表于 2023-2-3 20:35
老师你好，麻烦你把代码发来测试一下，跟我的代码差不多：
Sub 按钮6_Click()
t = Timer

用的是perl单行式，现学现卖写起来简单，但需要下个绿色版草莓perl之类，代码就是上面的意思，用其他语言写应该效果是一样的
*.txt那里不规范，不过对于a.txt b.txt这样命名的凑活能用

1. perl -ne 'if($t){$d{$_}+=2}else{$d{$_}=1};$t=1 if eof;END{while (($k,$v)=each(%d)){if($v==1){print $k}}}' *.txt > c.txt

复制代码

另外，10行的文件复制30万次的代码是

1. perl -ne 'for $i(0..300000){print}' bbb.txt > b.txt

复制代码

又一通搜索发现grep和awk更快，不重复的300万找300万也只要3秒
grep -Fxvf b.txt a.txt
awk 'FNR==NR{d[$0]++}FNR!=NR && !d[$0]{print}' b.txt a.txt

CAONI

wanghan519 发表于 2023-2-3 20:52
用的是perl单行式，现学现卖写起来简单，但需要下个绿色版草莓perl之类，代码就是上面的意思，用其他语言 ...

试玩一下，谢谢！

mmwwdd

fzxba 发表于 2023-2-3 17:18

很好，学习了

gwjkkkkk

fzxba 发表于 2023-2-3 17:18

这个够简洁，速度够快，学习了。。。

CAONI

wanghan519 发表于 2023-2-3 20:52
用的是perl单行式，现学现卖写起来简单，但需要下个绿色版草莓perl之类，代码就是上面的意思，用其他语 ...

老师，grep工具在哪下载呀

wanghan519

CAONI 发表于 2023-2-4 21:46
老师，grep工具在哪下载呀

最常见的办法是装git for windows（毕竟程序猿必备），上面提到的工具就都包含了

CAONI

fzxba 发表于 2023-2-3 17:18

老师你好，程序经测试结果正确，能把文件设为d盘吗， 谢谢！