找回密码
 加入
搜索
查看: 4072|回复: 3

[系统综合] 在使用telnet成功获取回显,但不知如何使用正规表达式获取内容

  [复制链接]
发表于 2012-9-13 20:43:31 | 显示全部楼层 |阅读模式
我已经成功获取telnet命令后的内容了,但不知如何去获取内容并且判断。还请达人们帮忙解答呀!
问题: 请问如何使用StringRegExp获取以下图片中的08 EXP 6.0 和 09 EXP 6.0和 10 EXP 6.0以及11 EXP 6.0的内容并且进行判断?
我是新手,对这个函数不会使用,请各位高手解救。
图片中的内容是已知结果,变量为$info,

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2012-9-13 21:47:14 | 显示全部楼层
本人菜鸟,半桶水不够,不会正则,给你弄一个简单点的。你看能否可行。
首先将你这个$info保存为一个TXT,然后。。
Local $file = FileOpen("12.txt", 0)
If $file = -1 Then
    MsgBox(0, "错误", "不能打开文件.")
    Exit
EndIf
While 1
    Local $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
        If StringInStr ( $line, "08 EXP 6.0") Then MsgBox(0, "读取的行:", $line)
        If StringInStr ( $line, "09 EXP 6.0") Then MsgBox(0, "读取的行:", $line)
        If StringInStr ( $line, "10 EXP 6.0") Then MsgBox(0, "读取的行:", $line)
        If StringInStr ( $line, "11 EXP 6.0") Then MsgBox(0, "读取的行:", $line)
Wend
FileClose($file)
 楼主| 发表于 2012-9-13 22:18:44 | 显示全部楼层
啊,,貌似这样很麻烦哦,是不是太晚了,高手不现身吗?
发表于 2012-9-13 22:57:30 | 显示全部楼层
回复 1# 80107671
比如保存为FILE.EXE,用以下正则:
$txt = FileRead("a.txt")
ClipPut ( $txt )
Local $txt = ClipGet()
$str = StringRegExp($txt, '(\V+)EXP 6.0', 3)
For $i = 0 To UBound($sTr) - 1
MsgBox(0, '',$str[$i] &"EXP 6.0")                
Next
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-15 14:35 , Processed in 0.101119 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表