Was mache ich falsch ?

UdoL

Hallo, ich versuche aus einer Form Werte auszulesen und in einer Ini zu speichern.

AutoIt

Local $inputt1 =  GUICtrlRead ($Input1)
ConsoleWrite($inputt1  &' ' & $input1& @CR)

so funktioniert es natürlich.
aber ich wollte mir 60 Zeilen ersparen, deshalb hatte ich gedacht so....

Code

For $nbr = 1 to 10
	 Dim $test1 = '$inputt'&$nbr
	 Dim $test2 = '$Input'&$nbr
	   ConsoleWrite($test1  &' ' & $test2& @CR)
	   	  Local $test1 =  GUICtrlRead ($test2)
		  if $test1 =0 Then MsgBox (0,"Fehler","Es sind Fehler aufgetaucht!")
		  ;ConsoleWrite($test1& @CR)
	  if $nbr = 10 Then ExitLoop

Das ergibt folgende Ausgabe auf der Console
$inputt1 $Input1
$inputt2 $Input2
$inputt3 $Input3
$inputt4 $Input4
Ich glaube $inputt1 wird nicht als Variable erkannt. "inputt1" soll eigentlich einen Wert zurückgeben. Wie kann ich das ändern ?

LG
UdoL

DasIch

Schau dir mal Assign() und Eval() an:

AutoIt

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


$frmMain = GUICreate("", 300, 300)
For $i = 1 To 10
	Assign("Input" & $i, GUICtrlCreateLabel("temp " & Random(0, 10, 1), 8, 8+($i*20)), 2)
Next
GUISetState(@SW_SHOW, $frmMain)


For $nbr = 1 to 10
	Dim $test1 = '$inputt' & $nbr
	Local $test2 =  GUICtrlRead (Eval("Input" & $nbr))
	ConsoleWrite($test1  & ' ' & $test2 & @CR)
;~ 	if $test2 = 0 Then MsgBox (0,"Fehler","Es sind Fehler aufgetaucht!")
Next
MsgBox(0, "", "Pause")

Alles anzeigen

UdoL

Genau das wo nach ich gesucht habe. Genial. so siehts dann aus...
Danke

AutoIt

Func _iniwrite()


	For $nbr = 1 to 60
   Local $test2 =  GUICtrlRead (Eval("Input" & $nbr))
	ConsoleWrite(  $test2 & @CR)
	  if $nbr = 60 Then ExitLoop
Next

**Oscar**

Und nun lernst Du noch, wie man Arrays benutzt und sparst weitere 60 Zeilen ein.

**AspirinJunkie**

Bitte kein Assign/Eval verwenden wenn es nicht nötig ist (ehrlich gesagt kenne ich keinen Fall bei dem man diese definitiv benötigt).
Für diesen Anwendungsfalls nimmt man stattdessen eher ein Array:

AutoIt

GUICreate("", 300, 300)
Global $a_Inputs[10]


For $i = 0 To 9
	$a_Inputs[$i] = GUICtrlCreateLabel("temp " & Random(0, 10, 1), 8, 8 + ($i * 20))
Next
GUISetState(@SW_SHOW)


For $nbr = 0 To 9
	ConsoleWrite('$a_Inputs[' & $nbr & '] = ' & GUICtrlRead($a_Inputs[$nbr]) & @CRLF)
Next
MsgBox(0, "", "Pause")

Alles anzeigen

Des Weiteren:

Nichtssagender Threadtitel - wie sollen andere Nutzer mit einem ähnlichen Problem diesen Thread finden?
Falsches Unterforum - Hilfe und Unterstützung wäre die bessere Wahl gewesen

**Oscar**

[verschoben nach "Hilfe & Unterstützung"]