[原创] VB 获取中英字符串混排长度
"原创:获取中英字符串混排长度的过程,中文字长为2。
"需引用 Microsoft VBScript Regular Expressions 5.5 或 Microsoft VBScript Regular Expressions 1.0
Function RegExpTest(BLstr)
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "[/x00-/xff]"
reStr = re.Replace(BLstr, "")
reStr = Len(BLstr) + Len(reStr)
RegExpTest = reStr
End Function
"需引用 Microsoft VBScript Regular Expressions 5.5 或 Microsoft VBScript Regular Expressions 1.0
Function RegExpTest(BLstr)
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "[/x00-/xff]"
reStr = re.Replace(BLstr, "")
reStr = Len(BLstr) + Len(reStr)
RegExpTest = reStr
End Function
声明:该文观点仅代表作者本人,牛骨文系教育信息发布平台,牛骨文仅提供信息存储空间服务。