elexy 发表于 2012-5-19 09:40:32

文本数据处理，排除筛选，生成新TXT文件

本帖最后由 elexy 于 2012-5-19 10:46 编辑

有两个文本文件 数据.txt   排除.txt，需要经过排除筛选生成 结果.txt，菜鸟不善长循环处理，求高手写段高效代码，双击即可完成操作，谢谢~！

意思就是 将 数据.txt内的数据   用 排除.txt里的数据 筛选一遍， 生成的结果中不能有排除.txt 里面的内容。

afan 发表于 2012-5-19 09:40:33

Local $sExclude = FileRead('排除.txt')
Local $sData = FileRead('数据.txt')
Local $OutFile = '结果.txt'
$sExclude = StringRegExpReplace($sExclude, '^\s+|(?:\r\n)+(?=\r\n)|\s+$', '')
Local $sReplace = '(?:' & StringRegExpReplace($sExclude, @CRLF, '|') & ')\r\n'
Local $sOut = StringRegExpReplace($sData, $sReplace, '')
FileDelete($OutFile)
FileWrite($OutFile, $sOut)
ShellExecute($OutFile)

Qokelate 发表于 2012-5-19 10:05:20

本帖最后由 Qokelate 于 2012-5-19 10:06 编辑

这种问题正则处理高效学习楼下正则

user3000 发表于 2012-5-19 10:05:28

#include <file.au3>
Local $file, $remove
$file = FileRead(@ScriptDir& '\数据.txt')
_FileReadToArray(@ScriptDir& '\排除.txt', $remove)

For $i = 1 To $remove
        If StringInStr($file, $remove[$i]) Then $file = StringReplace($file, $remove[$i], '') ; 清除 排除数据
Next
$file = StringRegExpReplace($file, '(?m)(?<=\n|\r)([\n\r]+)(?=[\r\n])', '') ; 去掉多余空行
;MsgBox(0, '', $file)
FileWrite(@ScriptDir & '\结果.txt', $file)

elexy 发表于 2012-5-19 10:46:11

user3000 和 afan 都可以，但afan的更为高效精简，未引用<file.au3>

xyhqqaa 发表于 2012-5-19 12:32:10

路过。。看看。。说学习现在那是蛋疼。。。看不懂，纯顶

javarike 发表于 2012-5-19 16:22:11

正则可以解决之…

whitehead 发表于 2012-5-19 18:51:59

对大文件不知哪个更有效率？

xms77 发表于 2012-5-19 21:27:55

回复 2# afan
我想象中使用for语句来判断的，没想到Afan大大用正则就搞定了，太厉害！
页: [1]
查看完整版本: 文本数据处理，排除筛选，生成新TXT文件