求个正则表达式【已解决】感谢a版

fybhwsx

张三,,693628,473980.00,239.68,0.00,0.00,0.00,0.00,0.00,0.00,0.00,100239.68,0.00,0.00,260.00,0.00,0.00,0.00%,0.00,0.000,0.000,239.68,239.68,2023-04-20,100239.68,100239.68,0.00,260.00,99879.68,0.00,0.00,100000.00,0.00,20.32,,0.00

提取：
2023-04-20
100239.68
20.32

afan

#include <Array.au3>
Local $sSource = '张三,,693628,473980.00,239.68,0.00,0.00,0.00,0.00,0.00,0.00,0.00,100239.68,0.00,0.00,260.00,0.00,0.00,0.00%,0.00,0.000,0.000,239.68,239.68,2023-04-20,100239.68,100239.68,0.00,260.00,99879.68,0.00,0.00,100000.00,0.00,20.32,,0.00'
;~ MsgBox(0, '源字符串', $sSource)
Local $aSRE = StringRegExp($sSource, '(?m)^.+?(\d+-\d+-\d+),([\d\.]+).+?([\d\.]+),[\d\.]*,[\d\.]*$', 3)
If Not @Error Then MsgBox(0, '匹配数量: ' & UBound($aSRE), '其中[0]元素为: ' & $aSRE[0])
_ArrayDisplay($aSRE, UBound($aSRE))

fybhwsx

afan 发表于 2023-4-20 20:24

感谢a版！

holley

手痒，试了一下，包括前面的张三，共5个捕获组，每1个都匹配到了

([\u4e00-\u9fa5]+).+?(\d+-\d+-\d+).+?([\d\.]+).+?([\d\.]+).+?([\d\.]+),,.*

zdphj

一直看不懂正则，看来需要花时间来学习学习。