獲取中英文字符串長度

 

Function  LenStr(sContent)
    Dim regEx,Match,Matches
    Set regEx = New RegExp
    regEx.Pattern  ="[^/x00-/xff]"
    regEx.IgnoreCase = False
    regEx.Global = True
    Set Matches = regEx.Execute(sContent)
    For Each Match in Matches
        RetStr = RetStr&Match.Value
    Next
    LenStr = RetStr
End Function
sContent = "我hen愛nia"
Str = LenStr(sContent)
Response.Write Len(Str)+Len(sContent)