Hallo, ich habe seit langer Zeit mal wieder angefangen, und prompt stehe ich vor einen Problem
Der Befehl "_GUICtrlComboBox_GetEditText" gibt mir zwar den gewählten Eintrag von "_GUICtrlComboBox_Create" wieder, hängt aber ein Zeichen zusätzlich daran, somit wird der Key in der Ini leider nicht gefunden.
Hat Jemand eine Idee Warum?
$ini = @ScriptDir&'\Texte\Datei.ini'
#include<GuiComboBox.au3>
#include<GUIConstantsEx.au3>
;Gui
$Gui=GUICreate ('Produkt-Rechner', 900,600); Wagerechte; Höhe
GUISetBkColor(0xFFB200);FF6699);663399 )
GUISetFont(9, 300)
;Daten
GUICtrlcreatelabel ('Einstellungen für A4' ,10,10)
$A4 = _GUICtrlComboBox_Create ($GUI,'', 10, 30, 190, 296)
$ini_sektions = IniReadSection($ini, "Laserdruck A4")
For $i = 1 To $ini_sektions[0][0]
_GUICtrlComboBox_AddString($A4, $ini_sektions[$i][0])
Next
GUICtrlcreatelabel ('Hier bitte gewünschte Anzahl eintragen' ,10,70)
$Anzahl = GUICtrlCreateEdit ("1", 10,90,190,20,0)
[/autoit][autoit][/autoit][autoit]$berechnen = GUICtrlCreateButton ('Berechnen', 200,490)
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]GUICtrlcreatelabel ('Einstellungen für A3',400,10)
$A3 = _GUICtrlComboBox_Create ($GUI,'', 400, 30, 150, 296)
$ini_sektions = IniReadSection($ini, "Laserdruck A3")
For $i = 1 To UBound($ini_sektions) - 1
_GUICtrlComboBox_AddString($A3, $ini_sektions[$i][0])
Next
[/autoit][autoit][/autoit][autoit]$endbutton = GUICtrlCreateButton ('Schließen', 810,490)
[/autoit][autoit][/autoit][autoit]GUISetState(@SW_SHOW)
[/autoit][autoit][/autoit][autoit];Gui ENDE
[/autoit][autoit][/autoit][autoit][/autoit][autoit]While 1
$msg = GUIGetMsg()
$A3R=_GUICtrlComboBox_GetEditText ($A3)
$a3wert=IniRead($ini,'Laserdruck A3',$A3R,'')
$zahl1 = GUICtrlRead($Anzahl)
[/autoit][autoit][/autoit][autoit][/autoit][autoit]Select
[/autoit][autoit][/autoit][autoit][/autoit][autoit]Case $msg = $endbutton Or $msg = $GUI_EVENT_CLOSE
exit
case $msg = $berechnen
[/autoit][autoit][/autoit][autoit]$A4R=_GUICtrlComboBox_GetEditText($A4)
[/autoit][autoit][/autoit][autoit]MsgBox(64,"a4r",$a4r)
$A4R=_GUICtrlComboBox_GetEditText($A4)
ConsoleWrite (StringFormat ("%d\n", stringlen($A4R)))
$a4wert=IniRead($ini,'Laserdruck A4',$A4R,"Fehler beim Lesen")
MsgBox(64,"a4wert",$a4wert)
$Ergebnis = $zahl1 * $a4wert
MsgBox (0,"Ergebnis",$zahl1 & "*" & $a4wert & "=" & $Ergebnis) ;Ausgabe der Rechenaufgabe
EndSelect
wend
[/autoit][autoit][/autoit][autoit][/autoit]Meine Ini ist so azfgebaut
[Laserdruck A4]
Schwarz Weiß=0.25
Schwar Weiß, mehr als 5=0.22
Farbig=1.10
Aufkleber weiß s/w=0.85
Aufkleber weiß Farbig=1.20
Aufkleber Transparent s/w=1.50
Aufkleber Transparent Farbig=2.60
[Laserdruck A3]
Schwarz Weiß=0.50
Schwar Weiß, mehr als 5=0.44
Farbe=2.20
Vielen Dank