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

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


 

1.   
2. <script language=vbs>   
3. function find1(findstr)   
4. set rep1=new regexp   
5. rep1.Global=true   
6. rep1.IgnoreCase=true   
7. rep1.Pattern="[/u4E00-/u9FA5]"   
8. set str1=rep1.Execute(findstr)   
9. for each i in str1   
10. lens=lens+1   
11. next   
12. lens=lens + len(findstr)   
13. msgbox "字符长度 : " & lens   
14. end function   
15. find1("1234567")   
16. find1("大家好1234567")   
17. </script>