大家都知道漢字占用兩個英文字母的長度，所以索取時要將其轉換為長度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>