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

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

本帖最后由 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[0]
        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大大用正则就搞定了，太厉害！

		自动登录	找回密码
密码			加入

[AU3基础] 文本数据处理，排除筛选，生成新TXT文件

最佳答案

相关帖子

评分

评分

浏览过的版块