请教正则表达的高手们，TXT文档里一组长度会变数字该怎么获取啊
本帖最后由 wyd301 于 2009-11-20 10:22 编辑路由器Web界面设置程序
> 系统管理 > 连线状态 << 主菜单
--------------------------------------------------------------------------------
系统状态
系统已运行时间：4：8：44
局域网状态 主DNS 124.74.213.68 副DNS 202.96.209.133
IP地址 TX封包 RX封包
192.168.0.1 1868263 1442347
WAN 状态 网关IP地址 222.65.52.1
模式 IP地址 TX封包 传送速率 RX封包 接收速率 已运行时间
PPPoE 222.65.54.130 1428761 18751 1874210 496988 4:08:11
>>断开 PPPoE 或 PPTP 连接
--------------------------------------------------------------------------------
Copyright (c) 2004, DrayTek Corp. All Rights Reserved.
我要的是红色的那部分，但前面这几组数字长度会变，可能5位，也可能3位4位6位7位，当然里面的数字会变化的，我很菜，自己怎么搞也搞不明白，只能求助各位大哥了！ $Str = _
'路由器Web界面设置程序' & @CRLF & _
'' & @CRLF & _
'> 系统管理 > 连线状态 << 主菜单 ' & @CRLF & _
'' & @CRLF & _
'--------------------------------------------------------------------------------' & @CRLF & _
'系统状态 ' & @CRLF & _
'系统已运行时间：4：8：44 ' & @CRLF & _
'' & @CRLF & _
'局域网状态 主DNS 124.74.213.68 副DNS 202.96.209.133 ' & @CRLF & _
'IP地址 TX封包 RX封包 ' & @CRLF & _
'192.168.0.1 1868263 1442347 ' & @CRLF & _
'' & @CRLF & _
'WAN 状态 网关IP地址 222.65.52.1 ' & @CRLF & _
'模式 IP地址 TX封包 传送速率 RX封包 接收速率 已运行时间 ' & @CRLF & _
'PPPoE 222.65.54.130 1428761 18751 1874210 496988 4:08:11 ' & @CRLF & _
'>>断开 PPPoE 或 PPTP 连接 ' & @CRLF & _
'' & @CRLF & _
'' & @CRLF & _
'--------------------------------------------------------------------------------' & @CRLF & _
'' & @CRLF & _
'Copyright (c) 2004, DrayTek Corp. All Rights Reserved. ' & @CRLF & _
''
MsgBox(0, 0, $Str)
$sR = StringRegExp($Str, 'PPPoE.+\s(\d+)\s\d+:', 3)
If @error = 0 Then MsgBox(0, 0, $sR) 回复 2# afan
实在太感谢afan 大哥了，我去试下，如果行回头再感谢你一次！！！ 回复 3# wyd301
再次感谢afan大哥，经测试十分准确，谢谢！ 大哥，不好意思再问下，PPPoE 222.65.54.130 1428761 18751 1874210 496988 4:08:11这里的PPPOE变成了Static IP,那么'PPPoE.+\s(\d+)\s\d+:'这里怎么改啊？ 回复 5# wyd301
改成这样可以吗Static\sIP.+\s(\d+)\s\d+: 回复 6# wyd301
可以~
'Static.+\s(\d+)\s\d+:' 这样也可 回复 7# afan
多谢大哥，学习了！
页:
[1]