home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / HF-ADM23.LHA / ADM / ARexx / WinWord-Excel / Export_WinWord.adm next >
Encoding:
Text File  |  1995-06-04  |  1.8 KB  |  75 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.  
  44. filename = rtfilerequest(dir,file,title,ok)
  45. if filename = "" then do
  46.   call rtezrequest("Keine Datei ausgewählt", "Abbruch")
  47.   EXIT
  48. end
  49.  
  50. IF ~OPEN(file,filename,"W") THEN DO   /* Ausgabedatei öffnen     */
  51.    SAY "Kann Ausgabedatei nicht öffnen!"
  52.    EXIT
  53. END
  54.  
  55. text = "Firma;Anrede;Briefanrede;Vorname;Nachname;Straße;PLZ;Ort;Telefon;Fax"
  56. ok = WRITELN(file,text);
  57. dd = ";"
  58.  
  59. DO FOR anzahl
  60.  
  61.   GETADDRESS ADM
  62.  
  63.   IF ADM.salutation = "Herrn" THEN salute = "er Herr"
  64.   ELSE IF ADM.salutation = "Frau" THEN salute = "e Frau"
  65.   ELSE salute = ""
  66.  
  67.   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
  68.   ok = WRITELN(file,text);
  69.  
  70.   ACTIVATENEXT
  71.  
  72. END
  73.  
  74. ok = Close(file)
  75.