找回密码
 加入
搜索
查看: 2449|回复: 2

如何查找指定内容

[复制链接]
发表于 2009-8-13 11:19:41 | 显示全部楼层 |阅读模式
Active Connections

  Proto  Local Address          Foreign Address        State
  TCP    tyy001:1027            192.168.1.254:7499     ESTABLISHED
  TCP    tyy001:1030            192.168.1.228:11011    ESTABLISHED
  TCP    tyy001:1036            192.168.1.228:8089     ESTABLISHED
  TCP    tyy001:1042            192.168.1.228:720      ESTABLISHED
  TCP    tyy001:1050            192.168.1.254:9910     ESTABLISHED
  TCP    tyy001:1051            192.168.1.254:9911     ESTABLISHED
  TCP    tyy001:1127            119.147.18.89:https    CLOSE_WAIT
  TCP    tyy001:1352            192.168.1.254:3389     ESTABLISHED
  TCP    tyy001:2186            192.168.1.228:25340    TIME_WAIT
  TCP    tyy001:2189            121.14.98.7:http       ESTABLISHED
  TCP    tyy001:2200            121.14.76.245:http     ESTABLISHED
  TCP    tyy001:2201            121.14.91.45:http      ESTABLISHED
  TCP    tyy001:2204            124.115.7.140:http     ESTABLISHED
  TCP    tyy001:2208            124.115.14.51:http     ESTABLISHED
  TCP    tyy001:2210            113.142.13.143:http    ESTABLISHED
  TCP    tyy001:2211            124.115.14.51:http     ESTABLISHED
  TCP    tyy001:2214            124.115.7.140:http     ESTABLISHED
  TCP    tyy001:2219            124.115.14.23:http     ESTABLISHED
  TCP    tyy001:2226            192.168.1.228:25340    TIME_WAIT
在上面的内容中找到    11011   前面的IP

在网上搜了半天知道要用 StringRegExp  ,但结果还是没弄明白
发表于 2009-8-13 12:07:17 | 显示全部楼层
本帖最后由 afan 于 2009-8-13 12:18 编辑

保存以上为 1.txt。
如果有多个 11011 IP:
$a = FileRead('1.txt')
$b = StringRegExp($a, "((\d{1,3}\.){3}\d{1,3}):11011", 3)
If @error <> 0 Then
        MsgBox(0, 0, '无匹配项目')
Else
        For $i = 0 To UBound($b) - 1 Step 2
                MsgBox(0, 0, $b[$i])
        Next
EndIf
如果只1个 11011 IP:
$a = FileRead('1.txt')
$b = StringRegExp($a, "((\d{1,3}\.){3}\d{1,3}):11011", 3)
If @error = 0 Then MsgBox(0, 0, $b[$i])

评分

参与人数 1贡献 +1 收起 理由
autoit3CN + 1

查看全部评分

 楼主| 发表于 2009-8-13 20:13:12 | 显示全部楼层
如果只1个 11011 IP:
$a = FileRead('1.txt')
$b = StringRegExp($a, "((\d{1,3}\.){3}\d{1,3}):11011", 3)
If @error = 0 Then MsgBox(0, 0, $b[$i])
把最后的 MsgBox(0, 0, $b[$i])改成 $b[0])才能显示,不是很明白

第一个可以,先谢谢2楼的兄弟
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-11-15 21:46 , Processed in 0.082058 second(s), 27 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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