Access交流网
电 话:0760-88315075
热 线:0760-88315075
邮 编:528463
咨询QQ:1918333016
营销QQ:4008553990
Email:1918333016@qq.com
' 统计中文字的个数 ' 作者:朱亦文 ' 日期: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。