Habe mir 2 Programme erstellt, Zwischen Version 1 und 2 habe ich nur ne ini hinzugefügt, wo User selber Eingaben tätigen können, diese ist aber extrem langsamer gegen der ersten, beim suchen.
Also Version 1 schriebt mit ungefähr 50kb/s in die txt, die 2er mit 5kb/s warum?
Version 1
Spoiler anzeigen
#include<string.au3>
#include<array.au3>
#include <file.au3>
$file = FileOpen("scan.txt", 0)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open scan.txt.")
Exit
EndIf
$file2 = FileOpen("80.txt", 1)
If $file2 = -1 Then
MsgBox(0, "Error", "Unable to open 80.txt.")
Exit
EndIf
$file3 = FileOpen("1433.txt", 1)
If $file3 = -1 Then
MsgBox(0, "Error", "Unable to open 1433.txt.")
Exit
EndIf
$file4 = FileOpen("3306.txt", 1)
If $file4 = -1 Then
MsgBox(0, "Error", "Unable to open 3306.txt.")
Exit
EndIf
$file5 = FileOpen("3386.txt", 1)
If $file5 = -1 Then
MsgBox(0, "Error", "Unable to open 3386.txt.")
Exit
EndIf
$file6 = FileOpen("21.txt", 1)
If $file6 = -1 Then
MsgBox(0, "Error", "Unable to open 21.txt.")
Exit
EndIf
$file7 = FileOpen("2100.txt", 1)
If $file6 = -1 Then
MsgBox(0, "Error", "Unable to open 21.txt.")
Exit
EndIf
While 1
$file1 = FileReadLine($file)
If @error = -1 Then Call("ende")
;MsgBox(0,"",$file1)
If StringInStr($file1, ":80") Then
;MsgBox(0,"",$file1)
FileWriteLine($file2, $file1 & @CRLF)
EndIf
If StringInStr($file1, ":1433") Then
FileWriteLine($file3, $file1 & @CRLF)
EndIf
If StringInStr($file1, ":3306") Then
FileWriteLine($file4, $file1 & @CRLF)
EndIf
If StringInStr($file1, ":3386") Then
FileWriteLine($file5, $file1 & @CRLF)
EndIf
If StringInStr($file1, ":21") Then
FileWriteLine($file6, $file1 & @CRLF)
EndIf
If StringInStr($file7, ":2100") Then
FileWriteLine($file6, $file1 & @CRLF)
EndIf
WEnd
Func ende ()
; MsgBox(0,"Info", "Alles durch")
Exit
EndFunc ;==>ende
Version 2
Spoiler anzeigen
$file = FileOpen("scan.txt", 0)
$Port1=IniRead ( "Port.ini", "Ports", "Port1", "default" )
$Port2=IniRead ( "Port.ini", "Ports", "Port2", "default" )
$Port3=IniRead ( "Port.ini", "Ports", "Port3", "default" )
$Port4=IniRead ( "Port.ini", "Ports", "Port4", "default" )
$Port5=IniRead ( "Port.ini", "Ports", "Port5", "default" )
$Port6=IniRead ( "Port.ini", "Ports", "Port6", "default" )
$Port7=IniRead ( "Port.ini", "Ports", "Port7", "default" )
$Port8=IniRead ( "Port.ini", "Ports", "Port8", "default" )
$Port9=IniRead ( "Port.ini", "Ports", "Port9", "default" )
$Port10=IniRead ( "Port.ini", "Ports", "Port10", "default" )
$Port11=IniRead ( "Port.ini", "Ports", "Port11", "default" )
$Port12=IniRead ( "Port.ini", "Ports", "Port12", "default" )
$Port13=IniRead ( "Port.ini", "Ports", "Port13", "default" )
$Port14=IniRead ( "Port.ini", "Ports", "Port14", "default" )
$Port15=IniRead ( "Port.ini", "Ports", "Port15", "default" )
While 1
$file1 = FileReadLine($file)
If @error = -1 Then
FileClose($file)
ExitLoop
EndIf
If StringInStr($file1,$Port1) Then
FileWriteLine($Port1&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port2) Then
FileWriteLine($Port2&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port3) Then
FileWriteLine($Port3&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port4) Then
FileWriteLine($Port4&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port5) Then
FileWriteLine($Port5&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port6) Then
FileWriteLine($Port6&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port7) Then
FileWriteLine($Port7&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port8) Then
FileWriteLine($Port8&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port9) Then
FileWriteLine($Port9&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port10) Then
FileWriteLine($Port10&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port11) Then
FileWriteLine($Port11&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port12) Then
FileWriteLine($Port12&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port13) Then
FileWriteLine($Port13&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port14) Then
FileWriteLine($Port14&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port15) Then
FileWriteLine($Port15&".txt", $file1 & @CRLF)
EndIf
FileDelete("default.txt")
WEnd
die ini
User ist Infomiert das sie maximal 15 Ports Eintragen können
was könnte man bei Version 2 verbessern das es schneller läuft?