求助：网页源码获取之后，不知道是不是遍历循环不对，居然只有一条数据，实际有77条数据，麻烦补充下循环遍历，谢谢！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：11.png

代码如下：

Dim web As new System.Windows.Forms.WebBrowser

web.ScriptErrorsSuppressed = True

web.Navigate("http://search.jcrb.com/was5/web/search?page=1&channelid=263328&perpage=10000000&outlinepage=10000000")

Do Until web.ReadyState = 4 AndAlso web.document.GetElementsByTagName("table").count > 1

Application.DoEvents

Loop

Dim str As String = ""

Dim tb1s = web.document.GetElementsByTagName("table")(4) '从第4个<Table>开始查找

For Each tb1 As object In tb1s.GetElementsByTagName("tr")'遍历TR'

Dim sa = tb1.GetElementsByTagName("a")'获取A标签元素'

If sa.count > 0 Then

Dim a = sa(0)

Dim Tel As String = a.InnerHtml

Dim Parts1() As String = Tel.Split("</FONT>")

str &= Parts1(0) & vbcrlf

str &= a.GetAttribute("href") & vbcrlf

Dim shijian As String= (FileSys.GetName(a.GetAttribute("href")).Insert(5,"-")).Insert(8,"-")

Dim Parts() As String = shijian.Split("_")

str & =Parts(0).Remove(0,1) & vbcrlf

End If

output.Show(str)

文章列表源码：

<tr>

<font size="3"><a href="http://www.gzwengan.jcy.gov.cn/jcyw/201605/t20160505_1787530.shtml" target="_blank">加强与代表面对面沟通,进一步提高代表的满意率</font> </a>

<br> 4月27日,瓮安县人民检察院陈德清副检察长和人大代表联络办公室的两名工作人员专程到中坪镇政府向第十六届人大代表?中坪镇人大主席王成伦汇报提案办理情况 <br></font>

</td>

</tr>

</Table>

[此贴子已经被作者于2016/11/2 20:53:15编辑过]

导出分析一下就知道了，table都在同一个层次，并不是在第4个table里面

Dim web As new System.Windows.Forms.WebBrowser

web.ScriptErrorsSuppressed = True

web.Navigate("http://search.jcrb.com/was5/web/search?page=1&channelid=263328&perpage=10000000&outlinepage=10000000")

Do Until web.ReadyState = 4 AndAlso web.document.GetElementsByTagName("table").count > 1

Application.DoEvents

Loop

output.Show(web.document.body.Innerhtml)

此主题相关图片如下：1.png

我分析了前三个table里面的数据我不想要，所以从第四个之后开始读取。

折腾了半天怎么弄都只有一条数据

弄上下面代码，运行直接没有反映了【去掉红色部分又能进行读取数据，但是还是只有一条数据】

Dim web As new System.Windows.Forms.WebBrowser

web.ScriptErrorsSuppressed = True

web.Navigate("http://search.jcrb.com/was5/web/search?page=1&channelid=263328&perpage=10000000&outlinepage=10000000")

Do Until web.ReadyState = 4 AndAlso web.document.GetElementsByTagName("table").count > 1

Application.DoEvents

Loop

'output.Show(web.document.body.Innerhtml)

Dim str As String = ""

Dim tb1s = web.document.GetElementsByTagName("table")(4) '从第4个<Table>开始查找

For Each tb1 As object In tb1s.GetElementsByTagName("td")'遍历Td'

Dim sa = tb1.GetElementsByTagName("a")'获取A标签元素'

For Each a As object In sa

If a.GetAttribute("className") = "f" Then

If sa.count > 0 Then

Dim a1 = sa(0)

Dim Tel As String = a.InnerHtml

Dim Parts1() As String = Tel.Split("</FONT>")

str &= Parts1(0) & vbcrlf

str &= a1.GetAttribute("href") & vbcrlf

Dim shijian As String= (FileSys.GetName(a.GetAttribute("href")).Insert(5,"-")).Insert(8,"-")

Dim Parts() As String = shijian.Split("_")

str & =Parts(0).Remove(0,1) & vbcrlf

End If

output.Show(str)

代码始终在第四个table里面找，怎么会有呢，一个table只有一条数据

Dim web As new System.Windows.Forms.WebBrowser

web.ScriptErrorsSuppressed = True

web.Navigate("http://search.jcrb.com/was5/web/search?page=1&channelid=263328&perpage=10000000&outlinepage=10000000")

Do Until web.ReadyState = 4 AndAlso web.document.GetElementsByTagName("table").count > 1

Application.DoEvents

Loop

Dim str As String = ""

Dim tb1s = web.document.GetElementsByTagName("table") '从第4个<Table>开始查找

For i As Integer = 4 To tb1s.count - 1

Dim tb1 = tb1s(i)

Dim sa = tb1.GetElementsByTagName("a")'获取A标签元素'

If sa.count > 0 Then

Dim a = sa(0)

Dim Tel As String = a.InnerHtml

Dim Parts1() As String = Tel.Split("</FONT>")

str &= Parts1(0) & vbcrlf

str &= a.GetAttribute("href") & vbcrlf

Dim shijian As String= (FileSys.GetName(a.GetAttribute("href")).Insert(5,"-")).Insert(8,"-")

Dim Parts() As String = shijian.Split("_")

str & =Parts(0).Remove(0,1) & vbcrlf

End If

output.Show(str)

主题：求助：网页源码获取之后，不知道是不是遍历循环不对，居然只有一条数据，实际有77条数据，麻烦补充下循环遍历，谢谢！