请教关于百度小偷代码中的一个问题

Question

Dim req As WebRequest = WebRequest.Create("http://www.baidu.com/s?word=小偷代码&_si.x=21&_si.y=9")
Try
    Dim result As WebResponse = req.GetResponse()
    Dim ReceiveStream As Stream = result.GetResponseStream()    Dim read(512) As [Byte]
    Dim bytes As Integer = ReceiveStream.Read(read, 0, 512)    lblCont.Text = ""
    While bytes > 0        Dim encode As Encoding = Encoding.GetEncoding("gb2312")
        lblCont.Text = lblCont.Text + encode.GetString(read, 0, bytes)        bytes = ReceiveStream.Read(read, 0, 512)
    End While
Catch
End Try
lblCont.Text = lblCont.Text.Replace("""", "")
用上面这段代码，可以取得百度搜索结果中第一页的所有源代码，我现在只想取得结果页中那10条内容部分的代码，其它的搜索框那一块和页码下面那些内容都不要，也就是只要
<DIV id=ScriptDiv></DIV>
</td></tr></table>
......
<br clear=all>
这两段代码之间的那部分内容，请大家帮我看看代码该怎么改？

Answer 1

截取代码咯,给个例子你看
下面是截取tabel间内容的
 private string GetNewsList(string htmlCode)
    {
        int startPos, endPos, codeLength;
        startPos = htmlCode.IndexOf("<TABLE cellSpacing=0 cellPadding=0 width=\"93%\" align=center border=0>", 0);
        endPos = htmlCode.IndexOf("<TABLE width=\"93%\" align=center border=0>", startPos);
        codeLength = startPos - endPos;
        return htmlCode.Substring(startPos, codeLength);
    }

Answer 2

本人很菜，怎么把这两段代码结合一起用，达到只截取想要部分的HTML代码呢？