'原创:获取中英字符串混排长度的过程,中文字长为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