VFP 愛用者社區

mp484 · 註冊時間: 2006-08-08 文章: 84 第 1 樓

如果要使用VFP去其他網站抓取天氣的資訊，請問目前有何做法？

syntech · 發表於: 星期五八月 30, 2013 10:50 am 文章主題:

CREATOBJECT(瀏覽器),開天氣預報網站,取得資料.

如果是網頁資料,就要自己解析資料再整理,

如果有提供api取得xml資料,
你要想辦法把xml轉回你要的物件,陣列,或是 cursor.
vfp7 以後提供的xmltocursor不見得可以直接用.
可以 google 看看 foxpro 做rss reader 的作法.

如果可以直接取得JSON格式資料,
找別人寫的JSON Serializer 的 PRG檔.
就可以把JSON 資料轉成FOXPRO的物件,陣列,或是 cursor.
後面就隨你發揮

tuberose · 註冊時間: 2006-05-02 文章: 33 第 3 樓

Clear
Wait Window "正在提取数据，请稍等...." Nowait
cStr = ""
oIE = Createobject("internetexplorer.application")
oIE.Visible = .F.
oIE.Navigate("http://www.soso.com/tb.q?cid=tb.tq&cin=&city=台北")
tStartSecond = Seconds()
Do While oIE.Busy = .T. Or oIE.ReadyState#4
If Seconds() - tStartSecond > 10
Exit
Endif
Inkey(0.5)
Enddo

Wait Clear

cStr= oIE.Document.Body.innertext
oIE.Quit()
*!* 今天
? Substr(Mline(cStr, 1), 15)
? "今天" + Strextract(Mline(cStr, 3), "今天")
? Alltrim(Mline(cStr,4))
? Alltrim(Mline(cStr,5))
? "==================="
*!* 明天
? "明天" + Strextract(Mline(cStr, 6), "明天")
? Alltrim(Mline(cStr,7))
? Alltrim(Mline(cStr, Cool

)
? "==================="
*!* 后天
? "后天" + Strextract(Mline(cStr, 9), "后天")
? Alltrim(Mline(cStr,10))
? Alltrim(Mline(cStr,11))
? "==================="