找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › [已解决]有人有辦法擷取putty的文字 並且抓出想要的字串 ...
返回列表 发新帖
查看: 3696|回复: 13

[AU3基础] [已解决]有人有辦法擷取putty的文字 並且抓出想要的字串嗎?

 火 [复制链接]
ipmitool
发表于 2017-1-6 17:31:32 | 显示全部楼层 |阅读模式
本帖最后由 ipmitool 于 2017-1-9 13:41 编辑

有人有辦法擷取putty的文字 並且抓出想要的字串嗎?
putty的視窗會一直跑字出來, 所以要偵測這個視窗, 然後抓出  192.8.1.175:1 變成一個變數

本帖子中包含更多资源

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

×
回复

举报

q410225
发表于 2017-1-6 19:39:01 | 显示全部楼层
开启putty的日志功能，然后用正则提取IP
回复

举报

austere
发表于 2017-1-6 20:59:17 | 显示全部楼层
楼上思路不错~
回复

举报

ipmitool
 楼主| 发表于 2017-1-8 21:12:13 | 显示全部楼层
回复 2# q410225


    不過要如何指定那個位置而找到ip呢？
回复

举报

austere
发表于 2017-1-8 22:47:50 | 显示全部楼层
回复 4# ipmitool


    Afan有个匹配ip的正则，要不你就百度一下匹配IP的正则
回复

举报

ipmitool
 楼主| 发表于 2017-1-9 08:55:59 | 显示全部楼层
回复 5# austere

他那篇回覆的看不太明白...
如果要正則抓取這個檔案裏面的 192.8.1.175:1 要如何做啊...

本帖子中包含更多资源

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

×
回复

举报

zghwelcome
发表于 2017-1-9 09:39:47 | 显示全部楼层
  1. (\d{1,3}\.){3}\d{1,3}(:\d+)?
复制代码
不是很严谨
回复

举报

ipmitool
 楼主| 发表于 2017-1-9 09:57:20 | 显示全部楼层
回复 7# zghwelcome


    好像沒辦法耶...一直跑出1
  1. #include <Array.au3>
  2. #include <ButtonConstants.au3>
  3. #include <ComboConstants.au3>
  4. #include <EditConstants.au3>
  5. #include <GUIConstantsEx.au3>
  6. #include <WindowsConstants.au3>
  7. #include <GuiComboBoxEx.au3>
  8. #include<array.au3>
  9. #include <Excel.au3>
  10. #include <GUIConstantsEx.au3>
  11. #include <WindowsConstants.au3>
  12. #include <Constants.au3>



  16.     $Form1 = GUICreate("Collect FIO Log Tool", 520, 230, -1, -1)
  17.         $Radio1        = GUICtrlCreateRadio("Collect 1HDD", 400, 50, 97, 25)
  18.         $Button1 = GUICtrlCreateButton("Collect Log", 400, 150, 97, 25, 0)
  19.         $hLabel1 = GUICtrlCreateLabel("BW", 30, 14, 97, 25, 0)


  22.     GUISetState(@SW_SHOW)



  26.     Local $var = FileOpenDialog("請選擇要開啟的檔案", "c:\data", " TXT(*.*) ")
  27.     Local $file = FileOpen($var)

  29.     $Input1 = GUICtrlCreateEdit("", 30, 30, 100, 175)


  32. While 1
  33.     ;read printer information
  34.     $line = FileRead($file)
  35.     $prn000 = StringRegExp($line, "(\d{1,3}\.){3}\d{1,3}(:\d+)?", 3)


  38. GUICtrlSetData ($Input1, $prn000 &@CRLF,1)



  42.         $Msg = GUIGetMsg()
  43.         Switch $Msg
  44.                 Case $GUI_EVENT_CLOSE
  45.                         Exit
  46.                 Case $Button1
  47.                 if BitAnd(GUICtrlRead($Radio1),$GUI_CHECKED)=1 Then
  48.                         RunWait(@DesktopDir&"\dopdf-7.exe","")
  49.                 EndIf
  50. EndSwitch



  54. WEnd
复制代码
回复

举报

zghwelcome
发表于 2017-1-9 10:00:24 | 显示全部楼层
$prn000 = StringRegExp($line, "(\d{1,3}\.){3}\d{1,3}(:\d+)?", 4)
先看下结果，然后取对应的
回复

举报

zghwelcome
发表于 2017-1-9 10:02:33 | 显示全部楼层
正则返回的是数组
回复

举报

zghwelcome
发表于 2017-1-9 10:14:46 | 显示全部楼层
  1. #include <Array.au3>
  2. #include <ButtonConstants.au3>
  3. #include <ComboConstants.au3>
  4. #include <EditConstants.au3>
  5. #include <GUIConstantsEx.au3>
  6. #include <WindowsConstants.au3>
  7. #include <GuiComboBoxEx.au3>
  8. #include <array.au3>
  9. #include <Excel.au3>
  10. #include <GUIConstantsEx.au3>
  11. #include <WindowsConstants.au3>
  12. #include <Constants.au3>



  16. $Form1 = GUICreate("Collect FIO Log Tool", 520, 230, -1, -1)
  17. $Radio1 = GUICtrlCreateRadio("Collect 1HDD", 400, 50, 97, 25)
  18. $Button1 = GUICtrlCreateButton("Collect Log", 400, 150, 97, 25, 0)
  19. $hLabel1 = GUICtrlCreateLabel("BW", 30, 14, 97, 25, 0)

  21. GUISetState(@SW_SHOW)

  23. Local $var = FileOpenDialog("請選擇要開啟的檔案", "c:\data", " TXT(*.*) ")

  25. $Input1 = GUICtrlCreateEdit("", 30, 30, 100, 175)

  27. While 1
  28.         ;read printer information
  29.         $line = FileRead($var)
  30.         $prn000 = StringRegExp($line, "(\d{1,3}\.){3}\d{1,3}(:\d+)?", 4)
  31.         If Not @error Then
  32.                 For $i = 0 To UBound($prn000) - 1
  33.                         GUICtrlSetData($Input1, ($prn000[$i])[0] & @CRLF, 1)
  34.                 Next
  35.                 Sleep(5000)
  36.         EndIf


  39.         $Msg = GUIGetMsg()
  40.         Switch $Msg
  41.                 Case $GUI_EVENT_CLOSE
  42.                         Exit
  43.                 Case $Button1
  44.                         If BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) = 1 Then
  45.                                 RunWait(@DesktopDir & "\dopdf-7.exe", "")
  46.                         EndIf
  47.         EndSwitch

  49. WEnd
复制代码
回复

举报

ipmitool
 楼主| 发表于 2017-1-9 10:36:57 | 显示全部楼层
回复 11# zghwelcome


謝謝您, 不過去讀zip裡面的 txt 檔案時, 抓不到 192.8.1.175:1

本帖子中包含更多资源

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

×
回复

举报

zghwelcome
发表于 2017-1-9 11:29:32 | 显示全部楼层
  1. #include <Array.au3>
  2. #include <ButtonConstants.au3>
  3. #include <ComboConstants.au3>
  4. #include <EditConstants.au3>
  5. #include <GUIConstantsEx.au3>
  6. #include <WindowsConstants.au3>
  7. #include <GuiComboBoxEx.au3>
  8. #include <array.au3>
  9. #include <Excel.au3>
  10. #include <GUIConstantsEx.au3>
  11. #include <WindowsConstants.au3>
  12. #include <Constants.au3>



  16. $Form1 = GUICreate("Collect FIO Log Tool", 520, 230, -1, -1)
  17. $Radio1 = GUICtrlCreateRadio("Collect 1HDD", 400, 50, 97, 25)
  18. $Button1 = GUICtrlCreateButton("Collect Log", 400, 150, 97, 25, 0)
  19. $hLabel1 = GUICtrlCreateLabel("BW", 30, 14, 97, 25, 0)

  21. GUISetState(@SW_SHOW)

  23. Local $file = FileOpenDialog("請選擇要開啟的檔案", "c:\data", " TXT(*.*) ")

  25. $Input1 = GUICtrlCreateEdit("", 30, 30, 100, 175)

  27. While 1
  28.         ;read printer information
  29.         $sRead = BinaryToString(FileRead($file),4)
  30.         $prn000 = StringRegExp($sRead, "(\d{1,3}\.){3}\d{1,3}(:\d+)?", 4)
  31.         If Not @error Then
  32.                 For $i = 0 To UBound($prn000) - 1
  33.                         GUICtrlSetData($Input1, ($prn000[$i])[0] & @CRLF, 1)
  34.                 Next
  35.                 Sleep(5000)
  36.         EndIf


  39.         $Msg = GUIGetMsg()
  40.         Switch $Msg
  41.                 Case $GUI_EVENT_CLOSE
  42.                         Exit
  43.                 Case $Button1
  44.                         If BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) = 1 Then
  45.                                 RunWait(@DesktopDir & "\dopdf-7.exe", "")
  46.                         EndIf
  47.         EndSwitch

  49. WEnd
复制代码

评分

参与人数 1金钱 +40 收起 理由
ipmitool + 40 謝謝大哥大大

查看全部评分

回复

举报

ipmitool
 楼主| 发表于 2017-1-9 13:41:32 | 显示全部楼层
回复 13# zghwelcome


    好強啊~~謝謝大哥~~
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2026-9-22 16:07 , Processed in 0.068785 second(s), 21 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2026 Discuz! Team.

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