Von Combobox zur INI?

dieselwiesel

Hi @all

Versuche grad die Werte einer Combobox "umzuwandeln" und in eine INI zu schreiben. Habe es so im Moment so "gelöst"...

Spoiler anzeigen

AutoIt

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 299, 119, 192, 114)
$Combo1 = GUICtrlCreateCombo("Deutsch", 41, 24, 217, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Englisch|Französisch")
$Button1 = GUICtrlCreateButton("Schreibe INI", 121, 72, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit


		Case $Button1
		   _schreibeINI()




	EndSwitch
WEnd


Func _schreibeINI()


   $deutsch = StringSplit("d,1", ",") ;<= Diese Werte sind im Script eingebunden
   $englisch = StringSplit("e,2", ",") ;<= Diese Werte sind im Script eingebunden
   $franzoesisch = StringSplit("f,3", ",") ;<= Diese Werte sind im Script eingebunden
   ;<= weitere Sprachen folgen...


   $wert = GUICtrlRead($Combo1, 1)


   If $wert = "Deutsch" Then
	  IniWrite(@ScriptDir & "\config.ini", "CONFIG", "language", $deutsch[1])
	  IniWrite(@ScriptDir & "\config.ini", "CONFIG", "langid", $deutsch[2])
   ElseIf $wert = "Englisch" Then
	  IniWrite(@ScriptDir & "\config.ini", "CONFIG", "language", $englisch[1])
	  IniWrite(@ScriptDir & "\config.ini", "CONFIG", "langid", $englisch[2])
   ElseIf $wert = "Französisch" Then
	  IniWrite(@ScriptDir & "\config.ini", "CONFIG", "language", $franzoesisch[1])
	  IniWrite(@ScriptDir & "\config.ini", "CONFIG", "langid", $franzoesisch[2])
   EndIf


EndFunc

Alles anzeigen

Allerdings sieht das ziemlich "uncool" aus und es sollen noch 15 weitere Sprachen folgen. Wie kann man das evtl. eleganter Lösen? Danke schonmal im Voraus!

**chesstiger**

Die UDF _GUICtrlComboBoxEx_GetCurSel könnte dir weiterhelfen. So kannst du schon mal direkt die "langid" bestimmen, ohne erst den String übersetzen zu müssen.
Dann kannst du den einen Buchstaben, der als "language" gespeichert wird, noch effektiver bestimmen. So zum Beispiel:

[autoit]

$nIndex = _GUICtrlComboBoxEx_GetCurSel(GUICtrlGetHandle($cCombo))
Local $aIndex2Char[] = ['d', 'e', 'f'] ;hier Sprachen ergänzen
IniWrite(@ScriptDir & "\config.ini", "CONFIG", "language", $nIndex + 1) ;deine IDs waren ja 1-basierend, daher +1
IniWrite(@ScriptDir & "\config.ini", "CONFIG", "language", $aIndex2Char[$nIndex])

[/autoit]

Allerdings solltest du dich nochmal fragen, ob es sinnvoll ist, sowohl eine Sprach-ID als auch einen Erkennungsbuchstaben zu speichern. Denn letztendlich enthalten die beiden dieselbe Information.

dieselwiesel

@chesstiger
Sieht ja gefährlich aus aber es funktioniert! Vielen Dank