用VBA统计字符串中的中文字个数

用VBA统计字符串中的中文字个数

' 统计中文字的个数
' 作者：朱亦文
' 日期：2006.01.05
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。

发布人:朱亦文-原创

分享到：

点击次数：更新时间：2006-03-19 22:25:45 【打印此页】【关闭】

上一条：怎样使程序的标题条闪烁？下一条：求助。在窗体中怎样通过绑定的数据在另一个控件中自动产生结果