域名預(yù)訂/競(jìng)價(jià)，好“米”不錯(cuò)過

        保存網(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ī)遇！