Problem zwischen 2 Scriptversionen

Pinguin

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

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

#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

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

$file7 = FileOpen("2100.txt", 1)
If $file6 = -1 Then
MsgBox(0, "Error", "Unable to open 21.txt.")
Exit
EndIf

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

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

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

Func ende ()
; MsgBox(0,"Info", "Alles durch")
Exit
EndFunc ;==>ende

[/autoit]

Version 2

Spoiler anzeigen

[autoit]

$file = FileOpen("scan.txt", 0)

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

$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" )

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

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

[/autoit]

die ini

Code

[Ports]
Port1=2100
Port2=1433
Port3=80

User ist Infomiert das sie maximal 15 Ports Eintragen können

was könnte man bei Version 2 verbessern das es schneller läuft?

teh_hahn

Hi,

versuch dies:

Spoiler anzeigen

[autoit]

#NoTrayIcon

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

main()

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

Func main()
Local $ai_ports[2]
Local $j = 1
Local $s_fileline = ""
Local $h_file = -1

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

For $i = 1 To 15
ReDim $ai_ports[$j + 1]
$ai_ports[$j] = IniRead(@ScriptDir & "\port.ini", "Ports", "Port" & $i, "default")
$j += 1
Next
$ai_ports[0] = $j - 1

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

$h_file = FileOpen(@ScriptDir & "\scan.txt", 0)

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

While 1
$s_fileline = FileReadLine($h_file)
If @error Then
FileClose($h_file)
ExitLoop
EndIf

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

For $i = 1 To $ai_ports[0]
If StringInStr($s_fileline, $ai_ports[$i]) Then FileWriteLine($ai_ports[$i] & ".txt", $s_fileline & @CRLF)
Next

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

FileDelete(@ScriptDir & "\default.txt")
WEnd
EndFunc ;==>main

[/autoit]

Pinguin

hi, danke leider nur 1kb/s, ich mein warum dauerts so lange, bei der ersten habe ich eben die werte nur in script drinnenO.o

**Xenobiologist**

Hi,

bist du dir sicher, dass du die Zeit nicht beim Lesen verlierst?

P.S.: Ich würde alles mit Arrays machen und einer For Schleife. Oder gleich RegEx

So long,

Mega

teh_hahn

Hi,

naja, das Auslesen aus der INI-Datei dauert eben und nimmt Zeit in Anspruch. Wie liest Du denn die Kb/s aus? Achso, Du solltest den Default-Wert beim IniRead auf "" setzten und noch dagegen prüfen:

Spoiler anzeigen

[autoit]

#NoTrayIcon
main()

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

Func main()
Local $ai_ports[2]
Local $j = 1
Local $s_tmpini = "", $s_fileline = ""
Local $h_file = -1

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

For $i = 1 To 15
$s_tmpini = IniRead(@ScriptDir & "\port.ini", "Ports", "Port" & $i, "")
If $s_tmpini <> "" Then
ReDim $ai_ports[$j + 1]
$ai_ports[$j] = $s_tmpini
$j += 1
EndIf
Next
$ai_ports[0] = $j - 1

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

$h_file = FileOpen(@ScriptDir & "\scan.txt", 0)

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

While 1
$s_fileline = FileReadLine($h_file)
If @error Then
FileClose($h_file)
ExitLoop
EndIf

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

For $i = 1 To $ai_ports[0]
If StringInStr($s_fileline, $ai_ports[$i]) Then FileWriteLine($ai_ports[$i] & ".txt", $s_fileline & @CRLF)
Next

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

FileDelete(@ScriptDir & "\default.txt")
WEnd
EndFunc ;==>main

[/autoit]

Also viel eleganter geht es eigentlich nicht mehr!

Pinguin

naja auslesen falsche ausdruck, ich drück f5, bei version 1 ist die dateigröße jedesmal 50kb größer geworden ich mein, warum dauert es bei deiner und meiner so lange?

ich les die werte aus der ini, dann sind sie in script, warum dauerts dann beim schreiben in die txt so lange?

verstehe das nicht
Edit

Xenobiologist . nein das juckt nicht zum einlesen,ich mein wenns die daten erstellt hat, wächst dessen größe nur in schneckenmodus, bei version eins war es extrem schnell

teh_hahn

lol, wie bitte?! Was ist das denn für ein Testverfahren? Oder hab ich Dich nur falsch verstanden? Über eins müssen wir uns im Klaren sein: Du kannst nicht das Skript anstarten und jedesmal nachdem es durchgelaufen ist, schauen wie lange es gedauert hat. Da wird meine Version immer langsamer sein, da sie aus einer INI-Datei liest! Du musst vielmehr einen Timer vor dem Vergleichen starten und ihn danach wieder stoppen, also:

Spoiler anzeigen

[autoit]

#NoTrayIcon
main()

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

Func main()
Local $ai_ports[2]
Local $j = 1, $n_timer = 0
Local $s_tmpini = "", $s_fileline = ""
Local $h_file = -1

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

For $i = 1 To 15
$s_tmpini = IniRead(@ScriptDir & "\port.ini", "Ports", "Port" & $i, "")
If $s_tmpini <> "" Then
ReDim $ai_ports[$j + 1]
$ai_ports[$j] = $s_tmpini
$j += 1
EndIf
Next
$ai_ports[0] = $j - 1

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

$h_file = FileOpen(@ScriptDir & "\scan.txt", 0)

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

$n_timer = TimerInit()
While 1
$s_fileline = FileReadLine($h_file)
If @error Then
FileClose($h_file)
FileDelete(@ScriptDir & "\default.txt") ;~ Kann dies hier hin?
ExitLoop
EndIf

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

For $i = 1 To $ai_ports[0]
If StringInStr($s_fileline, $ai_ports[$i]) Then FileWriteLine($ai_ports[$i] & ".txt", $s_fileline & @CRLF)
Next
WEnd
MsgBox(64, "TimerDebug", Round((TimerDiff($n_timer) / 1000), 4) & " Sekunden!")
EndFunc ;==>main

[/autoit]

Mir scheint, als wolltest Du, dass das Skript immer läuft. Dazu müsste es aber natürlich leicht modifiziert werden...
Also, mach mal mehrere Durchläufe mit v1 und danach mit v2 (beides mit Timern!). Achte dabei darauf, dass die zu vergleichende Datei identisch ist und die Anzahl der Ports ebenfalls.
Da dürften in Bezug auf das Vergleichen kaum Unterschiede zu verspüren sein!

g8

Pinguin

also wie soll ichs erklären, ich starte das script, diese erstellt die txt und schriebt daten rein, dan drücke ich f5 und bleibt drauf, und sehe wie die Dateigröße der erstellten datei wächst.

mit v1 in 50 schritten in allen anderen in 1-3 schritten.

deshalb ist die zeit die das script zum auslesen benötigt doch unerheblich ?, weil ich ja erst gucke wenn die daten erstellt wurden.

ich versuchs mal

Version 1

knapp 5 Sekunden

Zeit deiner Version
ca 176,2 Sekunden

**Xenobiologist**

HI,

wie sieht denn die zu scannende Datei aus? Kannst du ein paar Zeilen posten?

So long,

Mega

Edit: Okay ich versuche es mal :

[autoit]

#include<File.au3>
Global $ports_A[6] = [80, 1433, 3306, 3386, 21, 2100], $treffer = 0
Global $source = FileRead(FileOpen("scan.txt", 0))
If @error Then MsgBox(16, 'Error', 'Could not open scan.txt', 5)

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

For $i = 0 To UBound($ports_A) - 1
$treffer = StringRegExp($source, '.*:' & $ports_A[$i], 3)
If IsArray($treffer) Then
_FileWriteFromArray($ports_A[$i] & '.txt', $treffer)
EndIf
Next

[/autoit]

Pinguin

ok hier die datei

http://rapidshare.com/files/63639617/scan.zip.html

Board kann ichs net anhängen, zu groß

Wollte eben gern so machen das User selber in die ini schreiben können, und keine starre Vorgaben haben

danke für eure Hilfe

EDIT

Xenobiologist , das ist schneller wie Version 1;), wie baut man da jetzt dasmit der ini ein?

grüße

**Xenobiologist**

Hi,

ich würde die Ini mit IniReadSection('port.ini', 'Ports') einlesen und dann in Wete in ein 1-D Array schreiben.

So long,

Mega

Pinguin

Zitat

Original von Xenobiologist
Hi,

ich würde die Ini mit IniReadSection('port.ini', 'Ports') einlesen und dann in Wete in ein 1-D Array schreiben.

So long,

Mega

Hi kannst du das bitte näher beschreiben, so fit bin ich leider noch nicht

Ich weiß schon wie mit IniReadSection, aber wie meinst du das in 1-D Array schreiben?

Danke

Grüße

**Xenobiologist**

Hi,

ungetestet:

[autoit]

#include<File.au3>

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

Global $ports_Section = IniReadSection('port.ini', 'Ports'), $treffer = 0, $ports_A = 0
Global $source = FileRead(FileOpen("scan.txt", 0))
If @error Then MsgBox(16, 'Error', 'Could not open scan.txt', 5)

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

If Not IsArray($ports_A) Then
MsgBox(16, 'Error', 'Ports.ini?', 5)
Exit (0)
EndIf

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

For $i = 0 To UBound($ports_Section) - 1
$ports_A[$i] = $ports_Section[$i][1]
Next

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

For $i = 1 To UBound($ports_A) - 1
$treffer = StringRegExp($source, '.*:' & $ports_A[$i], 3)
If IsArray($treffer) Then
_FileWriteFromArray($ports_A[$i] & '.txt', $treffer)
EndIf
Next

[/autoit]

So long,

Mega

Pinguin

hi, aber es kommt leider ein error, Ports.ini ?

gut ist nur die msgbox, die Datei heißt Port.ini, also nicht der Fehler und die anderen Befehle muss ich mir erst genauer anschauen

**Xenobiologist**

Hi,

logisch

Spoiler anzeigen

[autoit]

#include<File.au3>

Global $ports_Section = IniReadSection('port.ini', 'Ports'), $treffer = 0, $ports_A = 0
Global $source = FileRead(FileOpen("scan.txt", 0))
If @error Then MsgBox(16, 'Error', 'Could not open scan.txt', 5)

If Not IsArray($ports_Section) Then
MsgBox(16, 'Error', 'Ports.ini?', 5)
Exit (0)
EndIf

For $i = 0 To UBound($ports_Section) - 1
$ports_A[$i] = $ports_Section[$i][1]
Next

For $i = 1 To UBound($ports_A) - 1
$treffer = StringRegExp($source, '.*:' & $ports_A[$i], 3)
If IsArray($treffer) Then
_FileWriteFromArray($ports_A[$i] & '.txt', $treffer)
EndIf
Next

[/autoit]

[/PHP]

So long,

Mega

Pinguin

hi, ok du hast die eine Varibale geändert, nun kommt ein anderer hübscher Fehler

Neu AutoIt v3 Script (3).au3 (13) : ==> Expected a "=" operator in assignment statement.:
$ports_A[$i] = $ports_Section[$i][1]

das sagt mir nix, warum meckert der wegen der = Zeichen

Grüße

teh_hahn

Array $ports_A wird voher nicht initalisiert / es wird nicht vergrößert!

**bernd670**

Hallo,

der entscheidende unterschied zwischen den 2 Programmen ist das Du im ersten Programm alle txt-Dateien mit FileOpen öffnest und mit FileWriteLine immer nur in die schon geöffnete Datei schreibst. Im zweiten Programm gibst Du den Dateinamen direkt bei FileWriteLine an, dass hat zur folge das jedes mal die Datei geöffnet, geschrieben und geschlossen werden muss was natürlich ganz schön auf die Performance geht.

**Xenobiologist**

Hi,

Spoiler anzeigen

[autoit]

#include<File.au3>

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

Global $ports_Section = IniReadSection('port.ini', 'Ports'), $treffer = 0
Global $source = FileRead(FileOpen("scan.txt", 0))
If @error Then MsgBox(16, 'Error', 'Could not open scan.txt', 5)

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

If Not IsArray($ports_Section) Then
MsgBox(16, 'Error', 'Port.ini?', 5)
Exit (0)
EndIf

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

Global $ports_A[UBound($ports_Section)]

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

For $i = 0 To UBound($ports_Section) - 1
$ports_A[$i] = $ports_Section[$i][1]
Next

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

For $i = 1 To UBound($ports_A) - 1
$treffer = StringRegExp($source, '.*:' & $ports_A[$i], 3)
If IsArray($treffer) Then
_FileWriteFromArray($ports_A[$i] & '.txt', $treffer)
EndIf
Next

[/autoit]

So long,

Mega

Pinguin

Danke dir so läuft es, jetzt analysiere ich es um zu verstehen

grüße

Edit

@ Bernd, habs mal umgeändert in Version 2, ist schneller, aber dennoch noch langsamer wie das von Xenobiologist

Danke für den Tipp

Spoiler anzeigen

[autoit]

$file = FileOpen("scan.txt", 0)

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

$Port1=IniRead ( "Port.ini", "Ports", "Port1", "default" )
$file15=Fileopen($Port1&".txt",1)

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

$Port2=IniRead ( "Port.ini", "Ports", "Port2", "default" )
$file16=Fileopen($Port2&".txt",1)

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

$Port3=IniRead ( "Port.ini", "Ports", "Port3", "default" )
$file17=Fileopen($Port3&".txt",1)

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

$Port4=IniRead ( "Port.ini", "Ports", "Port4", "default" )
$file18=Fileopen($Port4&".txt",1)

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

$Port5=IniRead ( "Port.ini", "Ports", "Port5", "default" )
$file19=Fileopen($Port1&".txt",1)

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

$Port6=IniRead ( "Port.ini", "Ports", "Port6", "default" )
$file20=Fileopen($Port6&".txt",1)

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

$Port7=IniRead ( "Port.ini", "Ports", "Port7", "default" )
$file21=Fileopen($Port7&".txt",1)

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

$Port8=IniRead ( "Port.ini", "Ports", "Port8", "default" )
$file22=Fileopen($Port8&".txt",1)

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

$Port9=IniRead ( "Port.ini", "Ports", "Port9", "default" )
$file23=Fileopen($Port9&".txt",1)

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

$Port10=IniRead ( "Port.ini", "Ports", "Port10", "default" )
$file24=Fileopen($Port10&".txt",1)

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

$Port11=IniRead ( "Port.ini", "Ports", "Port11", "default" )
$file25=Fileopen($Port11&".txt",1)

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

$Port12=IniRead ( "Port.ini", "Ports", "Port12", "default" )
$file26=Fileopen($Port12&".txt",1)

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

$Port13=IniRead ( "Port.ini", "Ports", "Port13", "default" )
$file27=Fileopen($Port13&".txt",1)

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

$Port14=IniRead ( "Port.ini", "Ports", "Port14", "default" )
$file28=Fileopen($Port14&".txt",1)

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

$Port15=IniRead ( "Port.ini", "Ports", "Port15", "default" )
$file29=Fileopen($Port15&".txt",1)

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

While 1
$file1 = FileReadLine($file)
If @error = -1 Then
FileClose($file)
ExitLoop
EndIf
If StringInStr($file1,$Port1) Then
FileWriteLine($file15, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port2) Then
FileWriteLine($file16, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port3) Then
FileWriteLine($file17, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port4) Then
FileWriteLine($file18, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port5) Then
FileWriteLine($file19, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port6) Then
FileWriteLine($file20, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port7) Then
FileWriteLine($file21, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port8) Then
FileWriteLine($file22, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port9) Then
FileWriteLine($file23, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port10) Then
FileWriteLine($file24, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port11) Then
FileWriteLine($file25, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port12) Then
FileWriteLine($file26, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port13) Then
FileWriteLine($file27, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port14) Then
FileWriteLine($file28, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port15) Then
FileWriteLine($file29, $file1 & @CRLF)
EndIf
FileDelete("default.txt")
WEnd

[/autoit]