Select...EndSelect: Case-Fälle aus *.ini-Datei auslesen

Crusoe

Hallo zusammen

Ich habe Mal wieder ein kleines Anliegen.
Zuerst ein Code-Schnipsel:

AutoIt

Select


    Case $InStr = "AT0001"
       GUICtrlSetData($ArbTyp, "Beispiel 1")
       DllStructSetData($tBuffer, 1, "")
    Case $InStr = "AT0002"
       GUICtrlSetData($ArbTyp, "Beispiel 2")
       DllStructSetData($tBuffer, 1, "")
    Case $InStr = "AT0003"
       GUICtrlSetData($ArbTyp, "Beispiel 3")
       DllStructSetData($tBuffer, 1, "")


EndSelect

Alles anzeigen

Nun möchte ich per *.ini-Datei weitere "Case"-Fälle hinzufügen, bzw. die ersten neun Case Fälle können auch daraus erstellt werden.
So soll das in der *.ini-Datei aussehen:

Code

[CaseFaelle]
InStr1=AT0001
ArbTyp1=Beispiel 1
InStr2=AT0002
ArbTyp2=Beispiel 2
InStr3=AT0003
ArbTyp3=Beispiel 3

Wie könnte man das anstellen?
Vielleicht per While...WEnd Schleife, welche die Anzahl der *.ini Einträge ausließt und aus deren Daten die "Case"-Liste erstellt?

**alpines**

Lade die Strings die du abfragst in ein Array und geh das in einer Schleife durch.
Sollte der String aus einem Arrayindex gefunden werden, führst du eine Aktion aus, auch basierend auf einem Array.

Die Anzahl der Schlüssel kannst du mit IniReadSection auslesen, da kriegst du die ganze Sektion. Die Hilfe dazu ist dein Freund: https://www.autoitscript.com/autoit3/docs/f…ReadSection.htm

Crusoe

Hallo alpines,

danke für deine schnelle Hilfe
Die Funktion IniReadSection habe ich schon gefunden.
Was meinst du mit "[...] führst du eine Aktion aus, auch basierend auf einem Array."?

**alpines**

Du liest die Ini-Daten in ein 2D-Array. Beispiel:

AutoIt

Local $aTest[3][2] = [["AT0001", "Beispiel 1"], ["AT0002", "Beispiel 2"], ["AT0003", "Beispiel 3"]]

Durch die Schleife kannst du dann so gehen:

AutoIt

For $i = 0 To UBound($aTest) - 1
	If $InStr = $aTest[$i][0] Then
		GUICtrlSetData($ArbTyp, $aTest[$i][1])
		DllStructSetData($tBuffer, 1, "")
		ExitLoop
	EndIf
Next

Crusoe

Ich bin mir nicht sicher, ob ich mein Vorhaben richtig geschildert habe.

Ich möchte meine Select...EndSelect Einträge flexibel mit dem Inhalt der *.ini-Datei füllen.

Vielleicht verstehe ich deinen Lösungsvorschlag falsch, aber würde dabei nicht nur das Array ausgelesen und hintereinander 3x ein anderer Wert in die GUI mittels "GUICtrlSetData($ArbTyp, $aTest[$i][1])" eingetragen?

Ich möchte ja, dass einfach nur mehr Case-Einträge in meinen Select...EndSelect Abschnitt kommen.
Ist das überhaupt möglich, die Auswahl nach dem compilieren zu erhöhen?

Als Alternative kann ich die Case-Fälle natürlich vordefinieren (z.B. 20 Case Fälle) und die mit leeren Einträgen in der *ini-Datei verbinden und wenn sie benötigt werden, dass kann man "InStr[x]" "ArbTyp[x]" einfach ausfüllen
Aber ich denke, dass wäre nicht so elegant.

**autoiter**

Hallo @Crusoe,

Zitat von Crusoe

Vielleicht verstehe ich deinen Lösungsvorschlag falsch, aber würde dabei nicht nur das Array ausgelesen und hintereinander 3x ein anderer Wert in die GUI mittels "GUICtrlSetData($ArbTyp, $aTest[$i][1])" eingetragen?

ich halte dein gegebenes Beispiel nicht für adäquat. Du hast ein Select .. EndSelect und je nach Wert wird das eine Control gefüllt. In der ini finden sich alle Einträge, die du mit Case auswertest, also treffen alle zu und das Control wird nacheinander mit jedem Wert gefüllt. Dann brauchst du kein Select, sondern kannst es auch in Schleife machen.

Man kann schon flexibel mit Select .. EndSelect arbeiten. Z.B. kannst du in der Verzweigung ja auch auf eine Arraysuche reagieren. Nach dem Bsp. oben

AutoIt

#include <Array.au3>
Local $aTest[3][2] = [["AT0001", "Beispiel 1"], ["AT0002", "Beispiel 2"], ["AT0003", "Beispiel 3"]]


For $i = 0 To UBound($aTest) - 1
	$InStr = $aTest[$i][0]
	$iIndex = _ArraySearch($aTest, $InStr, 0, 0, 0, 0, 1, 0)
	Select
		Case $iIndex <> -1
			ConsoleWrite($aTest[$iIndex][1] & @CRLF)
;~ 			GUICtrlSetData($ArbTyp, $aTest[][])
;~ 			DllStructSetData($tBuffer, 1, "")
	EndSelect
Next

Alles anzeigen

Bleibt nur die Frage wie sinnvoll das ist.. Hast du ein besseres Beispiel, dafür was du tun möchtest?

**alpines**

Zitat von Crusoe

3x ein anderer Wert

Deshalb das ExitLoop. Wenn es gefunden wurde springt er direkt raus.

**BugFix**

@Crusoe: Ich denke, das Problem liegt darin, dass du dich gedanklich auf ein Select-Case als Lösung eingeschossen hast. Aber letztlich ist die Iteration durch ein Array doch gar nichts Anderes. In jedem Schritt wird ein "Case" abgearbeitet, trifft der Fall zu, wird die erforderliche Aktion ausgeführt, wenn nicht, gehts weiter.

Crusoe

Vielen Dank an alle
Ich hab es mit euren Beispielen hinbekommen.
Ich versuche Mal chronologisch zu antworten:

Zitat von autoiter

[...]
ich halte dein gegebenes Beispiel nicht für adäquat.

So setze ich es aber im Moment um.
"$InStr" ist der Wert, der (nach ein wenig AutoIt-Voodoo) von einem Barcodeleser über einen Bluetooth COM-Port kommt.
Dieser wird in der Select...Case...EndSelect Schleife ausgewertet und bei einem Fund in die zuvor erstellte GUI übertragen.
Es kann ja immer nur ein Wert (oder nichts) gefunden werden.
Klappt wunderbar, ist nur leider ohne Quellcode nicht erweiterbar.
Deshalb die Idee, die Case-Fälle aus einer *.ini-Datei zu laden, die bei Bedarf beliebig erweitert werden kann.

Zitat von autoiter

Bleibt nur die Frage wie sinnvoll das ist.. Hast du ein besseres Beispiel, dafür was du tun möchtest?

Das auf biegen und brechen als Select...Case...EndSelect-Variante umsetzen zu wollen, ist natürlich nicht sinnvoll.
Scheint aber die einzige Lösung zu sein, wenn man (wie ich) in diesem Fall nicht so viel Glück beim Denken hat und nicht auf die coole Idee mit der For...To...Step..Next Schleife kommt.
Nein, ich habe kein besseres Beispiel, denn genau so habe ich das bisher umgesetzt.

Zitat von alpines

Deshalb das ExitLoop. Wenn es gefunden wurde springt er direkt raus.

Ja, wenn man das erstmal geblickt hat, dann versteht sich das auch von selbst.
Hat nur dieses Mal ein wenig gedauert

Zitat von BugFix

@Crusoe: Ich denke, das Problem liegt darin, dass du dich gedanklich auf ein Select-Case als Lösung eingeschossen hast. Aber letztlich ist die Iteration durch ein Array doch gar nichts Anderes. In jedem Schritt wird ein "Case" abgearbeitet, trifft der Fall zu, wird die erforderliche Aktion ausgeführt, wenn nicht, gehts weiter.

Das hast du richtig erkannt. Ich kannte keine andere Methode und wollte es dann eben so umsetzen. War rückblickend totaler Quatsch
Aber @alpines Lösungsvorschlag war wirklich eine super Idee

Spoiler anzeigen

OT: Kannst du was mit "Calbe" anfangen?

Und weil ich jedes Mal platzen könnte, wenn ich am Ende eines Threads lese: "Danke, hat funktioniert." und die Lösung nicht dabei steht, hier meine Umsetzung:

Wie gesagt, "$InStr" kommt nach etwas AutoIt-Voodoo aus einem Barcodeleser über einen BT COM-Port.

Das Array wird so aufgesetzt:

AutoIt

$aTest = IniReadSection("Test.ini", "Test")

Der Inhalt der "Test.ini" sieht so aus:

Code

[...]


##################################################
# Test
##################################################
[Test]
AT0001=Beispiel 1
AT0002=Beispiel 2
AT0003=Beispiel 3


[...]

Alles anzeigen

Und so schaut der AutoIt-Code zur Auswertung des Arrays aus (Ich habe den Vorschlag von @alpines ein wenig an meine Bedürfnisse angepasst):

AutoIt

For $i = 0 To UBound($aTest) - 1
   If $InStr = $aTest[$i][0] Then
      GUICtrlSetData($ArbTyp, $aTest[$i][1])
      DllStructSetData($tBuffer, 1, "")
      ExitLoop
   ElseIf $i = UBound($aTest) - 1 Then
      MsgBox(48 + 262144, "Fehler", "Der Eintrag wurde nicht gefunden." & @CRLF & "Bitte Test.ini prüfen.")
   EndIf
Next

Nochmals vielen Dank an alle
Ohne euch hätte ich da sicher wieder ewig dran gesessen
Ich war Mal so frei und habe einen Zehner in die Kaffeekasse geworfen... Ich hoffe das ist ok

**alpines**

Zitat von Crusoe

Aber @alpines Lösungsvorschlag war wirklich eine super Idee

Deshalb habe ich es ja auch vorgeschlagen

Zitat von Crusoe

Ich war Mal so frei und habe einen Zehner in die Kaffeekasse geworfen... Ich hoffe das ist ok

Das ist sogar schwer in Ordnung!