'函数名：StrLength

'作用：取得字符串长度（汉字为2)

'参数：str----字符串内容

'返回值：字符串长度

'****************************************************

PublicfunctionStrLength(str)

DimRep,lens,i

Setrep=newregexp

rep.Global=true

rep.IgnoreCase=true

rep.Pattern="[\u4E00-\u9FA5\uF900-\uFA2D]"

Foreachiinrep.Execute(str)

lens=lens+1

Next

SetRep=Nothing

lens=lens+len(str)

strLength=lens

EndFunction