保存網(wǎng)頁(Stream應(yīng)用)
前面我們利用三行代碼完成了對(duì)網(wǎng)頁的下載，可是下載到的內(nèi)容是亂碼，在這里我們來解決亂碼問題并把它保存成一個(gè)txt文件。
創(chuàng)建txt文件有兩種方法：一是FSO是一種常見的創(chuàng)建方法，但是在和xmlhttp配合使用時(shí)常會(huì)出現(xiàn)一些問題，這里不再詳細(xì)介紹。二是運(yùn)用Stream，stream是xmlhttp的最佳拍檔，我們下來介紹下使用方法：
1、 創(chuàng)建stream對(duì)象
代碼：Set mss = CreateObject("ADODB.Stream")
2、 設(shè)置參數(shù)
代碼：
mss.Mode = 3
mss.Type = 1
其中Mode模式，當(dāng)值為1時(shí)為讀取模式，2為寫入模式，3為讀寫模式，這里我們?yōu)榱瞬僮鞑皇芟拗茖⑵湓O(shè)置為3;type為返回?cái)?shù)據(jù)類型，1為Binary，2為Text，我們?cè)O(shè)置為1
3、 打開對(duì)象
代碼：mss.open()
4、 寫入數(shù)據(jù)
代碼：mss.Write(“內(nèi)容”)
Write是Stream的一個(gè)方法，用于寫入數(shù)據(jù)。
5、 保存到文件
mss.SaveToFile(FileName,[Options])
Savetofile方法，此方法用于將內(nèi)容保存到文件中，其中filename為文件名，可以隨便寫，options為存取選項(xiàng)，必填，為了避免內(nèi)容疊加我們?cè)O(shè)置為2。(請(qǐng)支持網(wǎng)站)
6、 關(guān)閉對(duì)象
代碼：set mss = nothing
關(guān)閉對(duì)象，并釋放內(nèi)存。
以上為保存內(nèi)容的幾個(gè)步驟，為了便于理解，我們舉例說明：
依然以“點(diǎn)點(diǎn)機(jī)票網(wǎng);為例：
url=";
Set ms = CreateObject("Microsoft.XMLHTTP")
ms.Open "GET",url ,False
ms.Send()
上以為下載網(wǎng)頁的代碼
Set mss = CreateObject("ADODB.Stream")
mss.Mode = 3
mss.Type = 1
mss.open()
mss.Write(ms.responseBody)
mss.SaveToFile(“1.txt”,2)
set mss=nothing
set ms=nothing
運(yùn)行以上代碼我們可以看到，程序已將 保存到了1.txt文件中，并且亂碼問題已經(jīng)解決。
申請(qǐng)創(chuàng)業(yè)報(bào)道，分享創(chuàng)業(yè)好點(diǎn)子。點(diǎn)擊此處，共同探討創(chuàng)業(yè)新機(jī)遇！
