在VBS中定義字節(jié)數(shù)組Byte()介紹
晚上在 QQ 上看到昵稱為“亂碼”的好友回答了搜搜問問里一個問題:
在VBS中有辦法定義字節(jié)數(shù)組么?
在VBS中有辦法定義字節(jié)數(shù)組么?就是字節(jié)子類型數(shù)組(VarType是8209的那種)注意不是VB!
但是回答實在是不堪入目,連別人問什么都沒搞懂,而且那人居然還滿意,真不知道他在想什么。
閑來沒事,我來簡單回答一下。首先要搞清楚別人在問什么,VBS 是弱類型腳本語言,只有一種數(shù)據(jù)類型,稱為 Variant,但是 Variant 可以進(jìn)一步分為幾種子類型,這里不展開,詳見《VBScript 數(shù)據(jù)類型》。所謂字節(jié)子類型數(shù)組(VarType是8209的那種),就是子類型為 Byte 的數(shù)組(vbByte + vbArray = 17 + 8192 = 8209)。
例如,Msxml2.XMLHTTP 對象的 responseBody 屬性返回的就是字節(jié)數(shù)組:
'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 方法返回的也是字節(jié)數(shù)組:
'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 中定義一個字節(jié)數(shù)組呢?有人說那還不簡單,用 CByte 函數(shù)強制轉(zhuǎn)換一下不就行了?真的是這樣么,寫個簡單的例子測試一下:
'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讀寫二進(jìn)制文件的另一種方法》中出現(xiàn)過,使用 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 的十六進(jìn)制值為
'64 65 6D 6F 6E 2E 74 77
node.Text = "64656D6F6E2E7477"
bytes = node.NodeTypedValue
WScript.Echo VarType(bytes), TypeName(bytes)
這樣 bytes 變量就是字節(jié)數(shù)組了,如果你知道其他的方法,歡迎不吝賜教。
原文:http://demon.tw/programming/vbs-byte-array.html
欄 目:vb
下一篇:WScript.Shell對象SpecialFolders屬性未公開文檔分享
本文標(biāo)題:在VBS中定義字節(jié)數(shù)組Byte()介紹
本文地址:http://mengdiqiu.com.cn/a1/vb/7359.html
您可能感興趣的文章
- 01-10下載文件到本地運行的vbs
- 01-10VBS中的正則表達(dá)式的用法大全 <font color=red>原創(chuàng)&
- 01-10VBS中SendKeys的基本應(yīng)用
- 01-10VBScript教程 第十一課深入VBScript
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript語法速查及實例說明
- 01-10VBS中Select CASE的其它用法
- 01-10VBScript教程 第七課使用條件語句
- 01-10vbscript 可以按引用傳遞參數(shù)嗎?
- 01-10VBScript教程 第二課在HTML頁面中添加VBscript代碼


閱讀排行
本欄相關(guān)
- 01-10下載文件到本地運行的vbs
- 01-10飄葉千夫指源代碼,又稱qq刷屏器
- 01-10SendKeys參考文檔
- 01-10什么是一個高效的軟件
- 01-10VBS中的正則表達(dá)式的用法大全 &l
- 01-10exe2swf 工具(Adodb.Stream版)
- 01-10VBS中SendKeys的基本應(yīng)用
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript教程 第十一課深入VBScript
- 01-10VBScript語法速查及實例說明
隨機閱讀
- 01-10delphi制作wav文件的方法
- 01-10使用C語言求解撲克牌的順子及n個骰子
- 01-10SublimeText編譯C開發(fā)環(huán)境設(shè)置
- 08-05DEDE織夢data目錄下的sessions文件夾有什
- 08-05織夢dedecms什么時候用欄目交叉功能?
- 04-02jquery與jsp,用jquery
- 01-11Mac OSX 打開原生自帶讀寫NTFS功能(圖文
- 01-10C#中split用法實例總結(jié)
- 01-11ajax實現(xiàn)頁面的局部加載
- 08-05dedecms(織夢)副欄目數(shù)量限制代碼修改