Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 编程心得绝招› 实际编程 › 查看内容

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

1970-1-1 08:00| 发布者: 朱亦文| 查看: 973| 评论: 0

用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。

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

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

最新评论

相关分类