Erledigt - ReplaceString innerhalb des Programmes

[udg]

Die PB Hilfe hat mich noch nicht zum Ziel gebracht. Folgendes Problem habe ich:

Ich habe ein StringGadget (#Name), welches Text enthält der da lautet: Name eingeben
In ein EditorGadget (#Panel) lade ich bei Programmstart eine Textdatei hinein, die es im EditorGadget nun anzeigt, welche durchnummerierte Variabeln enthält.
Alle Variabeln die in der geöffneten Textdatei im EditorGadget folgendermaßen deklariert sind: {VAR1}, an einer anderen Stelle {VAR2} usw. sollen überprüft und wenn die Übereinstimmung stattfindet ersetzt werden.

Beispiel Textdatei:

Hallo {VAR1} und willkommen zum {VAR2}. Heute haben
wir inzwischen den {VAR3} und es wird Zeit, dass Du deine
{VAR4} wechselst.

Im Code meines kleinen Programms deklariere ich die Eingabefelder wie Folgt:

Eingabetext1$= GetGadgetText(#Name) ; Eingabe auslesen
Eingabetext2$= GetGadgetText(#Datum) ; Eingabe auslesen


Nun möchte ich per Klick auf meine CheckBox die Variabeln im EditorGadget durch: Name, Datum ect. ersetzen.

Code: Alles auswählen

...
Case #CheckBox_1
         If EventGadget()= #CheckBox_1

            Eingabetext1$= GetGadgetText(#Name)  ; Eingabe auslesen
              ReplaceString(#Panel_1, Eingabetext1$ "{VAR1}" ,#PB_String_NoCase); #Panel_1=(EditorGadget) =  Ziel wo {VAR1} durch Eingabetext1$ ersetzt werden soll
            
            Eingabetext2$= GetGadgetText(#Datum) ; Eingabe auslesen
              ReplaceString(#Panel_1, Eingabetext2$ "{VAR2}" ,#PB_String_NoCase); #Panel_1=(EditorGadget) =  Ziel wo {VAR2} durch Eingabetext2$ ersetzt werden soll
        EndIf
...

Ergebnis, Syntax Error

Vielen Dank für Unterstützung

[Demivec]

Code: Alles auswählen

Case #CheckBox_1
         If EventGadget()= #CheckBox_1

           Eingabetext1$= GetGadgetText(#Name)  ; Eingabe auslesen
           Editorneuetext$ = GetGadgetText(#Panel_1)
           Editorneuetext$ = ReplaceString(Editorneuetext$, "{VAR1}", Eingabetext1$, #PB_String_NoCase); #Panel_1=(EditorGadget) =  Ziel wo {VAR1} durch Eingabetext1$ ersetzt werden soll
           Eingabetext2$= GetGadgetText(#Datum)                                                         ; Eingabe auslesen
           Editorneuetext$ = ReplaceString(Editorneuetext$, "{VAR2}", Eingabetext2$, #PB_String_NoCase); #Panel_1=(EditorGadget) =  Ziel wo {VAR2} durch Eingabetext2$ ersetzt werden soll
           SetGadgetText(#Panel_1, Editorneuetext$)
        EndIf

[udg]

Vielen herzlichen Dank.



Das Board sollte einen Spendenbutton einführen für all die Helfer.

nochmals DICKES Danke

[Demivec]

Vielen herzlichen Dank.

Gern geschehen.