|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
mp484
註冊時間: 2006-08-08 文章: 84
第 1 樓
|
發表於: 星期五 八月 30, 2013 4:18 am 文章主題: 如何取得天氣的資料? |
|
|
如果要使用VFP去其他網站抓取天氣的資訊,請問目前有何做法? |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4214 來自: Taipei,Taiwan
第 2 樓
|
發表於: 星期五 八月 30, 2013 10:50 am 文章主題: |
|
|
CREATOBJECT(瀏覽器),開天氣預報網站,取得資料.
如果是網頁資料,就要自己解析資料再整理,
如果有提供api取得xml資料,
你要想辦法把xml轉回你要的物件,陣列,或是 cursor.
vfp7 以後提供的xmltocursor不見得可以直接用.
可以 google 看看 foxpro 做rss reader 的作法.
如果可以直接取得JSON格式資料,
找別人寫的JSON Serializer 的 PRG檔.
就可以把JSON 資料轉成FOXPRO的 物件,陣列,或是 cursor.
後面就隨你發揮 _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
tuberose
註冊時間: 2006-05-02 文章: 33
第 3 樓
|
發表於: 星期六 十月 05, 2013 10:02 am 文章主題: |
|
|
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,)
? "==================="
*!* 后天
? "后天" + Strextract(Mline(cStr, 9), "后天")
? Alltrim(Mline(cStr,10))
? Alltrim(Mline(cStr,11))
? "===================" |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|