VBS精确获取字符串的总字节数 - 支持自动判断全角半角

a1a2dnp

1. dim mystr, i, j, temp
   
2. 
   
3. mystr="这里有30个字节  !@#$%&*(！@#￥"
   
4. i=0
   
5. j=1
   
6. For j=1 to Len(mystr)                  ' Len() 函数是取字符串个数，这一行循环的次数要看变量mystr 有多少个字符
   
7.   temp=Mid(mystr,j,1)   'Mid() 函数是取字符函数，这里是从变量mystr的第j个字符开始取，取1个字符，然后传给temp
   
8.   If ASC(temp)>128 Or ASC(temp)<0 Then  ' ASC() 函数是ASCII码转换函数，判断ASCII码大于128或者小于0为全角
   
9.      i=i+2                                                          ' 全角占2个字节
   
10.   Else
    
11.      i=i+1                                                            ' 半角占1个字节
    
12.   End If
    
13. Next                                                                 ' 循环
    
14. msgbox(i)       ' 弹出信息框
    
15.             

复制代码

1心1亿

路过捞分