home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / HF-ADM23.LHA / ADM / ARexx / WinWord-Excel / Import_Excel.adm < prev   
Encoding:
Text File  |  1995-06-04  |  1.4 KB  |  66 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.  
  39. filename = rtfilerequest(dir,file,title,ok)
  40. if filename = "" then do
  41.   call rtezrequest("Keine Datei ausgewählt", "Abbruch")
  42.   EXIT
  43. end
  44.  
  45. IF ~OPEN(file,filename,"R") THEN DO   /* Ausgabedatei öffnen     */
  46.    SAY "Kann Ausgabedatei nicht öffnen!"
  47.    EXIT
  48. END
  49.  
  50. DO WHILE ~EOF(file)
  51.  
  52.   text = ""; salute = ""
  53.   text = READLN(file)
  54.  
  55.   IF text ~= "" THEN DO
  56.     PARSE VAR text ADM.company ";" ADM.salutation ";" salute ";" ADM.firstname ";" ADM.lastname ";" ADM.address1 ";" ADM.postcode ";" ADM.city ";" ADM.telephone ";" ADM.fax
  57.  
  58.     ADM.SORT = "COMPANY"
  59.     IF ADM.SALUTATION = "H" THEN ADM.SALUTATION = "Herrn"
  60.     IF ADM.SALUTATION = "F" THEN ADM.SALUTATION = "Frau"
  61.     NEWADDRESS ADM
  62.   END;
  63. END
  64.  
  65. ok = Close(file)
  66.