Function takech (str As String) As String
Set regEx = CreateObject("VBScript.RegExp")
With regEx '搜索整个字符串
.Global = True '匹配非汉字 也可以.Global = 1
.Pattern = "[^\u4e00-\u9fa5]" '也可以表达为:[^，！一-龥]. 意思是匹配除了全角逗号,感叹号和所有汉字的其它字符.
takech = .Replace(str, "") '将字符串中的非汉字替换为空
End With
End Function
本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请
点击举报。
