作者在 2017-11-13 10:56:45 发布以下内容
CLEAR
cStr = "苹果:iphone_5s;诺基亚:Nokia_1020"
* 提取出cSrt中的"iphone_5s","Nokia_1020"
Reg = Createobject("VBScript.RegExp")
Reg.Global = .T.
Reg.Ignorecase = .T.
Reg.Pattern = "\w+"
oExec=Reg.Execute(cStr)
FOR i=0 TO oExec.Count-1
?oExec.item(i).Value
ENDFOR
