Button im Designer

[bikerboy]

hallo , habe mal wieder ne interessante Aufgabe bekommen,

soll nen Button bauen der aus einer DB ein Feld ausliest und den darin enthaltenen Code in das Designerfenster pastet. Habe das soweit auch schon geschafft. Nur habe ich den Code aus der LS Doc DB für mich verwendet und komme damit nicht ganz klar. Bin schon soweit, dass er den Code pastet, nur werden bestimmte Dinge nicht gepastet

Zum Beispiel wird aus :

history.back()

history.back

Bei einem kommt er total durcheinander und macht vorsichtishalber nichts. Naja hier der Code aus dem Button, vllt könnt ihr mir weiterhelfen.

Code

_server := "apps01/acceptit/DE";
_database :="acceptit/dev/CodeDatenbankII.nsf";
_value := @Text(@PickList([Custom]:[Single];_server:_database;"[pickListCodesnippet)";"Codesammlung";"Bitte wählen sie die gewünschteFunktion";4));
@Prompt([Ok];"_value";_value);
@Command([Execute]; "cmd"; " /c @echo set W = WScript.CreateObject(\"WScript.Shell\") > t.vbs & @echo W.AppActivate \"Designer\" >> t.vbs & @echo W.SendKeys \""
+ _value + "\" >> t.vbs & cscript t.vbs")

[ghost]

Ich würde das mit

@Command([EditSelectAll]);
@Command([EditCopy]);

und

@Command([EditPaste])

mal versuchen.

Viele Grüße
ghost

[koehlerbv]

Der Vorschlag vom Geist würde aber zwei gesonderte Button erfordern, was ja nun nicht gerade die Intention von Robert ist.

Es sieht so aus, als würde das Shell.SendKeys manche Zeichen nicht mögen ... Da wird ggf. ein tieferer Eingriff mit der WinAPI erforderlich sein.

Bernhard (dem jetzt leider auch keine "schnelle Lösung" einfällt)

PS: "Gibts da nicht eigentlich was von Ratiopharm?" Irgendwie ist mir so, dass ich da schon mal über ein oder mehrere Tools gestossen bin, mit denen man Textbausteine mit One-Click + Select im Designer einfügen konnte. Aber jetzt schlägt er wieder zu: Alzmann (oder wie der Kerl hiess)