VB 自动从网络获取温度数据

VB 自动从网络获取温度数据

给你个我做好的。

on error resume next
u = "
if u = false then wscript.quit
set a = createobject("Microsoft.XMLHTTP")
url = u 
a.open "GET",url,0
a.send()
s = zhuanghuan(a.responsebody)
pt = "-?d{1,2}℃～-?d{1,2}℃"
set regex = New RegExp
regex.Pattern = pt
regex.IgnoreCase = True 
regex.Global = True 
set matches = regex.Execute(s)
for each match in matches
RetStr = RetStr & match.value & vbcrlf
next
msgbox RetStr
Function zhuanghuan(wen) 
For i = 1 To LenB(wen)
text = AscB(MidB(wen,i,1))
If text < &H80 Then
body = body & Chr(text)
Else
file = AscB(MidB(wen,i+1,1))
body = body & Chr(CLng(text) * &H100 + CInt(file))
i = i + 1
End If
Next
zhuanghuan = body
End Function
我就没用VB给你写，用的VBS，我觉得大体差不多。获取ip138北京的天气网页源代码，通过正则表达式"-?d{1,2}℃～-?d{1,2}℃"提取温度数据。完事了，写入文件就没什么难的了。vbs用的xmlhttp获取源代码，vb也可以用，也可以用vb自由控件。其余的复制就行。

好吧，我也无聊了，给你写了一个VB版的。可以自动获取ip138上指定城市的当天温度，并写入access数据库。

有一定难度或麻烦的。
1.有的网站有专门的XML接口让你读数据，这技术性较强，较正规，百度可以搜到
这方面的文章。
2.VB有专门的读网页的控件，把整个网页读进来，再按特征串取到温度值
难度是要组织入参。
程序很长。
我上次用C++BUILDER6把一个网站的所的学生分数取到一个数据库，程序有
十张纸。短不了。