我想開發一個vb程式實作 從某個天氣預報網站中獲取七天的天氣預報 但是不知道怎么實作 請問用哪個組件 什么方法 我知道怎樣獲取網頁源代碼 但是不會怎樣提取關鍵字 求大神不吝賜教！謝謝
uj5u.com熱心網友回復：
google VB正則運算式。uj5u.com熱心網友回復：
很多網站 支持 webservice呼叫 你可以 呼叫這些的 google就有這種 服務uj5u.com熱心網友回復：
在沒有足夠知識儲備的時候，虛心點，多學少做。過后你就知道有多種方法來實作。否則的話，雖然做出幾個小工具，但水平卻達不到足夠的程度，真輪到你做專案了，還是不行。uj5u.com熱心網友回復：
先笨辦法湊合，字串截取神馬的……uj5u.com熱心網友回復：
Sub 浦東天氣預報()
With CreateObject("WinHttp.WinHttpRequest.5.1")
.Open "GET", "http://www.thinkpage.cn/weather/api.svc/getWeather?city=101021300&language=zh-CHS&provider=SMART_CHS&unit=C", False
.SetRequestHeader "Referer", "http://www.thinkpage.cn/"
.SetRequestHeader "x-requested-with", "XMLHttpRequest"
.SetRequestHeader "Connection", "Keep-Alive"
.send
str1 = .responseText
temp = Split(str1, "{""Code")
With CreateObject("MSScriptControl.ScriptControl")
.Language = "JScript"
.AddCode "var o = " & str1 & ";"
Debug.Print .Eval("o.Weathers[0].CityName") & " " & .Eval("o.Weathers[0].Current.Text") & " " & .Eval("o.Weathers[0].Current.Temperature") & " " & .Eval("o.Weathers[0].Current.Direction") & " " & .Eval("o.Weathers[0].Current.Humidity") & " " & .Eval("o.Weathers[0].Current.Pressure") & " " & .Eval("o.Weathers[0].Current.Visibility") & " " & .Eval("o.Weathers[0].Current.Sunrise") & " " & .Eval("o.Weathers[0].Current.Sunset")
For i = 0 To 5
Debug.Print .Eval("o.Weathers[0].Forecast[" & i & "].Day") & " " & .Eval("o.Weathers[0].Forecast[" & i & "].High") & " " & .Eval("o.Weathers[0].Forecast[" & i & "].Low") & " " & .Eval("o.Weathers[0].Forecast[" & i & "].Text")
Next i
End With
End With
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/155896.html
標籤：VBA
上一篇：vs2012 熱鍵無法正常注冊