Hallo ich versuche seit zich stunden was zu machen, was absolut nicht hinhaut, über google bin ich dann zu euch gestoß
Also ich habe eine txt Datei
dort raus sollen bestimmte Ip gefiltert werden
Spoiler anzeigen
Code
-------------------------------------------------------------------------------
195.56.119.122
Responds with ICMP unreachable: No
TCP ports: 2100
-------------------------------------------------------------------------------
195.56.119.123
Responds with ICMP unreachable: No
TCP ports: 2100
-------------------------------------------------------------------------------
195.56.119.124
Responds with ICMP unreachable: No
TCP ports: 2100
-------------------------------------------------------------------------------
195.56.119.125
Responds with ICMP unreachable: No
TCP ports: 2100
-------------------------------------------------------------------------------
195.56.250.126
Responds with ICMP unreachable: No
TCP ports: 2100
-------------------------------------------------------------------------------
195.56.251.254
Responds with ICMP unreachable: No
TCP ports: 2100
-------------------------------------------------------------------------------
195.57.93.96
Responds with ICMP unreachable: No
TCP ports: 2100
TCP 2100:
[220 vm-planning FTP Server (Oracle XML DB/Oracle9i Enterprise Edition Release 9.2.0.1.0 - Production) ready.]
-------------------------------------------------------------------------------
Alles anzeigen
mich interessiert da nur dieser Block (kommt öftern darinnen vor, txt würde aber sonst den Rahmen Sprengen)
Code
195.57.93.96
Responds with ICMP unreachable: No
TCP ports: 2100
TCP 2100:
[220 vm-planning FTP Server (Oracle XML DB/Oracle9i Enterprise Edition Release 9.2.0.1.0 - Production) ready.]
Ansatz habe ich
Spoiler anzeigen
C
#include<string.au3>
#include<array.au3>
#include <file.au3>
$file = FileOpen("Log.txt", 0)
if not $file = -1 Then
MsgBox(0, "Error", "Unable to open log.txt.")
Exit
endif
While 1
$ip = FileReadLine($file)
if @error = -1 Then Call("ende")
if StringInStr($ip, "0"&".") or StringInStr($ip, "1"&".")or StringInStr($ip, "2"&".")or StringInStr($ip, "3"&".")or StringInStr($ip, "4"&".")or StringInStr($ip, "5"&".")or StringInStr($ip, "6"&".")or StringInStr($ip, "7"&".")or StringInStr($ip, "8"&".")or StringInStr($ip, "9"&".") Then
;MsgBox(0,"",$ip)
;Hier muss die Erkennung der Oracl version rein "[220 vm-planning FTP Server (Oracle XML DB/Oracle9i Enterprise Edition Release 9.2.0.1.0 - Production) ready.]"
;Aber wie machen?
EndIf
_ArrayDisplay($arFound,"Found")
EndIf
WEnd
Func ende ()
Exit
EndFunc ;==>ende
Alles anzeigen
er findest jetzt ip, nun müsste er bis zur nächsten ip gucken ob die Zeile dazwischen drinnen ist
Code
[220 vm-planning FTP Server (Oracle XML DB/Oracle9i Enterprise Edition Release 9.2.0.1.0 - Production) ready.]
und wenn ja in eine neue Txt schreiben
[SIZE=7]Bitte auf keinen falschen Gedanken, ich habe damit nichts illigales vor[/SIZE]