VFP 愛用者社區

[CPS0204]

http://yamstock.megatime.com.tw/rate.htm

交叉匯率表!,我想抓出此網頁的各個匯率!

看了他的網頁內容, 看不出來應找尋的變數?

有高手可幫忙一下嗎,謝謝

[tuberose]

*!* 交叉匯率表
*!* Table : 2
*!* Rows number : 15
*!* Columns number : 11
*!* Cells number : 171
*!* ...................


Clear
Wait Window "Please wait for a moment......" Nowait
oIE = Createobject("internetexplorer.application")
oIE.Visible = .T. && or .F.
oIE.Navigate("http://yamstock.megatime.com.tw/rate.htm")
tStartSecond = Seconds()
Do While oIE.Busy = .T. Or oIE.ReadyState#4
If Seconds() - tStartSecond > 10 && Or 10+
Exit
Endif
Inkey(0.5)
Enddo
Wait Window "一共有 Table 数为：" + Str(oIE.Document.getelementsbytagname("Table").Length) Timeout 2

Create Cursor 交叉匯率表 ( 幣锺 C(6), 美金 C(6), 台幣 C(6), 日圓 C(6), 港幣 C(6), 人民幣 C(6), ;
英鎊 C(6), 歐元 C(6), 加幣 C(6), 澳幣 C(6), 泰銖 C(6), 紐幣 C(6), 南非幣 C(6) )

objTable = oIE.Document.getElementsByTagName("table").[2]

nRows = 0
For Each objRow In objTable.Rows
nRows = nRows + 1
If nRows > 3
Insert Into 交叉匯率表 Values ( objRow.cells(0).innertext, ;
objRow.cells(1).innertext, objRow.cells(2).innertext, ;
objRow.cells(3).innertext, objRow.cells(4).innertext, ;
objRow.cells(5).innertext, objRow.cells(6).innertext, ;
objRow.cells(7).innertext, objRow.cells(.innertext, ;
objRow.cells(9).innertext, objRow.cells(10).innertext, ;
objRow.cells(11).innertext, objRow.cells(12).innertext )
Endif
Next

oIE.Quit()

Select 交叉匯率表
Go Top
Browse Last

[CPS0204]

可以了,謝謝大大