cStr = "中华人民共和国美335*226利坚合众MF-335国大不7*3列颠"
re = Createobject("VBScript.RegExp")
re.Global = .T.
re.Ignorecase = .T.
re.Pattern = "[u4e00-u9fa5]"
**********************************
* 下面代码,返回所有汉字 *
*re.Pattern = "[^u4e00-u9fa5]"
****************************
?re.replace(cStr,"")
网站地图xml地图