如何从网页上读取数据
本帖最后由 xilaianzxsc 于 2013-08-01 13:43:11 编辑
假设现有一个网页，网页上，有数据库的。

举个例子吧。下面的表中，就有水泥的价格行情。

http://info.1688.com/detail/1147877390.html


问：如何用VFP9.0编程 ，自动读取该网页上的数据？



（如果很难，就算了吧。我也只是好奇而已。）



[解决办法]
Clear
Public oIE,objTable
oIE = Createobject("internetexplorer.application")
oIE.Visible = .F.
cCurrency = "eur" && have 55 values of currency available.
oIE.Navigate("http://info.1688.com/detail/1147877390.html")
tStartSecond = Seconds()
Do While oIE.Busy = .T. Or oIE.ReadyState#4
If Seconds() - tStartSecond > 10
Exit
Endif
Inkey(0.2)
Enddo

objCollection=oIE.Document.getElementsByTagName("table").[0] && Eighth in the Table

objTable = objCollection

Create Cursor 水泥价格 (单品 C(4), 出厂标准 C(10), 地域 C(4), 价格 N(10,2), 涨跌 N(6,2), 报价日期 C(10))

For Each objRow In objTable.Rows
If objRow.cells(0).innertext # "单品"
? objRow.cells(0).innertext
Insert Into 水泥价格 (单品, 出厂标准, 地域, 价格, 涨跌, 报价日期);
VALUES (objRow.cells(0).innertext, objRow.cells(1).innertext, objRow.cells(2).innertext, ;
VAL(objRow.cells(3).innertext), Val(objRow.cells(4).innertext), objRow.cells(5).innertext)
Endif
Next
oIE.Quit()
Go Top
Browse Last