我用这两句，不行。。。
SET CLASSLIB TO "c:\program files\vfp9\samples\solution\solution.vcx"
ore = NEWOBJECT("_regexp")

CLEAR
cStr = "苹果:iphone_5s;诺基亚:Nokia_1020"
SET TEXTMERGE ON
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

谢谢stda，我的问题解决了。

不过，还是想弄清楚_regExp的用法，难免会借用solution提供的解决方案。

解决了，用下面的语句。
SET CLASSLIB TO "c:\program files\vfp9\ffc\_regexp.vcx"
ore = NEWOBJECT("_regExp")

也可以用 Createobject("VBScript.RegExp") ，如果已经注册了的话。
其实学正则，主要就是学 .Pattern 的用法，学好了 对数据清洗，字符过滤，用户输入内容验证 很有用。

多谢了。