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

网络书生

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

afan

#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), '其中[0]元素为: ' & $aSRE[0])
_ArrayDisplay($aSRE, UBound($aSRE))
Local $sSRERe = StringRegExpReplace($sSource, '(\d{8})\d+', '${1}')
MsgBox(0, '替换结果', $sSRERe)

网络书生

回复 2# afan


非常感谢版主，问题已解决！