如何通过XMLHTTP直接获取网页文本（不是源代码）

本帖最后由 penguinhzf 于 2013-12-27 23:00:16 编辑

解决方案 »

  1.   


    试过，跟ResponseBody一样返回的是带有<html>标签的内容啊，我是想自动把HTML标签全部去掉啊。
      

  2.   

    没有直接获取的方法吗?
    Sub Test()
        On Error Resume Next
        Set oDoc = CreateObject("htmlfile")
        Set ms = CreateObject("MSScriptControl.ScriptControl")
        ms.Language = "JScript"
        With CreateObject("Microsoft.XMLHTTP")
            .Open "GET", "http://bbs.csdn.net/topics/390680533", False
            .send
            oDoc.body.innerHTML = .responseText
            ss = oDoc.body.innerText
            Open "D:\文本.txt" For Append As #1
            Print #1, ss
            Close #1
        End With
    End Sub
      

  3.   

    Sub Test()
        On Error Resume Next
        Set oDoc = CreateObject("htmlfile")
        Set ms = CreateObject("MSScriptControl.ScriptControl")
        ms.Language = "JScript"
        With CreateObject("Microsoft.XMLHTTP")
            .Open "GET", "http://bbs.csdn.net/topics/390680533", False
            .send
            oDoc.body.innerHTML = .responseText
            ss = oDoc.body.innerText
            Open "D:\文本.txt" For Append As #1
            Print #1, ss
            Close #1
        End With
    End Sub好.这正是我想要的.
      

  4.   

    没有什么不可以的：
    Sub Test()
        On Error Resume Next
        Set oDoc = CreateObject("htmlfile")
        Set ms = CreateObject("MSScriptControl.ScriptControl")
        ms.Language = "JScript"
        With CreateObject("Microsoft.XMLHTTP")
            .Open "GET", "http://bbs.csdn.net/topics/390680533", False
            .send
            oDoc.body.innerHTML = .responseText
            Debug.Print Split(oDoc.getelementbyid("post-396448466").Rows(0).Cells(1).innerText, vbCrLf)(2)
        End With
    End Sub