找回密码
 加入
搜索
查看: 5319|回复: 7

[系统综合] 【已解决】AFan 的_FileSRER2Line 如何把含有关键字的行保存到新文件

[复制链接]
发表于 2011-1-4 22:05:42 | 显示全部楼层 |阅读模式
本帖最后由 touch_xu 于 2011-1-5 21:18 编辑

看过AFan 的_FileSRER2Line功能很强大,请问如何修改才能保留含有关键字的行,正好也可以更好的解决这个贴子的需求:http://www.autoitx.com/thread-18783-2-1.html
发表于 2011-1-4 23:05:37 | 显示全部楼层
_StringKeyLine(FileRead('test.txt'), '关键字', 'new.txt')

Func _StringKeyLine($str, $Key, $NewFile = '', $FOMode = 2)
        ;[可选]$NewFile        写入新文件的文件名
        ;[可选]$FOMode        写入新文件模式:= 1 追加;= 2 覆写
        Local $sR, $Out, $FO
        $sR = StringRegExp($str, '(?<=^|\n)\V*\Q' & $Key & '\E\V*', 3)
        If @error Then Return SetError(1, 0, '')
        For $i = 0 To UBound($sR) - 1
                $Out &= $sR[$i] & @CRLF
        Next
        If $NewFile = '' Then Return $Out
        If $FOMode <> 2 Then $FOMode = 1
        $FO = FileOpen($NewFile, $FOMode)
        FileWrite($FO, $Out)
        FileClose($FO)
EndFunc   ;==>_StringKeyLine
发表于 2011-1-5 08:50:13 | 显示全部楼层
本帖最后由 kingfirekkk 于 2011-1-5 08:52 编辑

很不错的思路.......模块化的编程看起来舒服啊。
发表于 2011-1-5 09:45:08 | 显示全部楼层
AFAN的代码确实强大,借用!
 楼主| 发表于 2011-1-5 21:18:13 | 显示全部楼层
AFAN精品,AFAN神速!!!十分感谢!
发表于 2012-12-19 15:13:20 | 显示全部楼层
精品啊.
发表于 2014-9-25 15:33:10 | 显示全部楼层
不懂正则,感谢,路过学习,感谢感谢,非常感谢
发表于 2019-2-21 14:34:09 | 显示全部楼层

大神。。你的这个_StringKeyLine(FileRead('test.txt'), '关键字', 'new.txt')   这里可以多个关键字添加的吗。请问怎么写
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-28 19:01 , Processed in 0.087194 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表