vbs:一段比较精简的代码实现取得字符串的"字节"数

大家都知道汉字占用两个英文字母的长度，所以索取时要将其转换为长度２，这个例子比较简单的实现了这一功能 
<script language=vbs> function find1(findstr) set rep1=new regexp rep1.Global=true rep1.IgnoreCase=true rep1.Pattern="[\u4E00-\u9FA5]" set str1=rep1.Execute(findstr) for each i in str1 lens=lens+1 next lens=lens + len(findstr) msgbox "字符长度 : " & lens end function find1("1234567") find1("大家好1234567") </script>
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]