none
"本人需要从一个网页获取内容(例如:用户名,电话,地址等),然后再把这些内容填写到另一个页面, 朋友推荐用VB做个小程序,研究了3天后还是毫无头绪。 RRS feed

  • 问题

  • "本人需要从一个网页获取内容(例如:用户名,电话,地址等),然后再把这些内容填写到另一个页面, 朋友推荐用VB做个小程序,研究了3天后还是毫无头绪。
     

     

    2007年8月2日 7:09

答案

  • 从一个网页抓取内容然后填充到另外一个网页,您可以尝试使用WebClient写小偷程序来实现,具体的请参考下述代码:
    Imports System.net
    Imports System.io

    Public Class WebForm1Class WebForm1
    Inherits System.Web.UI.Page
    Public web As New WebClient
    Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '先读网页源文件
    If Session("aaa") = "" Then
    Dim str As Stream
    str = web.OpenRead("http://www.023ehouse.com")
    Dim read As New StreamReader(str, System.Text.Encoding.GetEncoding("GB2312"))
    Dim html As String = read.ReadToEnd()
    '接下来当然是分析源文件,提出自己要用的了
    Dim aaa, bbb, ccc '这里定义的都是用来处理结果的,要把中间自己要用的新闻给截取出来
    aaa = CStr(html)
    bbb = Split(aaa, "<div id=""onlinemb_05"">")
    aaa = bbb(1)
    ccc = Split(bbb(1), "</div>")
    aaa = ccc(0)

    '这里是把新闻地址转到自己的新闻显示页面,把本来的新闻地址当参数传给页面
    aaa = Replace(aaa, "href=""", "href=""newsshow.asp?url=http://www.023ehouse.com/")
    aaa = Replace(aaa, "target=""_blank""", "")

    '这里就是写session了
    Session("aaa") = aaa

    End If

    '最后把处理好的输出
    Response.Write(Session("aaa"))
    End Sub
    End Class

    关于小偷程序的详细示例,请参考下述文章:http://blog.csdn.net/n4ry/archive/2006/04/29/696820.aspx

    2007年8月2日 8:34

全部回复

  • 从一个网页抓取内容然后填充到另外一个网页,您可以尝试使用WebClient写小偷程序来实现,具体的请参考下述代码:
    Imports System.net
    Imports System.io

    Public Class WebForm1Class WebForm1
    Inherits System.Web.UI.Page
    Public web As New WebClient
    Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '先读网页源文件
    If Session("aaa") = "" Then
    Dim str As Stream
    str = web.OpenRead("http://www.023ehouse.com")
    Dim read As New StreamReader(str, System.Text.Encoding.GetEncoding("GB2312"))
    Dim html As String = read.ReadToEnd()
    '接下来当然是分析源文件,提出自己要用的了
    Dim aaa, bbb, ccc '这里定义的都是用来处理结果的,要把中间自己要用的新闻给截取出来
    aaa = CStr(html)
    bbb = Split(aaa, "<div id=""onlinemb_05"">")
    aaa = bbb(1)
    ccc = Split(bbb(1), "</div>")
    aaa = ccc(0)

    '这里是把新闻地址转到自己的新闻显示页面,把本来的新闻地址当参数传给页面
    aaa = Replace(aaa, "href=""", "href=""newsshow.asp?url=http://www.023ehouse.com/")
    aaa = Replace(aaa, "target=""_blank""", "")

    '这里就是写session了
    Session("aaa") = aaa

    End If

    '最后把处理好的输出
    Response.Write(Session("aaa"))
    End Sub
    End Class

    关于小偷程序的详细示例,请参考下述文章:http://blog.csdn.net/n4ry/archive/2006/04/29/696820.aspx

    2007年8月2日 8:34
  • 似乎只回答了问题的一半,没有告诉我如何抓取网页上的数据
    2011年4月29日 3:40