返回字串長度(中文為兩個字元，英文為一個)(新版)
 

'返回字串長度(中文為兩個字元，英文為一個)
Function ALen(str)
If isNull(str) or Str = "" Then
ALen = 0
Exit Function
End If
Dim WINNT_CHINESE
WINNT_CHINESE=(len("例子")=2)
If WINNT_CHINESE Then
Alen=len(str)+CheckNumRegExp(str,"[^\x00-\x80]")
Else
ALen=len(str)
End If
End Function

'檢測找到多少匹配
Function CheckNumRegExp(str,Patrn)
Dim Re,Matches
Set Re = New RegExp
Re.Pattern = Patrn
Re.IgnoreCase = True
Re.Global = True
set Matches =Re.Execute(str)
CheckNumRegExp = Matches.Count
End Function
 
 

文章來自: Tank部落格
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相關日誌: