- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教版主获取网页数据项目的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=95141)
-- 发布时间：2017/1/11 10:27:00
-- 请教版主获取网页数据项目的问题
http://youjia.chemcp.com/YuanYouJiaGe.asp
想获得油价表格中的数据并保存到“国际市场油价数据表”中
此主题相关图片如下：qq截图20170111100906.jpg
参考这个例子：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=49278
我做得项目总有错误提示，紧接着我的整个预览窗口都无法关闭了，只能关闭整个进程，并且获取不到任何数据，清版主指导。
此主题相关图片如下：qq截图20170111100740.jpg
项目文件：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:原油价格自动获取.foxdb |
-- 发布时间：2017/1/11 10:39:00
--
好像web.Document.GetElementById("container")这个也不对，这个数据表没有 ID
-- 发布时间：2017/1/11 10:53:00
--
Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
web.Navigate("http://youjia.chemcp.com/YuanYouJiaGe.asp")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
\'取数据
Dim Cols() As String = { "名称","价格","涨跌额","涨跌幅","发布日期" }
Dim elems As object = web.Document.GetElementsByTagName("table")(5).GetElementsByTagName("tr")
Dim m As Integer = 0
Dim t As Table = Tables("国际市场原油价格表")
For Each elem As object In elems
Dim i As Integer = -1
m = m + 1
If m > 1 Then \'因为网页的表格有标题,如果不判断,就会增加出一个空行
t.AddNew
End If
Dim tdelems As object = elem.GetElementsByTagName("td")
For Each tdelem As object In tdelems
i = i + 1
If t.Cols(i).IsNumeric Then
t.Current(Cols(i)) = val(tdelem.Innertext.replace("↓", "").replace("↑", "").replace("%", ""))
t.Current("录入日期") = Date.Today
Else
t.Current(Cols(i)) = tdelem.Innertext
t.Current("录入日期") = Date.Today
End If
Next
Next
t.save
-- 发布时间：2017/1/11 11:02:00
--
有点色版主效率越来越高了。
-- 发布时间：2017/1/11 11:20:00
--
获取各列的值，这样写
tdelems(0).Innertext
tdelems(1).Innertext
tdelems(2).Innertext
那么，你合并成条件，然后find表格，不就行了？
-- 发布时间：2017/1/11 11:29:00
--
不太明白。你的意思是，判断表格中的数据，包括名称，涨跌额，涨跌幅等，如果存在相同的，然后find？
-- 发布时间：2017/1/11 11:44:00
--
1、请读懂代码；
2、直接合成条件查表，如果存在，就不新增数据
-- 发布时间：2017/1/11 11:50:00
--
一会儿测试如下方案是否可行
Case "型号","规格"
Dim dr As DataRow = e.DataRow
If dr.IsNull("型号") = False AndAlso dr.IsNull("规格") = False Then
If e.DataTable.Compute("Count([_Identify])","型号 = \'" & dr("型号") & "\' And 规格 = \'" & dr("规格") & "\'") > 1 Then
MessageBox.Show("已经存在相同型号和规格的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.DataRow(e.DataCol.Name) = e.OldValue \'取消输入
End If
End If
End Select
-- 发布时间：2017/1/11 11:52:00
--
你获取数据的时候，不是可以直接查找是否已经存在相同数据吗？判断名称和日期，就行。
-- 发布时间：2017/1/11 12:38:00
--
Case "名称","发布日期"
Dim dr As DataRow = e.DataRow
If dr.IsNull("名称") = False AndAlso dr.IsNull("发布日期") = False Then
If e.DataTable.Compute("Count([_Identify])","名称 = \'" & dr("名称") & "\' And 发布日期 = \'" & dr("发布日期") & "\'") > 1 Then
MessageBox.Show("已经存在相同名称和发布日期的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.DataRow(e.DataCol.Name) = e.OldValue \'取消输入
End If
End If
End Select