专家坐堂-请教下数据抓取的问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教下数据抓取的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105240)

--  作者：rjh4078
--  发布时间：2017/8/15 10:41:00
--  请教下数据抓取的问题
http://money.finance.sina.com.cn/corp/go.php/vMS_MarketHistory/stockid/600460.phtml?year=2013&jidu=1

如何自动从这个页面抓取每个股票的交易数据？

http://www.cnblogs.com/seacryfly/articles/stock.html
这位大神给了一些方法但是不知道怎么转成ft的

--  作者：有点甜
--  发布时间：2017/8/15 11:00:00
--

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=98333&skin=0

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=62394&skin=0

--  作者：rjh4078
--  发布时间：2017/8/15 11:22:00
--
如何获取历史的呢

--  作者：有点甜
--  发布时间：2017/8/15 11:38:00
--

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://money.finance.sina.com.cn/corp/go.php/vMS_MarketHistory/stockid/600460.phtml?year=2013&jidu=1")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim tb = web.Document.GetElementById("FundHoldSharesTable")
Dim trs = tb.GetElementsByTagName("tr")   \'根据标签得到数据集合
For i As Integer = 1 To trs.count-1
    output.show(trs(i).InnerText)
    Dim tds = trs(i).GetElementsByTagName("td")
    For j As Integer = 0 To tds.count-1
        output.show(tds(j).InnerText)
    Next
Next

--  作者：rjh4078
--  发布时间：2017/8/15 19:17:00
--

以下是引用有点甜在2017/8/15 11:38:00的发言：

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://money.finance.sina.com.cn/corp/go.php/vMS_MarketHistory/stockid/600460.phtml?year=2013&jidu=1")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim tb = web.Document.GetElementById("FundHoldSharesTable")
Dim trs = tb.GetElementsByTagName("tr")   \'根据标签得到数据集合
For i As Integer = 1 To trs.count-1
    output.show(trs(i).InnerText)
    Dim tds = trs(i).GetElementsByTagName("td")
    For j As Integer = 0 To tds.count-1
        output.show(tds(j).InnerText)
    Next
Next

甜版谢谢这个代码能否通用呢其他网页里的表格采集怎么弄呢
比如http://www.askci.com/news/finance/2016/03/28/10712p1mg.shtml 我改了地址抓不出来

--  作者：有点蓝
--  发布时间：2017/8/15 20:07:00
--
学一下html的基础，然后分析网页源代码，都是一些基础性的东西

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://www.askci.com/news/finance/2016/03/28/10712p1mg.shtml")
web.ScriptErrorsSuppressed = True
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim tb = web.Document.GetElementsByTagName("table")
Dim trs = tb(0).GetElementsByTagName("tr") \'根据标签得到数据集合
For i As Integer = 1 To trs.count-1
output.show(trs(i).InnerText)
Dim tds = trs(i).GetElementsByTagName("td")
For j As Integer = 0 To tds.count-1
output.show(tds(j).InnerText)
Next
Next

--  作者：rjh4078
--  发布时间：2017/8/16 7:27:00
--

以下是引用有点蓝在2017/8/15 20:07:00的发言：
学一下html的基础，然后分析网页源代码，都是一些基础性的东西

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://www.askci.com/news/finance/2016/03/28/10712p1mg.shtml")
web.ScriptErrorsSuppressed = True
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim tb = web.Document.GetElementsByTagName("table")
Dim trs = tb(0).GetElementsByTagName("tr") \'根据标签得到数据集合
For i As Integer = 1 To trs.count-1
output.show(trs(i).InnerText)
Dim tds = trs(i).GetElementsByTagName("td")
For j As Integer = 0 To tds.count-1
output.show(tds(j).InnerText)
Next
Next

谢谢蓝版
1.代码没有任何反应
2.跟这个相关的有哪些学习资料参考的

--  作者：有点甜
--  发布时间：2017/8/16 8:40:00
--

1、代码我测试没问题

2、参考帮助文档 https://msdn.microsoft.com/zh-cn/library/system.windows.forms.webbrowser_members(v=vs.80).aspx

--  作者：rjh4078
--  发布时间：2017/8/16 10:20:00
--
代码我测试了没有任何反应

--  作者：有点甜
--  发布时间：2017/8/16 11:22:00
--

代码没问题。请单独在浏览器测试网址看能否正常访问 http://www.askci.com/news/finance/2016/03/28/10712p1mg.shtml