Geschwindigkeit

Hi Leute, ich habe da mal eine Frage:
ich habe eine Datei, die 198706 Wörter (bei 2266243 Zeichen) enthält, vorliegen. Jedes Wort in dieser Datei steht in einer Zeile. All diese Wörter sollen auf eine gewisse Regelmäsigkeit mit einem eingegebenen Wort untersucht werden (gleiche Endbuchstaben). Ich lese die Wörter aus der großen Datei mittels Filereadline ein. Soweit funktioniert alles. Nur ist das Ganze elend langsam. Bis das Programm alle Wörter überprüft hat, ist eine geraume Zeit vergangen (locker eine Stunde!). Da ich noch weitere Dinge zum Überprüfen ergänzen muss, auf die das Wort überprüft wird, geht später alles warscheinlich noch langsamer.

Hat irgendwer eine Idee, wie ich den ganzen vorganz beschleunigen kann? Ich wäre euch echt sehr dankbar, wenn ihr mir einen Tipp geben könntet.

Ich prüfe aktuelle mit Strings. Werde mal mein Script auf Fileread umwursteln und schauen, ob's schneller geht.

Kann es sein, dass 65525 die maximale Anzahl der Rows im Arrys ist? Das ist zu wenig... Denn schaut mal:

[autoit]

$a=stringsplit(fileread("wörter.txt"),@CR)
_arraydisplay($a)

[/autoit]

zeig das da an:
[Blockierte Grafik: http://s1.directupload.net/images/120207/62tupq8o.jpg]

Hat dann jemand eine Erklärung?

Naja, so einfach ist das nicht... Ich brauche einerseits die Wörter, die die Überprüfung bestanden haben und dann muss ich dieses Wort nochmal auf verschiedene Dinge nochmal überpüfen (z.B. Aufreten von Vokalen...)

Danke für das Script. Ich werde es morgen testen und wenn es nicht geht, werde ich mein Script reinstellen.

Was mich davon abhält? Das Script liegt (ebenso wie die Wörterliste) nicht auf einem anderen PC und an den komme ich leider erst wieder morgen Dran. Tut mir Leid... Aber morgen poste ich dann von mmir aus mein Script.

Hi, ich habe nun das Script von K4z verwendet und es funktionier alles bestens - an dieser Stelle ein riesengroßes Danke. Die Geschwindigkeit ist mit etwas unter 1,6 Sekunden sehr gut. Danke für all eure Hilfen!

Meinst du die Wörterdatei? Die hab ich in den Anhang geladen.

öÖ gerade fällt mir auf, dass K4z Script mir einige Wörter unterschlägt (Gibt nur 38464 Wörter aus)... Ich poste hier jetzt mal mein bisheriges Script:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <File.au3>
GUICreate("", 338, 369)
GUICtrlCreateLabel("Zu prüfendes Wort:", 8, 8, 310, 17)
$_Wort = GUICtrlCreateInput("", 16, 32, 225, 21)
$_Loesungen = GUICtrlCreateEdit("", 8, 104, 321, 225)
GUICtrlSetData(-1, "Ergebnise:" & @CRLF)
$_Status = GUICtrlCreateLabel(":", 8, 344,999,13)
$_Suche = GUICtrlCreateButton("Suche", 8, 72)
GUISetState(@SW_SHOW)

[/autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $_Suche
$Wort = GUICtrlRead ($_Wort)
GUICtrlSetData ($_Status,"Lese Wörterliste ein...")
Dim $aSource
Dim $Wortanzahl
_FileReadToArray("wörter.txt", $aSource)
$Wortanzahl = $aSource[0]
GUICtrlSetData ($_Status,"Verarbeite eingelesene Wörterliste...")
Global $time = TimerInit(), $aSearch
$aSearch = _ArrayRegExp($aSource, '()e

[autoit][/autoit][autoit]

Edit: Ich habe es jetzt mit Fileread und Stringsplit gemacht. Das ist einfacher und geht sogar schneller. Das Problem sollte damit gelöst sein. Nochmal danke an euch alle! So sieht mein Script jetzt aus:
[autoit]#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <File.au3>
GUICreate("", 338, 369)
GUICtrlCreateLabel("Zu prüfendes Wort:", 8, 8, 310, 17)
$_Wort = GUICtrlCreateInput("", 16, 32, 225, 21)
$_Loesungen = GUICtrlCreateEdit("", 8, 104, 321, 225)
GUICtrlSetData(-1, "Ergebnise:" & @CRLF)
$_Status = GUICtrlCreateLabel(":", 8, 344,999,13)
$_Suche = GUICtrlCreateButton("Suche", 8, 72)
GUISetState(@SW_SHOW)

[/autoit]

[/autoit]

[autoit]

[autoit]

[/autoit]

[/autoit]

[autoit]

[autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $_Suche
$Wort = GUICtrlRead ($_Wort)
$wortendung = StringRight ($Wort,3)
$time = TimerInit ()
$text = StringSplit (FileRead ("wörter.txt"),@CR)
For $i = 1 To $text[0] Step 1
If StringRight ($text[$i],3) = $wortendung Then
GUICtrlSetData ($_Loesungen,GUICtrlRead ($_Loesungen) & @CRLF & $text[$i])
EndIf
Next

[/autoit]

[/autoit]

[autoit]

[autoit]

[/autoit]

[/autoit]

[autoit]

[autoit]GUICtrlSetData ($_Status,"Die Suche wurde nach " & Round (TimerDiff ($time) / 1000,2) & " Sekunden abgeschlossen.")
EndSwitch
WEnd

[/autoit]

) ; ohne (?i) falls Case-Sensitive
GUICtrlSetData ($_Status,"Suche Wörter...")
$wortendung = StringRight ($Wort,3)
; _ArrayDisplay ($aSearch)
For $i = 1 To 38464 Step 1
If StringRight ($aSearch[$i],3) = $wortendung Then
GUICtrlSetData ($_Loesungen,GUICtrlRead ($_Loesungen) & @CRLF & $aSearch[$i])
EndIf
Next [/autoit]

[autoit][/autoit][autoit]

MsgBox (64,"","Die Suche wurde nach " & Round (TimerDiff ($time) / 1000,2) & " Sekunden abgeschlossen.")
GUICtrlSetData ($_Status,"Fertig")
EndSwitch
WEnd

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

; Funktioniert nicht ganz
Func _ArrayRegExp(Const ByRef $aArray, $sPattern)
If Not IsArray($aArray) Then Return SetError(1, 0, -1)
Dim $aResults[UBound($aArray)], $iIndex = 1
For $iI = 1 To UBound($aArray)-1 Step 1
If StringRegExp($aSource[$iI], $sPattern) Then
$aResults[$iIndex] = $aSource[$iI]
$iIndex +=1
EndIf
Next
ReDim $aResults[$iIndex]
$aResults[0] = $iIndex-1
Return $aResults
EndFunc

[/autoit]

[/spoiler]

Edit: Ich habe es jetzt mit Fileread und Stringsplit gemacht. Das ist einfacher und geht sogar schneller. So sieht mein Script jetzt aus:

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <File.au3>
GUICreate("", 338, 369)
GUICtrlCreateLabel("Zu prüfendes Wort:", 8, 8, 310, 17)
$_Wort = GUICtrlCreateInput("", 16, 32, 225, 21)
$_Loesungen = GUICtrlCreateEdit("", 8, 104, 321, 225)
GUICtrlSetData(-1, "Ergebnise:" & @CRLF)
$_Status = GUICtrlCreateLabel(":", 8, 344,999,13)
$_Suche = GUICtrlCreateButton("Suche", 8, 72)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $_Suche
$Wort = GUICtrlRead ($_Wort)
$wortendung = StringRight ($Wort,3)
$time = TimerInit ()
$text = StringSplit (FileRead ("wörter.txt"),@CR)
For $i = 1 To $text[0] Step 1
If StringRight ($text[$i],3) = $wortendung Then
GUICtrlSetData ($_Loesungen,GUICtrlRead ($_Loesungen) & @CRLF & $text[$i])
EndIf
Next

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

GUICtrlSetData ($_Status,"Die Suche wurde nach " & Round (TimerDiff ($time) / 1000,2) & " Sekunden abgeschlossen.")
EndSwitch
WEnd

[/autoit]