Board logo

标题: [原创] VBS准确计算出字符串字节数 [打印本页]

作者: somebody    时间: 2007-10-26 13:45     标题: VBS准确计算出字符串字节数

  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 16:38

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


[ 本帖最后由 随风 于 2007-10-27 20:58 编辑 ]
作者: youxi01    时间: 2007-10-28 15:41

不错,可以判断全角,半角,用纯批处理可能是做不到了,正在测试....
作者: 梦想种子    时间: 2007-11-18 15:23

漏了End If...
作者: youxi01    时间: 2007-11-18 15:36

呵呵,梦想种子 还果真是心细啊,不错。
作者: 浅默    时间: 2008-7-15 06:07

学习谢谢, >>>>>>>>>>>>>
作者: MrWrong1987    时间: 2009-11-17 13:55

楼主真好,这些东西对我们初学者太有用了!
作者: liuxuchu1989    时间: 2009-12-26 02:00

学习了 谢谢啊 这是好东西




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2