home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / adm / arexx / adm-arexxmakros.lha / FaxProgramme / MultiFax / Export_MFax_alle.adm < prev    next >
Text File  |  1995-12-26  |  1KB  |  68 lines
  1. /* $VER: Export_MFax_alle.adm 1.1 (16.11.95)
  2.  
  3. exportiert alle Adressen aus dem Listfenster von ADM
  4. in eine Importdatei für Multifax 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. ACTIVATEFIRST
  21. ADDRINMEM
  22. anzahl = RESULT
  23.  
  24. dir   = "ram:"
  25. title = "Telefonbuch abspeichern"
  26. file  = "Adressen.DAT"
  27. ok    = "Speichern"
  28.  
  29. filename = rtfilerequest(dir,file,title,ok)
  30. if filename = "" then do
  31.   call rtezrequest("Keine Datei ausgewählt", "Abbruch")
  32.   EXIT
  33. end
  34.  
  35. IF ~OPEN(file,filename,"W") THEN DO   /* Ausgabedatei öffnen     */
  36.    SAY "Kann Ausgabedatei nicht öffnen!"
  37.    EXIT
  38. END
  39.  
  40. DO FOR anzahl
  41.   GETADDRESS ADM
  42.  
  43. IF ADM.SORT = "COMPANY" THEN DO
  44.             NAME = ADM.COMPANY
  45.          END
  46.          ELSE DO
  47.             NAME = ADM.LASTNAME
  48.          END
  49.  
  50. IF ADM.COMPANY = "" THEN Name = ADM.LASTNAME
  51.  
  52.  
  53. IF ADM.FAX = "" THEN DO
  54.   text =  '"' || NAME || '","' || ADM.firstname || '","' || LEFT( ADM.REMARK1,20) || '","' || ADM.TELEPHONE || '","' || ADM.ADDRESS1 || '","' || ADM.POSTCODE ADM.city || '"'
  55. END
  56.  
  57. ELSE DO
  58. text =  '"' || NAME || '","' || ADM.firstname || '","' || LEFT( ADM.REMARK1,20) || '","' || ADM.FAX || '","' || ADM.ADDRESS1 || '","' || ADM.POSTCODE ADM.city || '"'
  59. END
  60.  
  61.  ok = WRITELN(file,text);
  62.  
  63.   ACTIVATENEXT
  64.  
  65. END
  66. ok = Close(file)
  67. EXIT
  68.