[已解决]正则:能否帮助精简正则表达式?

newuser

#include  <array.au3>
Local $Num="Sharon Lee Smith, Design Works Incorporated, CA, 95012"
Local $Result=StringRegExp($Num,'([^,]*),([^,]*),([^,]*),(.*)',3)
;Local $Result=StringRegExp($Num,'([^,]*),\w*',3)
;Local $Result=StringRegExp($Num,"(([^,]*),){3}(.*)",3)
_ArrayDisplay($Result)

([^,]*),([^,]*),([^,]*),(.*)能否写的更精简些?用代码中的2个方法均无效?

shenrenba

afan

[^,]+