Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]网页取值（又有新问题，见8楼）


  共有2752人关注过本帖树形打印复制链接

主题：[求助]网页取值（又有新问题，见8楼）
帅哥哟，离线，有人找我吗？
yyzlxc
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1525 积分：10580 威望：0 精华：0 注册：2008/9/24 11:16:00 		[求助]网页取值（又有新问题，见8楼）  发帖心情 Post By：2020/3/18 10:32:00 [只看该作者]


Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
web.Navigate("https://vip.stock.finance.sina.com.cn/corp/go.php/vCI_CorpOtherInfo/stockid/000002/menu_num/2.phtml")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim tb As object = web.Document.GetElementsByTagName("table")(4)
Dim trs = tb.GetElementsByTagName("tr")
For i As Integer = 0 To trs.count-1
    Dim tds As object =  trs(i).GetElementsByTagName("td")
    For j As Integer = 0 To tds.count-1
        output.show(i & "行" & j & "列:" & tds(j).innerText)
    Next
Next

如何将0列的第2行至最后行的数据读成一个用 “,” 号分隔的字符串，请各位老师指教，谢谢！

[此贴子已经被作者于2020/3/19 10:16:14编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/18 10:38:00 [只看该作者]

dim s as string = ""
    For j As Integer = 1 To tds.count-1
s = s & "," & tds(j).innerText
        output.show(i & "行" & j & "列:" & tds(j).innerText)
    Next
output.show(s)
 回到顶部
帅哥哟，离线，有人找我吗？
yyzlxc
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1525 积分：10580 威望：0 精华：0 注册：2008/9/24 11:16:00 		  发帖心情 Post By：2020/3/18 10:52:00 [只看该作者]

谢谢有点蓝老师的指教，如果只需要0列第二行及以后的字符串(1列的数据不需要)，代码如何写？还请老师指教，谢谢！！

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/18 11:01:00 [只看该作者]

dim s as string = ""
For i As Integer = 1 To trs.count-1
    Dim tds As object =  trs(i).GetElementsByTagName("td")
    s = s & "," & tds(0).innerText
Next
output.show(s)
 回到顶部
帅哥哟，离线，有人找我吗？
yyzlxc
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1525 积分：10580 威望：0 精华：0 注册：2008/9/24 11:16:00 		  发帖心情 Post By：2020/3/18 11:18:00 [只看该作者]

代码出错


图片点击可在新窗口打开查看此主题相关图片如下：捕获2.png
图片点击可在新窗口打开查看

代码如下，错在哪里？
Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
web.Navigate("https://vip.stock.finance.sina.com.cn/corp/go.php/vCI_CorpOtherInfo/stockid/000002/menu_num/2.phtml")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim tb As object = web.Document.GetElementsByTagName("table")(4)
Dim trs = tb.GetElementsByTagName("tr")

Dim s As String = ""
For i As Integer = 1 To trs.count-1
    Dim tds As object =  trs(i).GetElementsByTagName("td")
    s = s & "," & tds(0).innerText
Next
output.show(s)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/18 11:22:00 [只看该作者]

For i As Integer = 1 To trs.count-1
    Dim tds As object =  trs(i).GetElementsByTagName("td")
if tds.count> 0
    s = s & "," & tds(0).innerText
end if
Next
 回到顶部
帅哥哟，离线，有人找我吗？
yyzlxc
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1525 积分：10580 威望：0 精华：0 注册：2008/9/24 11:16:00 		  发帖心情 Post By：2020/3/18 11:34:00 [只看该作者]

谢谢有点蓝老师，问题解决！！

 回到顶部
帅哥哟，离线，有人找我吗？
yyzlxc
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1525 积分：10580 威望：0 精华：0 注册：2008/9/24 11:16:00 		  发帖心情 Post By：2020/3/19 9:29:00 [只看该作者]

又有新问题，代码运行50行左右，跳出运行错误对话框“超出系统资源”，并退出程序，如何解决，请老师指教，谢谢！！



图片点击可在新窗口打开查看此主题相关图片如下：捕获3.png
图片点击可在新窗口打开查看



 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/19 10:23:00 [只看该作者]

内存溢出。不要在循环里不断new浏览器实例

Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
For Each dr As DataRow In DataTables("表A").Select("","简码")
    If dr.IsNull("简码") = False And dr.IsNull("行业") Then
        
        web.Navigate("https://vip.stock.finance.sina.com.cn/corp/go.php/vCI_CorpOtherInfo/stockid/" & dr("简码") & "/menu_num/2.phtml")
        Do Until web.ReadyState = 4
            Application.DoEvents
        Loop
        Dim hy As String = ""
        Dim tb1 As object = web.Document.GetElementsByTagName("table")(3)
        Dim trs1 = tb1.GetElementsByTagName("tr")
        Dim tds1 As object = trs1(2).GetElementsByTagName("td")
        hy = tds1(0).innerText
        If hy = "" Then
            hy = "无"
        End If
        Dim gn As String = ""
        Dim tb2 As object = web.Document.GetElementsByTagName("table")(4)
        Dim trs2 = tb2.GetElementsByTagName("tr")
        For i2 As Integer = 1 To trs2.count-1
            Dim tds2 As object =  trs2(i2).GetElementsByTagName("td")
            If tds2.count > 0
                If gn = "" Then
                    gn = tds2(0).innerText
                Else
                    gn = gn & "," & tds2(0).innerText
                End If
            End If
        Next
        If gn = "对不起,暂时没有相关概念板块信息" Then
            gn = "无"
        End If
        dr("行业") = hy
        dr("概念") = gn
        GC.Collect()
    End If
Next
DataTables("表A").Save()
 回到顶部
帅哥哟，离线，有人找我吗？
yyzlxc
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1525 积分：10580 威望：0 精华：0 注册：2008/9/24 11:16:00 		  发帖心情 Post By：2020/3/19 13:16:00 [只看该作者]

谢谢有点蓝老师的指教，代码修改后，“超出系统资源”的问题得到解决，但是代码运行1000行左右会出现错误提示（如下），程序不会自己退出。
重新打开程序又可以运行，但是运行1000行左右，又会出现同样的错误，如何解决，还请有点蓝老师指教，谢谢！！


.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.1.19.19
错误所在事件：窗口,窗口1,Button1,Click
详细错误信息：
“3”的值对于“index”无效。“index”应介于 0 和 -1 之间。
参数名: index
[此贴子已经被作者于2020/3/19 13:16:38编辑过]
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询