home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #3
/
amigamamagazinepolishissue1998.iso
/
bazy
/
adm
/
arexx
/
adm-arexxmakros.lha
/
ImExport
/
Ex-Import.adm
< prev
next >
Wrap
Text File
|
1996-03-04
|
4KB
|
136 lines
/* $VER: Ex-Import.adm 0.2beta (28.10.95)
von Bernd Stange
Exportiert und importiert Datensätze von ADM
zeilenweise im Format
anrede;nachname;vorname;titel;firma;
sortierung;adresse1;adresse2;plz;ort;
land;geburtstag;telefon;fax;email1;
email2;id;bemerkung;extfile
*/
/***************************************************************/
Ver = 'Ex-Import.adm V 0.2beta'
ADDRESS 'ADM.1'
OPTIONS RESULTS
IF ~SHOW(LIBRARIES,'rexxsupport.library') THEN
IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN
EXIT 10
IF ~SHOW(LIBRARIES,'rexxreqtools.library') THEN
IF ~ADDLIB('rexxreqtools.library',0,-30,0) THEN
EXIT 10
IF ~SHOW(PORTS,'ADM.1') THEN DO
SAY 'Bitte erst AdressMaster starten !'
EXIT
END
Flag = 'rtez_flags = ezreqf_centertext'
NL = "0a"x
Titel = Ver
Gadget = 'Exportieren|Importieren|Abbruch'
Reqtext = 'A C H T U N G :',
|| NL || 'In dieser Version werden alle Einträge',
|| NL || 'aus dem Bemerkungs-Feld ignoriert !' || NL || '',
|| NL || 'Datensatz exportieren oder importieren ?'
Auswahl = rtezrequest(Reqtext,Gadget,Titel,Flag)
IF Auswahl = 0 THEN CALL Ende
IF Auswahl = 1 THEN CALL Exportieren
IF Auswahl = 2 THEN CALL Importieren
Exportieren:
ADDRINMEM
numadr = RESULT
IF numadr = 0 THEN DO
call rtezrequest('Keine Datensätze gefunden !', "OK")
EXIT
END
filename = rtfilerequest("","","Export-Datei speichern","Exportieren!",'rtfi_flags=freqf_save',)
IF ~OPEN(datei,filename,"W") THEN DO
SAY "Kann die Datei nicht öffnen!"
EXIT
END
Zeile = WriteLn(datei,'Importdatei')
ADDRINMEM
numadr = RESULT
ACTIVATEFIRST
DO FOR numAdr
GETADDRESS ADM
Zeile = WriteLn(datei,adm.SALUTATION ||';'|| adm.LASTNAME ||';'|| ,
adm.FIRSTNAME ||';'|| adm.TITLE ||';'|| ,
adm.COMPANY ||';'|| adm.SORT ||';'|| ,
adm.ADDRESS1 ||';'|| adm.ADDRESS2 ||';'|| ,
adm.POSTCODE ||';'|| adm.CITY ||';'|| ,
adm.COUNTRY ||';'|| adm.BIRTHDAY ||';'|| ,
adm.TELEPHONE ||';'|| adm.FAX ||';'|| ,
adm.EMAIL1 ||';'|| adm.EMAIL2 ||';'|| ,
adm.ID ||';'|| adm.REMARK1 ||';'adm.EXTFILE)
ACTIVATENEXT
END
call rtezrequest('Es wurden "' || numadr || '" Datensätze in die Datei "' || filename || '" exportiert !', "OK")
CALL Ende
Importieren:
ADDRINMEM
numadr = RESULT
filename = rtfilerequest("","","Import-Datei laden","Importieren!")
IF ~OPEN(datei,filename,"R") THEN DO
SAY "Kann die Datei nicht öffnen!"
EXIT
END
line = READLN(datei)
IF line ~= 'Importdatei' THEN DO
call rtezrequest('Die Datei "' || filename || '" ist keine Importdatei!', "OK")
call ende
end
DO WHILE ~EOF(datei)
IF line ~= "" THEN DO
IF line ~= "Importdatei" THEN DO
PARSE VAR line adm.SALUTATION ';' adm.LASTNAME ';',
adm.FIRSTNAME ';' adm.TITLE ';',
adm.COMPANY ';' adm.SORT ';',
adm.ADDRESS1 ';' adm.ADDRESS2 ';',
adm.POSTCODE ';' adm.CITY ';',
adm.COUNTRY ';' adm.BIRTHDAY ';',
adm.TELEPHONE ';' adm.FAX ';',
adm.EMAIL1 ';' adm.EMAIL2 ';' adm.ID ';' adm.REMARK1 ';',
adm.EXTFILE
NEWADDRESS ADM
END
END
line = READLN(datei)
END
ADDRINMEM
numadr1 = RESULT
Anzahl = numadr1 - numadr
Frage = rtezrequest('Es wurden "' || anzahl || '" Datensätze aus der Datei "' || filename || '" importiert !' || NL || 'Soll die Datei "' || filename || '" gelöscht werden ?', "Ja|Nein",,Flag)
IF Frage = 1 THEN DO
CALL CLOSE(Datei)
ADDRESS COMMAND 'delete' filename '>NIL:'
END
CALL Ende
Ende:
CALL CLOSE(Datei)
EXIT