批处理之家 » VBS原创&转载 » VBS准确计算出字符串字节数

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 4

帖子: 69
积分: 383
技术: 0
捐助: 0
注册时间: 2007-10-25

1楼 跳转到 » 正序看帖

字体大小: tT

发表于 2007-10-26 13:45 | 只看该作者

[原创] VBS准确计算出字符串字节数

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

1 评分人数

youxi01: 我很赞同PB + 4

Software is like sex: it's better when it's free..!

Rank: 2

帖子: 7
积分: 134
技术: 0
捐助: 0
注册时间: 2009-12-1

8楼

发表于 2009-12-26 02:00 | 只看该作者

学习了谢谢啊这是好东西

Rank: 2

帖子: 2
积分: 104
技术: 0
捐助: 0
注册时间: 2009-11-15

7楼

发表于 2009-11-17 13:55 | 只看该作者

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

Rank: 3 Rank: 3

帖子: 26
积分: 247
技术: 2
捐助: 0
注册时间: 2008-1-17

6楼

发表于 2008-7-15 06:07 | 只看该作者

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

Rank: 8 Rank: 8

帖子: 962
积分: 2449
技术: 40
捐助: 0
注册时间: 2007-10-25

5楼

发表于 2007-11-18 15:36 | 只看该作者

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

Rank: 4

帖子: 52
积分: 324
技术: 3
捐助: 0
注册时间: 2008-4-27

4楼

发表于 2007-11-18 15:23 | 只看该作者

漏了End If...

静水流深...

Rank: 8 Rank: 8

帖子: 962
积分: 2449
技术: 40
捐助: 0
注册时间: 2007-10-25

3楼

发表于 2007-10-28 15:41 | 只看该作者

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

Rank: 8 Rank: 8

帖子: 1759
积分: 5387
技术: 51
捐助: 210
注册时间: 2007-10-26

2楼

发表于 2007-10-27 16:38 | 只看该作者

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

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

技术问题请到论坛发帖求助！