QTP不支持strconv函数，那如何得出我们想要的中英文不同的字节长度呢？

yuco

lenb得到的字节数是unicode的所以中英文都是占2个字节，但是实际测试的时候我们需要的是中文双字节英文单字节的统计方式，怎样才能实现呢?

yuco

谢啦！

hsjzfling

这问题被问过好几次了

1. Function GetStringLength(str)
   
2.         Dim i,strLength
   
3.         strLength=0
   
4.         For i=1 To Len(str)
   
5.                 If Asc(Mid(str,i,1))>0 Then
   
6.                         strLength=strLength+1
   
7.                 Else
   
8.                         strLength=strLength+2
   
9.                 End If
   
10.         Next
    
11.         GetStringLength=strLength
    
12. End Function

复制代码