Kopieren Sie einen String in Windows Clipboards

[Angelo2449]

Hallo alle,
fragt mich, ob Sie einen String in den Fensternoten mit Lisp kopieren können.
Danke.

 

[rpor66]

(defun setcliptext(str / html Ergebnis)
(wenn (= 'str))
(Prog.)
(setq html (vlax-create object "htmlfile"))
(vlax-invoke (vlax-get (vlax-get html 'parentwindow) 'clipboard data) 'setdata "text" str)
(vlax release object html)
)
)
)

(Defun getcliptext(/ html Ergebnis)
(setq html (vlax-create object "htmlfile"))
(setq Ergebnis (vlax-invoke (vlax-get (vlax-get html 'parentwindow) 'clipboarddata')
(vlax release object html)
Ergebnis
)

(setcliptext "testo qualsiasi") copia negli appunti
(getcliptext) incolla

 

[Angelo2449]

Danke rpor66,
Es funktioniert perfekt!