home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / adm30.lha / ADM / ARexx / ADM-ARexxMakros.lha / Sonstiges / Textformular_Ausfüllen.adm < prev    next >
Encoding:
Text File  |  1996-03-05  |  1.3 KB  |  67 lines
  1. /* $VER: Textformular_Ausfüllen.adm 1.0 (5.3.96)
  2.  
  3.    Fuellt ein ASCII-Textformular aus und übergibt es an einen
  4.    Editor.
  5.  
  6.    Diese Funktion war in Versionen vor 3.0 in den Briefdruck
  7.    eingebaut, wurde aber mangels Bezug zum Briefdruck abgeschafft.
  8.  
  9.    Mit diesem ARexx-Makro wird genau derselbe Zweck erreicht!
  10.  
  11.    Der Editor "ed" muss sich im Suchpfad befinden. Ansonsten muss
  12.    unten der Pfad zum Editor eingestellt werden.
  13.  
  14.    Von Jan Geißler.
  15. */
  16.  
  17. OPTIONS RESULTS
  18.  
  19. /* --- Editor-Definition */
  20.  
  21. editor = "ed"
  22.  
  23.  
  24. /* --- RexxReqTools-Library öffnen */
  25.  
  26. reqname = "rexxreqtools.library"
  27. if ~show("L", reqname) then
  28.   if ~addlib(reqname, 0, -30, 0) then do
  29.      say reqname "not found!"
  30.      EXIT
  31.   end
  32.  
  33.  
  34. /* --- Filerequester öffnen */
  35.  
  36. dir     = ""
  37. rqtitle = "ASCII-Formular ausfüllen & bearbeiten"
  38. file    = ""
  39. ok      = "Ausfüllen!"
  40. filename = rtfilerequest(dir,file,rqtitle,ok,'rtfi_flags=freqf_save',)
  41. if filename = "" then do
  42.   call rtezrequest("Keine Datei ausgewählt", "Abbruch")
  43.   EXIT
  44. end
  45.  
  46.  
  47. /* --- Formular ausfüllen
  48.        Dazu ADMs Druckausgabe in eine Datei umlenken
  49. */
  50.  
  51. SETPRINTER "ram:.temp"
  52. oldprinter = RESULT
  53. SAY filename
  54. PRINTLETTER '"' || filename || '"'
  55.  
  56. if RESULT = "-1" then do
  57.    call rtezrequest("Kann Datei nicht öffnen!", "Abbruch")
  58.    exit
  59. end
  60. SETPRINTER oldprinter
  61.  
  62.  
  63. /* --- Editieren mit dem Editor */
  64.  
  65. cmd = editor "ram:.temp"
  66. address command cmd
  67.