• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.1
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:2.0
软件大小:194M
更新时间:03-15

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[问题] 请求大神帮助关于网页获取源码后怎么取我要的数据 [复制链接]

1#
关于网页获取源码后怎么取我要的数据

最后编辑wyj159 最后编辑于 2018-02-01 17:36:55
2#

用split

3#

谢谢

4#

//写个复杂的方法
网页 = Lib.网络.获得网页源文件("http://www.ip.cn")
TracePrint 网页

Call Plugin.File.WriteFileEx("c:\1.txt", 网页)
i=56
Text = Plugin.File.ReadFileEx("C:\1.txt")
MyArray = Split(Text, "|")
TracePrint "内容为:" & Cstr(MyArray(i - 1))
只取数字 = 文本提取(Cstr(MyArray(i - 1)))
TracePrint 只取数字

//
Function 文本提取(源文本)
Dim Matches, Match, TmpTxt, TmpPattern
//正则表达式
Set TmpRegEx = New RegExp
TmpRegEx.IgnoreCase = False
TmpRegEx.Multiline = True
Execute "TmpRegEx.Global = " & True

TmpPattern = "((25[0-5]|2[0-4]\d|((1\d{2})|([1-9]?\d)))\.){3}(25[0-5]|2[0-4]\d|((1\d{2})|([1-9]?\d)))"

TmpRegEx.Pattern = TmpPattern
Set Matches = TmpRegEx.Execute(源文本)
//获取结果
For Each Match In Matches
TmpTxt = TmpTxt & Match
Next
//输出并释放对象
Set TmpRegEx = Nothing
Set Matches = Nothing
文本提取 = TmpTxt
End Function

5#

谢谢,我已经搞定了你的备用

发新话题 回复该主题