Per ARexx ins ClipBoard schreiben?

amiga-news.de Forum > Amiga, AmigaOS 4 > Per ARexx ins ClipBoard schreiben?

[ - Search - New posts - Register - Login - ]

-1-

[ - Post reply - ]

2005-09-21, 19:49 h

cgutjahr
Posts: 2783
[Administrator]

Ich erstelle die os4depot-/Aminet-Meldungen per ARexx-Skript. Dabei wird eine HTML-Datei erstellt, die ich dann in einem Editor öffne und per Cut'n Paste ins amiganews.de-Admininterface einfüge.

Ich würde diesen letzten Schritt gerne auch noch (größtenteils) automatisieren, d.h. das ARexx-Skript kopiert die fertige Meldung ins Clipboard und ich brauche die nur noch per RAmiga-V einzufügen. Geht das?

Die ARexx-Funktionen Getclip()/Setclip() scheinen in dem Zusammenhang nutzlos zu sein, da sie offenbar nicht auf das globale Clipboard zugreifen können (oder?).

Die einzige Möglichkeit, die mir einfällt, wäre der "brute force"-Ansatz, also direkt in die Datei CLIPS:0 reinzuschreiben. Allerdings ist das eine IFF-Datei des Typs "FTXT", und ich habe keinen Schimmer, wie ich sowas von ARexx aus erzeuge (möglichst ohne externe Libs).

Hat jemand ein paar Infos über FTXT (der Header besteht ja nur aus ein paar Bytes, das lässt sich sicher "simulieren"), oder sonst eine Idee, wie ich von ARexx aus einen Text ins Clipboard bekomme?
--
Gutjahrs Amiga Seiten

[ - Answer - Quote - Direct link - ]

2005-09-21, 20:12 h

Robin
Posts: 1056
User

@cgutjahr:

Wie waer es mit rmh.library und ReadTextClip / WriteTextClip ?
--
(Bild) http://my.morphosi.net/

[ - Answer - Quote - Direct link - ]

2005-09-21, 21:29 h

thomas
Posts: 7718
User

@cgutjahr:

Versuch's einfach ohne Header, das müßte auch funktionieren.

Gruß Thomas

--
Email: thomas-rapp@web.de
Home: thomas-rapp.homepage.t-online.de/

[ - Answer - Quote - Direct link - ]

2005-09-21, 22:49 h

Palgucker
Posts: 1342
User

@ cgutjahr

Der "brut force" Ansatz könnte etwa so aussehen:

code:

/* Arexx */
Parse Arg HTML
Len=SUBWORD(STATEF(HTML),2,1)
Pad=0
If Len//2 Then Pad=1
Call Open(HTML,HTML,R)
Clip="Ram:Clipboards/0"
Call Open(Clip,Clip,W)
Wr=WriteCh(Clip,"FORM"||X2C(D2X(Len+12+Pad,8)))
Wr=WriteCh(Clip,"FTXTCHRS"||X2C(D2X(Len,8)))
Wr=WriteCh(Clip,Readch(HTML,Len))
If Pad Then Wr=WriteCh(Clip,X2C(D2X(0,2)))
Cl=Close(HTML)
Cl=Close(Clip)

Funktioniert allerdings nur mit Dateien < 65536 Byte.

mfg Palgucker

Edit: immer diese Smilies im Code...

[ Dieser Beitrag wurde von Palgucker am 21.09.2005 um 22:56 Uhr editiert. ]

[ - Answer - Quote - Direct link - ]

2005-09-22, 00:13 h

cgutjahr
Posts: 2783
[Administrator]

Wow, das geht ja fix - danke! ;-)

@Robin:

Danke für den Tipp, wollte es gerade so implementieren, da bin ich über Palguckers Code gestolpert...

@Thomas:

Das hatte ich gestern bereits ausprobiert: Wenn CLIPS:0 reiner Text ist wird es ignoriert (d.h. das Clipboard ist quasi leer).

@Palgucker:

Hey klasse - funktioniert einwandfrei. Danke!

--
Gutjahrs Amiga Seiten

[ - Answer - Quote - Direct link - ]

-1-

[ - Post reply - ]

amiga-news.de Forum > Amiga, AmigaOS 4 > Per ARexx ins ClipBoard schreiben?

[ - Search - New posts - Register - Login - ]