home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / adm / arexx / adm-arexxmakros.lha / FaxProgramme / MultiFax / Export_MFax_AktEintr.adm next >
Text File  |  1995-12-26  |  1KB  |  56 lines
  1. /* $VER: Export_MFax_AktEintr.adm 1.1 (15.11.95)
  2.  
  3. exportiert den aktuellen Eintrag in eine Importdatei
  4. für Multifax v 4.0a
  5.  
  6. von Bernd Stange
  7.  
  8. */
  9.  
  10. reqname = "rexxreqtools.library"
  11. if ~show("L", reqname) then
  12.   if ~addlib(reqname, 0, -30, 0) then do
  13.      say reqname "not found!"
  14.      EXIT
  15.   end
  16.  
  17.  
  18. OPTIONS RESULTS
  19.  
  20. ADDRINMEM
  21.  
  22. dir   = "ram:"
  23. title = "Telefonbuch abspeichern"
  24. file  = "Adressen.DAT"
  25. ok    = "Speichern"
  26.  
  27. filename = rtfilerequest(dir,file,title,ok)
  28. if filename = "" then do
  29.   call rtezrequest("Keine Datei ausgewählt", "Abbruch")
  30.   EXIT
  31. end
  32.  
  33. IF ~OPEN(file,filename,"W") THEN DO   /* Ausgabedatei öffnen     */
  34.    SAY "Kann Ausgabedatei nicht öffnen!"
  35.    EXIT
  36. END
  37.  
  38.   GETADDRESS ADM
  39.  
  40. IF ADM.SORT = "COMPANY" THEN DO
  41.             NAME = ADM.COMPANY
  42.          END
  43.          ELSE DO
  44.             NAME = ADM.LASTNAME
  45.          END
  46.  
  47. IF ADM.FAX = "" THEN DO
  48.   text =  '"' || NAME || '","' || ADM.firstname || '","' || LEFT( ADM.REMARK1,20) || '","' || ADM.TELEPHONE || '","' || ADM.ADDRESS1 || '","' || ADM.POSTCODE ADM.city || '"'
  49. END
  50.  
  51. ELSE DO
  52. text =  '"' || NAME || '","' || ADM.firstname || '","' || LEFT( ADM.REMARK1,20) || '","' || ADM.FAX || '","' || ADM.ADDRESS1 || '","' || ADM.POSTCODE ADM.city || '"'
  53. END
  54.  ok = WRITELN(file,text);
  55. ok = Close(file)
  56.