删除第N个某字符后面的所有字符

xzf680

1. ### 友情提示：本脚本由 Au3.REHelper 于 2018/06/28 14:01 自动生成，不保证其正确性，请自行测试 ###
   
2. Local $sSource = '1245.5545.4784264-5455.65455'
   
3. ;~MsgBox(0, '源字符串', $sSource)
   
4. Local $sSRERe = StringRegExpReplace($sSource, '(.*?)(.\w+), '$1')
   
5. MsgBox(0, '替换结果', $sSRERe)
   

复制代码