VBS准确计算出字符串字节数

somebody

1. dim mystr, i, j, temp
   
2. mystr="这里有14个字节"
   
3. i=0
   
4. j=1
   
5. For j=1 to Len(mystr)                  ' Len() 函数是取字符串个数，这一行循环的次数要看变量mystr 有多少个字符
   
6.   temp=Mid(mystr,j,1)   'Mid() 函数是取字符函数，这里是从变量mystr的第j个字符开始取，取1个字符，然后传给temp
   
7.   If ASC(temp)>128 Or ASC(temp)<0 Then  ' ASC() 函数是ASCII码转换函数，判断ASCII码大于128或者小于0为全角
   
8.      i=i+2                                                          ' 全角符号是要占两个字节的
   
9.   Else
   
10.      i=i+1                                                            ' 不是全角就是半角咯，半角占一个字节
    
11.   End If
    
12. Next                                                                 ' 表示循环
    
13. msgbox(i)       ' msgbox() 函数 负责弹出信息，弹出的内容就是 i 的内容
    
14.                        ' 变量 i 的值已经是字符串变量 mystr 包含的字节数了。

复制代码

随风

好东西.
讲解的也很详细.谢谢楼主.

[ 本帖最后由 随风 于 2007-10-27 20:58 编辑 ]

youxi01

不错，可以判断全角，半角，用纯批处理可能是做不到了，正在测试....

梦想种子

漏了End If...

youxi01

呵呵，梦想种子 还果真是心细啊，不错。

浅默

学习谢谢, >>>>>>>>>>>>>

MrWrong1987

楼主真好，这些东西对我们初学者太有用了！

liuxuchu1989

学习了 谢谢啊 这是好东西