xmlhttp写小偷程序问题，IP不对？？求解

11 楼

ir77 [专家分：570] 发布于 2007-08-13 11:51:00

'获取温度、气像
                Set regEx = New RegExp            ' 建立正则表达式。
                regEx.Pattern = "[^\d]+([+|-]?\d+)℃[^<]+<img alt=""([\u4e00-\u9fa5]+)"            ' 设置模式。
                regEx.IgnoreCase = True        ' 设置区分大小写。
                regEx.Global = True            ' 搜索全部匹配。
                Set Matches = regEx.Execute(html)    ' 执行搜索。
                i=4
                For Each Match in Matches       ' 循环遍历Matches集合。
                f(i)=trim(Match.SubMatches(0))
                i=i+1
                f(i)=trim(Match.SubMatches(1))
                Next
                set regEx = nothing
'获取温度、气像
'获取风力
                Set regEx = New RegExp            ' 建立正则表达式。
                regEx.Pattern = "<td  class=""blog_xhui"">[^\u4e00-\u9fa5]*[\u4e00-\u9fa5]+[^\d]?(\d*)"            ' 设置模式。
                regEx.IgnoreCase = True        ' 设置区分大小写。
                regEx.Global = True            ' 搜索全部匹配。
                Set Matches = regEx.Execute(html)    ' 执行搜索。
                i=6
                For Each Match in Matches       ' 循环遍历Matches集合。
                f(i)=trim(Match.SubMatches(0))
                Next
                set regEx = nothing
'获取风力
'获取能见度
                Set regEx = New RegExp            ' 建立正则表达式。
                regEx.Pattern = """ class=""blog_xhui"">[^\d]+(\d+)公里"            ' 设置模式。
                regEx.IgnoreCase = True        ' 设置区分大小写。
                regEx.Global = True            ' 搜索全部匹配。
                Set Matches = regEx.Execute(html)    ' 执行搜索。
                i=7
                For Each Match in Matches       ' 循环遍历Matches集合。
                f(i)=trim(Match.SubMatches(0))
                Next
                set regEx = nothing
'获取能见度
'获取天气实况

12 楼

ir77 [专家分：570] 发布于 2007-08-13 11:56:00

'获取温度、气像
                Set regEx = New RegExp            ' 建立正则表达式。
                regEx.Pattern = "[^\d]+([+|-]?\d+)℃[^<]+<img alt=""([\u4e00-\u9fa5]+)"            ' 设置模式。
                regEx.IgnoreCase = True        ' 设置区分大小写。
                regEx.Global = True            ' 搜索全部匹配。
                Set Matches = regEx.Execute(html)    ' 执行搜索。
                i=4
                For Each Match in Matches       ' 循环遍历Matches集合。
                f(i)=trim(Match.SubMatches(0))
                i=i+1
                f(i)=trim(Match.SubMatches(1))
                Next
                set regEx = nothing
'获取温度、气像
'获取风力
                Set regEx = New RegExp            ' 建立正则表达式。
                regEx.Pattern = "<td  class=""blog_xhui"">[^\u4e00-\u9fa5]*[\u4e00-\u9fa5]+[^\d]?(\d*)"            ' 设置模式。
                regEx.IgnoreCase = True        ' 设置区分大小写。
                regEx.Global = True            ' 搜索全部匹配。
                Set Matches = regEx.Execute(html)    ' 执行搜索。
                i=6
                For Each Match in Matches       ' 循环遍历Matches集合。
                f(i)=trim(Match.SubMatches(0))
                Next
                set regEx = nothing
'获取风力
'获取能见度
                Set regEx = New RegExp            ' 建立正则表达式。
                regEx.Pattern = """ class=""blog_xhui"">[^\d]+(\d+)公里"            ' 设置模式。
                regEx.IgnoreCase = True        ' 设置区分大小写。
                regEx.Global = True            ' 搜索全部匹配。
                Set Matches = regEx.Execute(html)    ' 执行搜索。
                i=7
                For Each Match in Matches       ' 循环遍历Matches集合。
                f(i)=trim(Match.SubMatches(0))
                Next
                set regEx = nothing
'获取能见度
'获取天气实况

13 楼

ir77 [专家分：570] 发布于 2007-08-13 11:56:00

'获取城市
                Set regEx = New RegExp            ' 建立正则表达式。
                regEx.Pattern = "{([\u4e00-\u9fa5]+)"            ' 设置模式。
                regEx.IgnoreCase = True        ' 设置区分大小写。
                regEx.Global = True            ' 搜索全部匹配。
                Set Matches = regEx.Execute(html)    ' 执行搜索。
                For Each Match in Matches       ' 循环遍历Matches集合。
                g(0)=Match.SubMatches(0)
                Next
                set regEx = nothing
'获取城市
                Set regEx = New RegExp            ' 建立正则表达式。
                regEx.Pattern = "<td class=""font_sl"">[东经|北纬|海拔]{2}：([\d\.\d]+)"            ' 设置模式。
                regEx.IgnoreCase = True        ' 设置区分大小写。
                regEx.Global = True            ' 搜索全部匹配。
                Set Matches = regEx.Execute(html)    ' 执行搜索。
                i=1
                For Each Match in Matches       ' 循环遍历Matches集合。
                g(i)=Match.SubMatches(0)
                i=i+1
                Next
                set regEx = nothing
                Set regEx = New RegExp            ' 建立正则表达式。
                regEx.Pattern = "e class=""font_sl"">([^\<]+)"            ' 设置模式。
                regEx.IgnoreCase = True        ' 设置区分大小写。
                regEx.Global = True            ' 搜索全部匹配。
                Set Matches = regEx.Execute(html)    ' 执行搜索。
                i=4
                For Each Match in Matches       ' 循环遍历Matches集合。
                g(i)=Match.SubMatches(0)
                i=i+1
                Next
                set regEx = nothing

14 楼

七夜飘雪 [专家分：500] 发布于 2007-08-14 22:28:00

谢谢

您尚未登录，请登录后再回复。点此登录或注册

主题：xmlhttp写小偷程序问题，IP不对？？求解

回复列表（共14个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖