//写个复杂的方法
网页 = 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