网络书生 发表于 2018-3-11 13:40:28

【求助】正则查找替换问题【已解决】

本帖最后由 网络书生 于 2018-3-11 14:40 编辑

比如说我有个文本文件a.txt
内容为:
adjfahdjf,15468787,125745666,1234,666
我现在要正则查找大于等于8位的数字,怎么返回值为15468787、和125745666的数?
下一步我要替换内容将15468787、和125745666替换为原来数字的前8位,语句改怎么写?

afan 发表于 2018-3-11 14:29:18

#include <Array.au3>
Local $sSource = 'adjfahdjf,15468787,125745666,1234,666'
;~MsgBox(0, '源字符串', $sSource)
Local $aSRE = StringRegExp($sSource, '\d{8,}', 3)
If Not @Error Then MsgBox(0, '匹配数量: ' & UBound($aSRE), '其中元素为: ' & $aSRE)
_ArrayDisplay($aSRE, UBound($aSRE))
Local $sSRERe = StringRegExpReplace($sSource, '(\d{8})\d+', '${1}')
MsgBox(0, '替换结果', $sSRERe)

网络书生 发表于 2018-3-11 14:39:58

回复 2# afan


非常感谢版主,问题已解决!
页: [1]
查看完整版本: 【求助】正则查找替换问题【已解决】