[已解决]正则求助 求 ;01001:62;A101:72 类型 符合:号前面条件取后面值

nec520

有个字符串 是 ;01001:62;A101:72;55147:145  这样类型的东西
当 $A=’01001’ 得时候 得到 62
当 $A=’A101’  的时候  的到 72
当 $A=’55147’  的时候 得到 145

求助 正则高手   感谢

love5173

这个需要正则吗

afan

Local $Str = ';01001:62;A101:72;55147:145'
$A = '01001'
;$A = 'A101'
;$A = '55147'
Local $Test = StringRegExp($str, $A & ':(\d+)', 3)
If Not @Error Then MsgBox(0, $A, $Test[0])

nec520

感谢帮助!!