请教大神 请问怎样从网页中获取自己想要的关键字
我想开发一个vb程序实现 从某个天气预报网站中获取七天的天气预报 但是不知道怎么实现 请问用哪个组件 什么方法 我知道怎样获取网页源代码 但是不会怎样提取关键字 求大神不吝赐教！谢谢
--------------------编程问答--------------------
google VB正则表达式。
--------------------编程问答--------------------
很多网站 支持 webservice调用 你可以 调用这些的 google就有这种 服务
--------------------编程问答--------------------
在没有足够知识储备的时候，虚心点，多学少做。过后你就知道有多种方法来实现。否则的话，虽然做出几个小工具，但水平却达不到足够的程度，真轮到你做项目了，还是不行。
--------------------编程问答--------------------
先笨办法凑合，字符串截取神马的……
--------------------编程问答--------------------
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
补充：VB , VBA
