asp计算字符串长度忽略中英文

最新推荐文章于 2022-09-02 12:08:48 发布

原创最新推荐文章于 2022-09-02 12:08:48 发布 · 503 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#asp #正则表达式 #function #each

本文介绍了一个用于计算字符串中中文字符及所有字符总长度的函数。通过使用正则表达式来匹配Unicode范围内的中文字符，并统计这些字符的数量，再结合字符串本身的长度得出最终结果。

Function StrLength(str)
   Dim Rep,lens,i   '建立变量
   Set rep=new regexp    '建立正则表达式
   rep.Global=true    '设置全局可用性
rep.IgnoreCase=true    '设置是否区分字符大小写
rep.Pattern="[/u4E00-/u9FA5/uF900-/uFA2D]"    '设置模式
For each i in rep.Execute(str)
  lens=lens+1
Next
Set Rep=Nothing
lens=lens + len(str)
strLength=lens   '返回长度
End Function