用MSXML2.XMLHTTP提取网页源码后不知道怎么才能一行行分析源码

用MSXML2.XMLHTTP提取网页源码后不知道如何才能一行行分析源码
用了一个笨方法

VB.NET code

Private Sub tiqu(ByVal url As String)        Dim Retrieval        Retrieval = CreateObject("MSXML2.XMLHTTP")        With Retrieval            .Open("Get", url, False) ', "", ""             .Send()            My.Computer.FileSystem.WriteAllBytes("c:\abc.htm", .ResponseBody, False)        End With        Retrieval = Nothing    End Sub

将获取的源码写到了一个文件里 然后用
Dim shuju As New StreamReader("c:\abc.htm", System.Text.Encoding.Default)
shuju.ReadLine()

这样实现一行行读取出来进行分析 知道这样很笨 不知道正确的方法如何实现(就是不用写文件再读文件的方法) 请指教~

[解决办法]

VB.NET code

'获取网页源码Public Function GetBody(priStrUrl As String, priStrMothed As String) As String    Dim HtmlCode As String = ""    Try        Retrieval.open(priStrMothed, priStrUrl, False, "", "")        Retrieval.send(Nothing)        Dim b As [Byte]() = DirectCast(Retrieval.responseBody, [Byte]())        HtmlCode = System.Text.ASCIIEncoding.GetEncoding("gb2312").GetString(b, 0, b.Length)        Retrieval.abort()    Catch e As Exception        e.ToString()        Return "error"    End Try    Return HtmlCodeEnd Function 

 

查看更多 下一篇