home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / adm / arexx / adm-arexxmakros.lha / ImExport / WordWorth_Export.adm < prev   
Text File  |  1997-01-09  |  2KB  |  94 lines
  1. /* $VER: WordWorth_Export.adm 1.1 (9.1.97)
  2.  
  3.    Exportiert Daten für WordWorth
  4.  
  5.    In das Dokument müssen, um die Daten einfügen zu lassen, folgende
  6.    Kürzel verwendet werden:
  7.  
  8.    «Firma»
  9.    «Anrede»
  10.    «Briefanrede» ("Sehr geehrte(r) Frau/Herr <name>" ergibt korrekte Anrede)
  11.    «Vorname»
  12.    «Nachname»
  13.    «Adresse1»
  14.    «Adresse2»
  15.    «PLZ»
  16.    «Ort»
  17.    «Telefon»
  18.    «Fax»
  19.    «EMail»
  20.  
  21.    Desweiteren muß "Komma" als Trennzeichen in WordWorth3 angegeben werden.
  22.  
  23.    von Jan Geißler.
  24. */
  25.  
  26. OPTIONS RESULTS
  27.  
  28. ACTIVATEFIRST
  29. ADDRINMEM
  30. anzahl = RESULT
  31.  
  32.  
  33. /* RexxReqTools-Library öffnen */
  34.  
  35. reqname = "rexxreqtools.library"
  36. if ~show("L", reqname) then
  37.   if ~addlib(reqname, 0, -30, 0) then do
  38.      say reqname "not found!"
  39.      EXIT
  40.   end
  41.  
  42.  
  43. /* Filename-Filerequester */
  44.  
  45. dir     = "ram:"
  46. rqtitle = "WordWorth-Serienbriefdatei abspeichern"
  47. file    = "Adressen.csv"
  48. ok      = "Speichern"
  49. rqflags = "rtfi_flags=freqf_save"
  50.  
  51. filename = rtfilerequest(dir,file,rqtitle,ok,rqflags,)
  52. if filename = "" then do
  53.   call rtezrequest("Keine Datei ausgewählt", "Abbruch")
  54.   EXIT
  55. end
  56.  
  57. IF ~OPEN(file,filename,"W") THEN DO   /* Ausgabedatei öffnen     */
  58.    SAY "Kann Ausgabedatei nicht öffnen!"
  59.    EXIT
  60. END
  61.  
  62. dd = "09"x
  63.  
  64. text = "Firma" || dd || "Anrede" || dd || "Briefanrede" || dd || "Vorname" || dd || "Nachname" || dd || "Adresse1" || dd || "Adresse2" || dd || "PLZ" || dd || "Ort" || dd || "Telefon" || dd || "Fax" || dd || "EMail"
  65. ok = WRITELN(file,text)
  66.  
  67. DO FOR anzahl
  68.  
  69.   GETADDRESS ADM
  70.  
  71.   namex = ""
  72.   names = ""
  73.   IF ADM.lastname ~= "" THEN DO
  74.      namex = STRIP(ADM.fullname)
  75.      names = STRIP(ADM.title ADM.lastname)
  76.   END
  77.  
  78.   IF ADM.salutation = "Herrn" THEN DO
  79.      salute = "Sehr geehrter Herr" names;
  80.      ADM.salutation = "Herr"
  81.   END
  82.   ELSE IF ADM.salutation = "Frau" THEN salute = "Sehr geehrte Frau" names
  83.   ELSE salute = "Sehr geehrte Damen und Herren"
  84.  
  85.  
  86.   text = ADM.company || dd || ADM.salutation || dd || salute || dd || ADM.firstname || dd || namex || dd || ADM.address1 || dd || ADM.address2 || dd || ADM.postcode || dd || ADM.city || dd || ADM.telephone || dd || ADM.fax || dd || ADM.email1
  87.   ok = WRITELN(file,text)
  88.  
  89.   ACTIVATENEXT
  90.  
  91. END
  92.  
  93. ok = Close(file)
  94.