在VBS中定义字节数组Byte()介绍
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 晚上在 QQ 上看到昵称为“乱码”的好友回答了搜搜问问里一个问题： 在VBS中有办法定义字节数组么？ 在VBS中有办法定义字节数组么？就是字节子类型数组（VarType是8209的那种）注意不是VB！ 但是回答实在是不堪入目，连别人问什么都没搞懂，而且那人居然还满意，真不知道他在想什么。 闲来没事，我来简单回答一下。首先要搞清楚别人在问什么，VBS 是弱类型脚本语言，只有一种数据类型，称为 Variant，但是 Variant 可以进一步分为几种子类型，这里不展开，详见《VBScript 数据类型》。所谓字节子类型数组（VarType是8209的那种），就是子类型为 Byte 的数组（vbByte + vbArray = 17 + 8192 = 8209）。 例如，Msxml2.XMLHTTP 对象的 responseBody 属性返回的就是字节数组： 复制代码 代码如下: ''Author: Demon ''Website: http://demon.tw ''Date: 2012/2/22 Dim http, res Set http = CreateObject("Msxml2.XMLHTTP") http.open "GET", "http://demon.tw", False http.send res = http.responseBody WScript.Echo VarType(res), TypeName(res) 再例如，ADODB.Stream 对象的 Read 方法返回的也是字节数组： 复制代码 代码如下: ''Author: Demon ''Website: http://demon.tw ''Date: 2012/2/22 Dim ado, data Set ado = CreateObject("ADODB.Stream") ado.Type = 1 ado.Open ado.LoadFromFile "demon.tw" data = ado.Read WScript.Echo VarType(data), TypeName(data) 那么如何在 VBS 中定义一个字节数组呢？有人说那还不简单，用 CByte 函数强制转换一下不就行了？真的是这样么，写个简单的例子测试一下： 复制代码 代码如下: ''Author: Demon ''Website: http://demon.tw ''Date: 2012/2/22 Dim a(9), i For i = 0 To 9 a(i) = CByte(i) Next WScript.Echo VarType(a), TypeName(a) ''输出 8204 Variant()程序输出 8204 Variant()，很可惜，这不是我们想要的。 那么正确的方法是什么呢？其实在《用VBS读写二进制文件的另一种方法》中出现过，使用 Msxml2.DOMDocument 对象： 复制代码 代码如下: ''Author: Demon ''Website: http://demon.tw ''Date: 2012/2/22 Dim xmldoc, node, bytes Set xmldoc = CreateObject("Msxml2.DOMDocument") Set node = xmldoc.CreateElement("binary") node.DataType = "bin.hex" ''demon.tw 的十六进制值为 ''64 65 6D 6F 6E 2E 74 77 node.Text = "64656D6F6E2E7477" bytes = node.NodeTypedValue WScript.Echo VarType(bytes), TypeName(bytes) 这样 bytes 变量就是字节数组了，如果你知道其他的方法，欢迎不吝赐教。 原文：http://demon.tw/programming/vbs-byte-array.html |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于在VBS中定义字节数组Byte()介绍的所有评论
