|
Function takech (str As String) As String Set regEx = CreateObject("VBScript.RegExp")With regEx '搜索整個字符串 .Global = True '匹配非漢字 也可以.Global = 1 .Pattern = "[^\u4e00-\u9fa5]" '也可以表達(dá)為:[^，！一-龥]. 意思是匹配除了全角逗號,感嘆號和所有漢字的其它字符. takech = .Replace(str, "") '將字符串中的非漢字替換為空 End With End Function |
|
|
