Bestimmte Blöcke aus TXT auslesen

Pinguin

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]

**Xenobiologist**

Hi,

poste mal ein bißchen mehr der Textdatei, damit man die Abhängigkeit besser versteht.

So long,

Mega

Pinguin

im anhang ist alles zu finden

**Xenobiologist**

Hi,

und du willst nur alle IPs haben?

So long,

Mega

Pinguin

nicht alle sondern nur die ip wo die zeile in Block ist

Code

[220 vm-planning FTP Server (Oracle XML DB/Oracle9i Enterprise Edition Release 9.2.0.1.0 - Production) ready.]

Lenny

Ôo ....
Vllt bín ich zu Doof... aber ich verstehe deine Aussage Nicht!

Sorry :keks:

Wäre aber nett wenn ihr mich aufklären könntet .. Oo

Lenny

**Xenobiologist**

Hi,

ich finde den Block nur einmal:

[autoit]

#include<File.au3>
Global $lines
_FileReadToArray(@ScriptDir & '\log.txt', $lines)

[/autoit][autoit][/autoit][autoit]

For $i = 1 To UBound($lines) - 1
If StringInStr($lines[$i], '[220 vm-planning FTP Server') <> 0 Then
For $y = $i - 6 To $i
If StringRegExp($lines[$y], '\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}', 0) Then
MsgBox(64, "Found", 'Found : ' & $lines[$y])
ExitLoop
EndIf
Next
EndIf
Next

[/autoit]

So long,

Mega

Pinguin

sorry mein fehler die zeile die gesucht wird

Code

Oracle XML DB/Oracle9i Enterprise Edition Release 9.2.0.1.0 - Production

wenn ich die Zeile einfüge finde ich mehr, glaube das ises

**Xenobiologist**

Hi,

so?

[autoit]

#include<File.au3>
Global $lines
_FileReadToArray(@ScriptDir & '\log.txt', $lines)

[/autoit][autoit][/autoit][autoit]

For $i = 1 To UBound($lines) - 1
If StringInStr($lines[$i], 'Oracle XML DB/Oracle9i Enterprise Edition Release 9.2.0.1.0 - Production') <> 0 Then
For $y = $i - 6 To $i
If StringRegExp($lines[$y], '\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}', 0) Then
MsgBox(64, "Found", 'Found : ' & $lines[$y])
ExitLoop
EndIf
Next
EndIf
Next

[/autoit]

So long,

Mega

Pinguin

jop habe es nur noch Gröber gemacht

[autoit]

#include<File.au3>
Global $lines
_FileReadToArray(@ScriptDir & '\log.txt', $lines)

For $i = 1 To UBound($lines) - 1
If StringInStr($lines[$i], '9.2.0.1.0') <> 0 Then
For $y = $i - 6 To $i
If StringRegExp($lines[$y], '\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}', 0) Then
MsgBox(64, "Found", 'Found : ' & $lines[$y])
FileWriteLine("Ausgabe.txt", $lines[$y])
ExitLoop
EndIf
Next
EndIf
Next

[/autoit]

ich danke dir

Goniwa

Wie sähe das aus, wenn man nicht nur die ip raus schreiben will, sondern auch einen teil des textes in der anderen zeile? ich hänge dabei nämlich fest

**Xenobiologist**

Hi,

dafür müsste ich genau wissen was du haben willst. Also möglichs eindeutig beschreiben.

So long,

Mega