home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / adm / arexx / adm-arexxmakros.lha / ImExport / Excel_Import.adm < prev    next >
Text File  |  1996-03-04  |  2KB  |  67 lines
  1. /* $VER: Import_Excel.adm 1.0 (24.5.95)
  2.  
  3.    Importiert Daten z.B. von Microsoft Excel.
  4.  
  5.    Dabei werden die Daten im Format
  6.       Firma;Anrede;Briefanrede;Vorname;Nachname;Adresse;PLZ;Ort;Telefon;Fax
  7.    erwartet, d.h. sie müssen mit Excel als CSV-Datei abgespeichert worden
  8.    sein.
  9.  
  10.    Die "Briefanrede" (siehe Export_Winword.adm) wird dabe nicht übernommen.
  11.  
  12.    von Jan Geißler.
  13. */
  14.  
  15. OPTIONS RESULTS
  16.  
  17. ACTIVATEFIRST
  18. ADDRINMEM
  19. anzahl = RESULT
  20.  
  21.  
  22. /* RexxReqTools-Library öffnen */
  23.  
  24. reqname = "rexxreqtools.library"
  25. if ~show("L", reqname) then
  26.   if ~addlib(reqname, 0, -30, 0) then do
  27.      say reqname "not found!"
  28.      EXIT
  29.   end
  30.  
  31.  
  32. /* Filename-Filerequester */
  33.  
  34. dir   = "ram:"
  35. title = "Excel-Importdatei laden"
  36. file  = "Adressen.csv"
  37. ok    = "Laden"
  38. rqflags = "rtfi_flags=freqf_save"
  39.  
  40. filename = rtfilerequest(dir,file,title,ok,rqflags,)
  41. if filename = "" then do
  42.   call rtezrequest("Keine Datei ausgewählt", "Abbruch")
  43.   EXIT
  44. end
  45.  
  46. IF ~OPEN(file,filename,"R") THEN DO   /* Ausgabedatei öffnen     */
  47.    SAY "Kann Ausgabedatei nicht öffnen!"
  48.    EXIT
  49. END
  50.  
  51. DO WHILE ~EOF(file)
  52.  
  53.   text = ""; salute = ""
  54.   text = READLN(file)
  55.  
  56.   IF text ~= "" THEN DO
  57.     PARSE VAR text ADM.company ";" ADM.salutation ";" salute ";" ADM.firstname ";" ADM.lastname ";" ADM.address1 ";" ADM.postcode ";" ADM.city ";" ADM.telephone ";" ADM.fax
  58.  
  59.     ADM.SORT = "COMPANY"
  60.     IF ADM.SALUTATION = "H" THEN ADM.SALUTATION = "Herrn"
  61.     IF ADM.SALUTATION = "F" THEN ADM.SALUTATION = "Frau"
  62.     NEWADDRESS ADM
  63.   END;
  64. END
  65.  
  66. ok = Close(file)
  67.