自定义函数：统计字符串中的中文字个数

时　间:2018-12-03 12:28:01
作　者:Natsume Takashi   ID：47512  城市：南京
摘　要:自定义函数：统计字符串中的中文字个数
正　文:

一、问题描述:

老师，如何判断一串字符串中中文字个数？

二、解答:

这里需要要自定义函数：

Function CountZh(ByVal sZh As String) As Integer
    Dim re As New RegExp
    Dim matches As MatchCollection
    
    re.Pattern = "[\u4e00-\u9fa5]"
    re.Global = True
    re.IgnoreCase = True
    Set matches = re.Execute(sZh)
    
    CountZh = matches.Count
    Set re = Nothing
End Function

'请引用Microsoft VBScript Regular Express 5.5。

调用示例：