Beiträge von nuts

Hm welcher Schritt genau ist unklar?

Deine Listbox ist doch mit Dateinamen der .ini's gefüllt.
Diese auszulesen klappt ja oder?

$name = "" ; Kommt von deiner Listbox
$searchstring = "" ;der gesuchte Sektionsname
$ergebnis ;hier werden treffer zwischen gespeichert
$asections=IniReadSectionNames($name)
for $i = 0 to UBound($asections)-1
if $asections[$i] = $searchstring then $ergebnis &= $asections[$i] & "|"
next

;$ergebnis enthält jetzt alle .ini Namen mit der gesuchten Sektion, abgetrennt von einem "|"

Für jede Ini ein Array mit allen Sektionsnamen erstellen (Inireadsektionnames).
Jeden Eintrag dieses Array mit dem Suchstring vergleichen und bei einem Treffer das Ergebnis zwischen speichern.

Am Ende die Listbox leeren und mit den Treffern wieder befüllen.

Ja habe nur schnell auf die .exe geklickt und den Source im Forum überflogen.

edit \ Bei "Berechnen M-1" tritt der Fehler auf.
Ist auch ein kleiner optischer Fehler, da 1,2 usw. auf diesen Buttons nicht ganz dargestellt werden.

Das Skript bricht ab sobald man den angesprochenen Button drückt und noch gar keine Wert eingegeben hat.

Die Zeilen könnte man auch for ... next Schleifen verkürzen.
Würde ich mal behaupten, habs nur überflogen.

Hey,

du solltest auf jeden Fall ein besseres @error-handling einbauen.
z.B. wenn man nach dem Start auf en Button "'Berechnen M-" drückt bricht das Skript ab.
Immer wenn man den Input nicht vorhersehen (User-Eingabe) kann, sollte ein Abfrage folgen.
Das ist ggf. aufwendiger als das eigentliche Skript, trotzdem sehr wichtig

Zeile 245 bis 385 könnte man vermutlich extrem kürzen.

Zitat von ojo

P.S: Ich arbeite trotzdem mit der Syntax If StringInStr($Name, "tag") <> 0 Then

Und wieso?
In Autoit "bedeutet" true 1 und false 0.
If XY then YZ ausgeschrieben: Falls XY wahr ist dann mache YZ
Zumindest habe ich das so verstanden.

Erst Filefindfirstfile verwenden.

; Shows the filenames of all files in the current directory
$search = FileFindFirstFile("*.*")

; Check if the search was successful
If $search = -1 Then
MsgBox(0, "Error", "No files/directories matched the search pattern")
Exit
EndIf

While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop

MsgBox(4096, "File:", $file)
WEnd

; Close the search handle
FileClose($search)

Filewrite möchte das entsprechende Filehandle (bekommst du über Fileopen -> s. Hilfe).

edit \ bzw. nimm doch einfach _FileWriteFromArray

Anfang: uid=m-1254843856">
Suchstring
Ende: </a><br>

Bilden immer eine Zeile im .txt file?
Wie ist das genau aufgebaut? Kannst ja mal einen Ausschnitt davon anhängen.

Wie klappt nichts?
Was zeigt die msgbox denn?

Auf jeden Fall keine Leerzeichen vor und hinter dem "=" in einer .ini verwenden.
Sowas führt ggf. zu Problemen.

$a = InputBox ("Vokabel","Vokabel eingeben")
$input_ini = IniRead("C:\Users\Robert\Desktop\LateinRobb.ini", "Latein", $a, "Gibts (noch) nicht")
MsgBox(0,"",$a & " = " &$input_ini)

Mach doch mal eine @error-Abfrage nach Inireadsectionnames.

Poste doch mal dein Skript mit deinem Array.
Kann ja nicht sein

Die _Arraydelete Zeile verwirrt etwas.

_Arrayunique funktioniert aber

#include <Array.au3>

Dim $aArray[10] = [1, 2, 3, 4, 5, 1, 2, 3, 4, 5]
_ArrayDisplay($aArray, "$aArray")
$aNewArray = _ArrayUnique($aArray) ;Using Default Parameters
_ArrayDisplay($aNewArray, "$aNewArray represents the 1st Dimension of $aArray")

Mach doch mal eine @error-Abfrage nach Inireadsection.
Das Array wird erst gar nicht erstellt (ini nicht gefunden, Section nicht gefunden usw.)

Also so richtig hängt das vom genauen Problem ab. Viele Wege führen nach Rom
z.B. könnte man in einer For ... next Schleife jeden Eintrag vom 1D Array durchgehen und das 2D Array befüllen.

Besser wäre es erst alle 1D Arrays zu erstellen (Stringsplit, whatever) und anschließend das 2D Array gleich in der richtigen Größe zu deklarieren.
Redim ist laaaaangsam

Möglicherweise.
Auf jeden Fall ist Schnitzel auch gut dabei.

Das lässt sich aber bestimmt noch optimieren.

So habe mein Pattern auch angepasst und mal einen Speedtest durchgeführt.
Es zeigt sich, dass RegExp nicht wirklich schnell ist.
Gewonnen hat bei mir mit hauchdünnem Vorsprung die Lösung von Bugfix.