home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / adm30.lha / ADM / ARexx / ADM-ARexxMakros.lha / ImExport / Ex-Import.adm < prev    next >
Encoding:
Text File  |  1996-03-04  |  3.6 KB  |  136 lines
  1. /* $VER: Ex-Import.adm 0.2beta (28.10.95)
  2.  
  3. von Bernd Stange
  4.  
  5. Exportiert und importiert Datensätze von ADM
  6. zeilenweise im Format
  7.    anrede;nachname;vorname;titel;firma;
  8.    sortierung;adresse1;adresse2;plz;ort;
  9.    land;geburtstag;telefon;fax;email1;
  10.    email2;id;bemerkung;extfile
  11.  
  12.   */
  13.  
  14. /***************************************************************/
  15. Ver = 'Ex-Import.adm V 0.2beta'
  16.  
  17.  
  18.  
  19.  
  20.  
  21. ADDRESS 'ADM.1'
  22.  
  23. OPTIONS RESULTS
  24.  
  25.  
  26. IF ~SHOW(LIBRARIES,'rexxsupport.library') THEN
  27.    IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN
  28.       EXIT 10
  29.  
  30. IF ~SHOW(LIBRARIES,'rexxreqtools.library') THEN
  31.    IF ~ADDLIB('rexxreqtools.library',0,-30,0) THEN
  32.       EXIT 10
  33.  
  34.  
  35. IF ~SHOW(PORTS,'ADM.1') THEN DO
  36.    SAY 'Bitte erst AdressMaster starten !'
  37. EXIT
  38. END
  39.  
  40.  
  41.  
  42.    Flag = 'rtez_flags = ezreqf_centertext'
  43.      NL = "0a"x
  44.   Titel = Ver
  45.  Gadget = 'Exportieren|Importieren|Abbruch'
  46. Reqtext = 'A C H T U N G :',
  47.           || NL || 'In dieser Version werden alle Einträge',
  48.           || NL || 'aus dem Bemerkungs-Feld ignoriert !' || NL || '',
  49.           || NL || 'Datensatz exportieren oder importieren ?'
  50. Auswahl = rtezrequest(Reqtext,Gadget,Titel,Flag)
  51.  
  52. IF Auswahl = 0 THEN CALL Ende
  53. IF Auswahl = 1 THEN CALL Exportieren
  54. IF Auswahl = 2 THEN CALL Importieren
  55.  
  56.  
  57. Exportieren:
  58. ADDRINMEM
  59. numadr = RESULT
  60. IF numadr = 0 THEN DO
  61. call rtezrequest('Keine Datensätze gefunden !', "OK")
  62. EXIT
  63. END
  64. filename = rtfilerequest("","","Export-Datei speichern","Exportieren!",'rtfi_flags=freqf_save',)
  65.  
  66. IF ~OPEN(datei,filename,"W") THEN DO
  67.    SAY "Kann die Datei nicht öffnen!"
  68. EXIT
  69. END
  70. Zeile = WriteLn(datei,'Importdatei')
  71. ADDRINMEM
  72. numadr = RESULT
  73. ACTIVATEFIRST
  74. DO FOR numAdr
  75. GETADDRESS ADM
  76. Zeile = WriteLn(datei,adm.SALUTATION ||';'|| adm.LASTNAME ||';'|| ,
  77.                       adm.FIRSTNAME ||';'||  adm.TITLE ||';'|| ,
  78.                       adm.COMPANY ||';'||  adm.SORT ||';'|| ,
  79.                       adm.ADDRESS1 ||';'||  adm.ADDRESS2 ||';'|| ,
  80.                       adm.POSTCODE ||';'||  adm.CITY ||';'|| ,
  81.                       adm.COUNTRY ||';'||  adm.BIRTHDAY ||';'|| ,
  82.                       adm.TELEPHONE ||';'||  adm.FAX ||';'|| ,
  83.                       adm.EMAIL1 ||';'||  adm.EMAIL2 ||';'|| ,
  84.                       adm.ID ||';'|| adm.REMARK1 ||';'adm.EXTFILE)
  85.  
  86. ACTIVATENEXT
  87. END
  88. call rtezrequest('Es wurden "' || numadr || '" Datensätze in die Datei "' || filename || '" exportiert !', "OK")
  89. CALL Ende
  90.  
  91.  
  92. Importieren:
  93. ADDRINMEM
  94. numadr = RESULT
  95. filename = rtfilerequest("","","Import-Datei laden","Importieren!")
  96.  
  97. IF ~OPEN(datei,filename,"R") THEN DO
  98.    SAY "Kann die Datei nicht öffnen!"
  99. EXIT
  100. END
  101. line = READLN(datei)
  102. IF line ~= 'Importdatei' THEN DO
  103. call rtezrequest('Die Datei "' || filename || '" ist keine Importdatei!', "OK")
  104. call ende
  105. end
  106. DO WHILE ~EOF(datei)
  107. IF line ~= "" THEN DO
  108. IF line ~= "Importdatei" THEN DO
  109. PARSE VAR line adm.SALUTATION ';' adm.LASTNAME ';',
  110.                adm.FIRSTNAME ';' adm.TITLE ';',
  111.                adm.COMPANY ';' adm.SORT ';',
  112.                adm.ADDRESS1 ';' adm.ADDRESS2 ';',
  113.                adm.POSTCODE ';' adm.CITY ';',
  114.                adm.COUNTRY ';' adm.BIRTHDAY ';',
  115.                adm.TELEPHONE ';' adm.FAX ';',
  116.                adm.EMAIL1 ';' adm.EMAIL2 ';' adm.ID ';' adm.REMARK1 ';',
  117.                adm.EXTFILE
  118. NEWADDRESS ADM
  119. END
  120. END
  121. line = READLN(datei)
  122. END
  123. ADDRINMEM
  124. numadr1 = RESULT
  125. Anzahl = numadr1 - numadr
  126. Frage = rtezrequest('Es wurden "' || anzahl || '" Datensätze aus der Datei "' || filename || '" importiert !' || NL || 'Soll die Datei "' || filename || '" gelöscht werden ?', "Ja|Nein",,Flag)
  127. IF Frage = 1 THEN DO
  128. CALL CLOSE(Datei)
  129. ADDRESS COMMAND 'delete' filename '>NIL:'
  130. END
  131. CALL Ende
  132.  
  133. Ende:
  134. CALL CLOSE(Datei)
  135. EXIT
  136.