从网站上获取需要的数据实例(天气预报)

Private Sub WebBrowser1_DownloadComplete()
　　Dim i As Long
　　Dim j As Long
　　Dim k As Long
　　Dim intTemp As Integer
　　On Error Resume Next
　　If Len(strHTML) = 0 Then
　　　　''Get data
　　　　strHTML = WebBrowser1.Document.documentElement.innerHTML
　　　　If Len(strHTML) <> 0 Then
　　　　　　For j = 0 To 2
　　　　　　　　i = InStr(strHTML, "<DIV class=City_Data>")
　　　　　　　　strHTML = Mid$(strHTML, i)
　　　　　　　　Weatherday(j).strAdd = GetData("<H3>", "</H3>", strHTML)
　　　　　　　　Weatherday(j).strDate = GetData("<P>", "</P>", strHTML)
　　　　　　　　Weatherday(j).strPicPath = GetData("src=" & Chr$(34), Chr$(34) & "></DIV>", strHTML)
　　　　　　　　Weatherday(j).strWeather = GetData("Weather_TP>", "</DIV>", strHTML)
　　　　　　　　Weatherday(j).strWind = GetData("Weather_W>", "</DIV>", strHTML)
　　　　　　　　i = InStr(strHTML, "<DIV class=Weather_SM")
　　　　　　　　strHTML = Mid$(strHTML, i)
　　　　　　　　intTemp = IIf(j = 0, 9, 5)
　　　　　　　　For k = 0 To intTemp
　　　　　　　　　　Weatherday(j).strSM(k) = GetData("<P>", "</P>", strHTML)
　　　　　　　　Next
　　　　　　Next
　　　　　　''Display Data
　　　　　　Call DisPlayData(StaFlag)
　　　　　　Label1.Caption = "下载完成 "
　　　　End If
　　End If
Exit Sub
err1:
End Sub
Public Sub DisPlayData(index As Byte)
　　On Error GoTo ToExit ''打开错误陷阱
　　''------------------------------------------------
　　Dim i As Integer
　　Frame1(0).Caption = Replace$(Weatherday(index).strAdd, "&nbsp;", " ")
　　todayTime(0).Caption = Replace$(Weatherday(index).strDate, "&nbsp;", " ")
　　TodayTP(0).Caption = Replace$(Weatherday(index).strWeather, "&nbsp;", " ")
　　TodayTP(1).Caption = Replace$(Weatherday(index).strWind, "&nbsp;", "")
　　For i = 0 To 9
　　　　TodayTP(i + 2).Caption = vbNullString
　　　　TodayTP(i + 2).Caption = Mid$(Replace$(Weatherday(index).strSM(i), "</SPAN>", ""), 7)
　　Next
　　Call DownBinData(Weatherday(index).strPicPath)
　　DoEvents
　　Image1.Picture = LoadPicture(App.Path & "\imag.gif")
　　index = index + 1
　　If index >= 3 Then index = 0
　　''------------------------------------------------
　　Exit Sub
　　''----------------
ToExit:
End Sub
Public Function GetData(StartFlag As String, EndFlag As String, strSource As String) As String
　　Dim lngStart As Long
　　Dim lngEnd　 As Long
　　Dim strTemp　As String
　　lngStart = InStr(1, strSource, StartFlag)
　　lngEnd = InStr(lngStart, strSource, EndFlag)
　　str

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!