Function takech (str As String) As String
Set regEx = CreateObject("VBScript.RegExp")
With regEx '搜索整個(gè)字符串
.Global = True '匹配非漢字 也可以.Global = 1
.Pattern = "[^\u4e00-\u9fa5]" '也可以表達(dá)為:[^，！一-龥]. 意思是匹配除了全角逗號(hào),感嘆號(hào)和所有漢字的其它字符.
takech = .Replace(str, "") '將字符串中的非漢字替換為空
End With
End Function
本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)
點(diǎn)擊舉報(bào)。
