Inhalt eines Strings ausführen

Hallo,

in einem längeren Script, welches bisher gut funktioniert, möchte ich in einer GUI ein paar Checkboxen einfügen.
Füge ich diese normal als Code ein, so funktioniert alles:

$punkt_allgemein = GUICtrlCreateCheckbox("Allgemein",10,120,300)

Da der Inhalt der Checkboxen aber aus einer externen Datei ausgelesen wird, muss ich diese Zeilen aber zusammenbauen lassen:

Local $tb_zeile = '$' & $value1 & ' = GUICtrlCreateCheckbox("' & $value2 & '", ' & $p_xpos & ', ' & $p_ypos & ', 300)'

der Inhalt von $tb_zeile entspricht genau der oben aufgeführten Zeile. Manuell eingesetzt funktioniert sie.

Die Frage: Wie kann ich nun diesen String ausführen, damit meine Checkbox (und alle weiteren) in der GUI erscheinen?
Ich vermute, dass ich hier den Wald vor Bäumen nicht sehe, aber ich krieg's verflixt nochmal nicht hin... Kennt jemand eine Lösung?

Gruß

albie

Hallo Kanashius,

ich muß meine Anforderungen noch mal spezifizieren: in der Konfigurationsdatei sind die Themen als Variablenname und Anzuzeigender Titel (und Zählvarialble) angegeben. Da in dem zu erzeugenden Formular sowohl Check- als auch Radiobuttons vorkommen sollen und dazu letztere mit einer Überschrift mit Box abgehoben werden sollen, sieht die Datei dann so aus:

tbc_allgemein;Allgemein; 0
tbh_03_thema1;Beschriftung Thema1
    tbc_thema2;Beschriftung Thema2; 0
    tbc_thema3;Beschriftung Thema3; 0
    tbc_thema4;Beschriftung Thema4; 0
tbc_thema5;Beschriftung Thema5; 0
tbc_thema6;Beschriftung Thema6; 0
tbc_thema7;Beschriftung Thema7; 0
tbh_02_thema8;Beschriftung Thema8
    tbr_thema9;Beschriftung Thema9; 0
    tbr_thema10;Beschriftung Thema10; 0
...

Erläuterung:
tbc steht für Checkbox, tbr für Radiobox, tbh für Header, also für ein Label mit Box um die folgenden Radioboxen.
Die Zahl beim Header ist eine Vereinfachung für den Programm-Code und stellt die Anzahl der folgenden Radioboxen dar, somit die Y-Größe der Box.

Im Original sind die Themen natürlich durch sprechende Namen ersetzt.
Daher sollen bei der Abfrage Check- und Radioboxen auch diese Variablennamen verwendet werden. Deine Lösung mit dem Array passt daher leider nicht ganz.

Das etwas vereinfachte Hauptprogramm sieht folgendermassen aus:

Func _Main($iIndex, $bFullClient = False, $bMaxSize = False)
    Local $iMsg, $sCurFilename, $sTmpFile
    Local $p_xpos = 10
    Local $p_xpos_eingerueckt = 28
    Local $iMax_Scroll = 1500 ; Scrollhoehe. Dies spaeter durch Variable ersetzen und max. Formularhoehe berechenen
    Local $count = 0 ; Zaehler fuer Formularaufbau bei GUICtrlCreateGroup bei Radiobuttons
    Local $creategroupzeilen = 0 ; Anzahl der Zeilen in einer GUICtrlCreateGroup. Benoetigt fuer Boxhoehe.
    Local $p_ypos = 100 ; Y-Position der ersten Zeile des Bereichs der Schaltfelder
    Local $rb_counter = 0 ; Zaehlvariable fuer Anzahl Radiobuttons, welche Unterpunkte nach sich ziehen
    Local $iValue ; temporaere Variable zur Zerlegung von $value1 mit "_" als Trenner
$hGui = GUICreate("LAH-Formulareditor", 385, 600, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU, $WS_SIZEBOX))
$file = FileOpen("themenbloecke.csv", 0)
    While 1
        Local $line = FileReadLine($file)
        If @error = -1 Then ExitLoop
        $input = StringSplit($line, ";")
        Local $value1 = $input[1]
        Local $value2 = $input[2]
        Local $iValue = StringSplit($value1, "_")
        Local $tb = $iValue[1]
        if $tb = "tbc" then Local $creategroupzeilen = $iValue[2]
        Select
            Case $tb = "tbh"
                ; Code fuer den Header...
            Case $tb = "tbc"
                Local $tb_zeile = '$' & $value1 & ' = GUICtrlCreateCheckbox("' & $value2 & '", ' & $p_xpos & ', ' & $p_ypos & ', 300)'
                $rb_counter = 0
                $p_ypos = $p_ypos + 20
                Sleep(200)
            Case $tb = "tbr"
                ; Code fuer den Radiobutton...
        EndSelect
    GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group    
    GUISetState()
WEnd
FileClose($file)
EndFunc   ;==>_Main

Die Zeile, in der der String definiert wird, ist Zeile 27. Der Inhalt dieser Zeile soll dann den Checkbutton erzeugen.
Wie gesagt: lese ich den Inhalt des String $tb_zeile aus und plaziere ihn manuell im Code, so wird die Checkbox brav erzeugt. Aber wie geht es automatisch?

Beim weiteren Recherchieren bin ich noch auf einen Thread vom Januar gestossen: "@crlf umwandeln in echten Zeilenumbruch, in Analogie @tab etc.". Das passt aber leider nicht so ganz.

Gruß

Albie

Hallo,

besten Dank für die Infos.
Und ja, es gibt besseren Programmierstil als meinen ;-), für das nächste Mal habe ich viel gelernt und werde sicher anders an das Problem herangehen.
Und: die Verwendung der .csv-Datei ist leider Vorgabe und dem Problem geschuldet.

Und zu guter letzt:
die Info von Andy mit EVAL() und ASSIGN() hat mein Problem gelöst! Ich hatte bereits angefangen, das Programm komplett umzustricken, um mit einem Array zu arbeiten. So konnte ich den String dann anschließend mit einem einfachen EXECUTE() doch starten.
Super, vielen Dank für eure Mühe!

Gruß

Albie