如何使用 VBScript 將網站數據保存到文件中？

Question

在以下代碼中，如何將文本保存到文本文件（例如 text.txt）而不是當前的MsgBox ？

myURL = "http://URL.com"

Set oXMLHttp = CreateObject("MSXML2.XMLHTTP")
Set ohtmlFile = CreateObject("htmlfile")

oXMLHttp.Open "GET", myURL, False
oXMLHttp.send

If oXMLHttp.Status = 200 Then

ohtmlFile.Write oXMLHttp.responseText
ohtmlFile.Close

Set oTable = ohtmlFile.getElementsByTagName("table")
For Each oTab In oTable
    MsgBox oTab.Innertext
Next
End If

WScript.Quit

請幫我！

謝謝！

Answer 1

您可以使用 FileSystemObject 的OpenTextFile 方法。

您可以使用其他對象在代碼頂部創建 FileSystemObject：

Set objFSO = CreateObject("Scripting.FileSystemObject")

並添加這些常量：

Const ForReading = 1, ForWriting = 2, ForAppending = 8

如果您想將 append 的所有內容放入同一個文件中，您可以在循環之外創建並打開該文件：

sFileName = "c:\text.txt"
Set objFile = objFSO.OpenTextFile(sFileName, ForAppending, True)
For Each oTab In oTable
    objFile.WriteLine oTab.Innertext
Next
objFile.Close

否則，您可以在循環中創建多個文件：

Dim iTableCounter
iTableCounter = 0

For Each oTab In oTable

    iTableCounter = iTableCounter + 1
    sFileName = "c:\table_" & iTableCounter & ".txt" ' create a dynamic file name using table name perhaps

    Set objFile = objFSO.OpenTextFile(sFileName, ForWriting, True)
    objFile.Write oTab.Innertext
    objFile.Close

Next