vb正则表达式匹配字符串（字符串函数）

大家都知道汉字占用两个英文字母的长度，所以索取时要将其转换为长度2，这个例子比较简单的实现了这一功能

1. <scriptlanguage=vbs>functionfind1(findstr)setrep1=newregexprep1.Global=truerep1.IgnoreCase=truerep1.Pattern="[\u4E00-\u9FA5]"setstr1=rep1.Execute(findstr)foreachiinstr1lens=lens+1nextlens=lens+len(findstr)msgbox"字符长度:"&lensendfunctionfind1("1234567")find1("大家好1234567")</script>

如果您对该产品感兴趣，请填写办理（客服微信：xiaoxiongyidong）

您的姓名 *

身份证号码 *

手机号码 *

选择地区 *

详细地址 *

留言备注 *