home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / adm / arexx / adm-arexxmakros.lha / ImExport / Winword_Export.adm < prev    next >
Text File  |  1996-03-04  |  2KB  |  76 lines
  1. /* $VER: Export_WinWord.adm 1.0 (24.5.95)
  2.  
  3.    Exportiert Daten z.B. für Microsoft Excel oder Word.
  4.  
  5.    Dabei werden die Daten im Format
  6.    Firma;Anrede;Briefanrede;Vorname;Nachname;Straße;PLZ;Ort;Telefon;Fax
  7.    abgelegt und können so - unter Festlegung der Trennzeichen - in
  8.    die Anwendung einfach importiert werden.
  9.  
  10.    Die "Briefanrede" dient dabei dazu, daß einfach eine Anrede im
  11.    Serienbriefdruck von WinWord in der Form
  12.       "Sehr geehrte<Briefanrede> <Nachname>"
  13.    automatisch eingefügt werden kann. Ein Feld "Briefanrede" muß daher
  14.    in Winword beim Import der Daten angelegt werden.
  15.  
  16.    von Jan Geißler.
  17.  
  18. */
  19.  
  20. OPTIONS RESULTS
  21.  
  22. ACTIVATEFIRST
  23. ADDRINMEM
  24. anzahl = RESULT
  25.  
  26.  
  27. /* RexxReqTools-Library öffnen */
  28.  
  29. reqname = "rexxreqtools.library"
  30. if ~show("L", reqname) then
  31.   if ~addlib(reqname, 0, -30, 0) then do
  32.      say reqname "not found!"
  33.      EXIT
  34.   end
  35.  
  36.  
  37. /* Filename-Filerequester */
  38.  
  39. dir   = "ram:"
  40. title = "Excel/Word-Importdatei abspeichern"
  41. file  = "Adressen.csv"
  42. ok    = "Speichern"
  43. rqflags   = "rtfi_flags=freqf_save"
  44.  
  45. filename = rtfilerequest(dir,file,title,ok,rqflags,)
  46. if filename = "" then do
  47.   call rtezrequest("Keine Datei ausgewählt", "Abbruch")
  48.   EXIT
  49. end
  50.  
  51. IF ~OPEN(file,filename,"W") THEN DO   /* Ausgabedatei öffnen     */
  52.    SAY "Kann Ausgabedatei nicht öffnen!"
  53.    EXIT
  54. END
  55.  
  56. text = "Firma;Anrede;Briefanrede;Vorname;Nachname;Straße;PLZ;Ort;Telefon;Fax"
  57. ok = WRITELN(file,text);
  58. dd = ";"
  59.  
  60. DO FOR anzahl
  61.  
  62.   GETADDRESS ADM
  63.  
  64.   IF ADM.salutation = "Herrn" THEN salute = "er Herr"
  65.   ELSE IF ADM.salutation = "Frau" THEN salute = "e Frau"
  66.   ELSE salute = ""
  67.  
  68.   text = ADM.company || dd || ADM.salutation || dd || salute || dd || ADM.firstname || dd || STRIP(ADM.title ADM.lastname) || dd || ADM.address1 || dd || ADM.postcode || dd || ADM.city || dd || ADM.telephone || dd || ADM.fax
  69.   ok = WRITELN(file,text);
  70.  
  71.   ACTIVATENEXT
  72.  
  73. END
  74.  
  75. ok = Close(file)
  76.