Gold Fish 3/goldfish_volume_3.bin/files/fish/disks/d1068.lha/Programs/AddressBook/Arexx/Ed/InsDataAB2Ed.ed

Text File | 1995-01-28 | 4.2 KB | 167 lines

/*
**  $VER: Insert Data Address Book 2 Ed 01.00 (23.01.1995)
**
**  © 1995 Aris Basic
**
**  PROGRAMNAME:
**      InsDataAB2Ed.ed
**
**  FUNCTION:
**      This script make exchange from KeyWords in ED(© Commodore Amiga INC.) text.
**      Dates FOR exchange are from Address-Book 0.26# (© Jörg Krause)
**      (Read ABMacros.guide FOR more infos)
**
**      That`s one ED ARexx Macro
**      Script can be only distributet AND copyed with full Addres-Book Archiv
**      AND without any changes !!!
**
**  $HISTORY:
**
**   23.01.95 : 01.00 : initial release
**
*/

/*
**   STRING CONST BEGIN:
*/

noentry='<noentry>'

/* Standard STRING FOR EMPTY entry */

staatc='Deutschland'

/* Standard State name. !WARNING! DON`T PUT ' '(space) IN STRING PUT '_' */

/*
**   STRING CONST END ;
*/

OPTIONS RESULTS
edadr=ADDRESS()

IF ~SHOW('P','ADDRESS_BOOK.1') THEN DO
                    SAY "Kann Address-Book nicht finden"
                    CALL error()
END
ADDRESS 'ADDRESS_BOOK.1'
    'FIRST SELECTED'
    'GETSELECTED'
    IF RC=5 THEN DO
           'REQUEST INFO TITLE="FEHLER" BODY="Es ist kein Eintrag in ABook Selektiert" BUTTON="_OK"'
           CALL error()
    END
    alt=0
    neu=RESULT
    ADDRESS VALUE edadr
    'SA /T:file.tmp/'
    'M 1'
    DO WHILE neu~=alt
             ADDRESS 'ADDRESS_BOOK.1'
                   'LOCK 'neu
                   'QUERY SURNAME'
                   nname=RESULT
                   IF Length(nname)=0 THEN nname=noentry
                   'QUERY PRENAME'
                   vname=RESULT
                   IF Length(vname)=0 THEN vname=noentry
                   'QUERY STREET'
                   strasse=RESULT
                   strasse=SPACE(strasse,1,'_')
                   IF Length(strasse)=0 THEN strasse=noentry
                   'QUERY POSTCODE'
                   plz=RESULT
                   IF Length(plz)=0 THEN plz=noentry
                   'QUERY TOWN'
                   ort=RESULT
                   ort=SPACE(ort,1,'_')
                   IF Length(ort)=0 THEN ort=noentry
                   'QUERY PHONE'
                   tel=RESULT
                   IF Length(tel)=0 THEN tel=noentry
                   'QUERY FAX'
                   fax=RESULT
                   IF Length(fax)=0 THEN fax=noentry
                   'QUERY SEX'
                   anrede=RESULT
                   IF Length(anrede)=0 THEN anrede=noentry
                   'QUERY EMAIL'
                   email=RESULT
                   IF Length(email)=0 THEN email=noentry
                   'QUERY STATE'
                   staat=RESULT
                   staat=SPACE(staat,1,'_')
                   IF Length(staat)=0 THEN staat=staatc
                   'QUERY COUNTRY'
                   land=RESULT
                   land=SPACE(land,1,'_')
                   IF Length(land)=0 THEN land=noentry
                   'QUERY BIRTHDAY'
                   gtag=RESULT
                   IF Length(gtag)=0 THEN gtag=noentry
                   'QUERY BANK'
                   bank=RESULT
                   bank=SPACE(bank,1,'_')
                   IF Length(bank)=0 THEN bank=noentry
                   'QUERY BANKCODE'
                   blz=RESULT
                   blz=SPACE(blz,1,'-')
                   IF Length(blz)=0 THEN blz=noentry
                   'QUERY ACCOUNT'
                   konto=RESULT
                   konto=SPACE(konto,1,'-')
                   IF Length(konto)=0 THEN konto=noentry
                   'QUERY COMMENT'
                   komentar=RESULT
                   komentar=SPACE(komentar,1,'_')
                   IF Length(komentar)=0 THEN komentar=noentry
               ADDRESS VALUE edadr
               'E /$NNAME$/'||nname||'/'
               'E /$SNAME$/'||nname||'/'
               'E /$VNAME$/'||vname||'/'
               'E /$PNAME$?'||vname||'/'
               'E :$STRASSE$:'||strasse||':'
               'E :$STREET$:'||strasse||':'
               'E :$PLZ$:'||plz||':'
               'E :$PCODE$:'||plz||':'
               'E :$STADT$:'||ort||':'
               'E :$CITY$:'||ort||':'
               'E :$TEL$/'||tel||':'
               'E :$FAX$:'||fax||':'
               'E :$AN$:'||anrede||':'
               'E :$SEX$:'||anrede||':'
               'E :$EMAIL$:'||email||':'
               'E :$STAAT$:'||staat||':'
               'E :$STATE$:'||staat||':'
               'E :$LAND$:'||land||':'
               'E :$COUNTRY$:'||land||':'
               'E /$GEBTAG$/'||gtag||'/'
               'E /$BDAY$/'||gtag||'/'
               'E :$BANK$:'||bank||':'
               'E :$BLZ$:'||blz||':'
               'E :$BCODE$:'||blz||':'
               'E :$KONTO$:'||konto||':'
               'E :$ACC$:'||konto||':'
               'E /$KOM$/'||komentar||'/'
               ADDRESS 'ADDRESS_BOOK.1'
               'REQUEST INFO TITLE="ANFRAGE" BODY="Sol ich den Text ausdrucken oder speichern ?" BUTTON="_Speichern|_Drucken"'
               button=RESULT
               ADDRESS VALUE edadr
               IF button=1 THEN DO
                       'SA ?/Name fuer Speichern/'
               END
               IF button=0 THEN DO
                       'SA /PRT:/'
               END
               'OP /T:file.tmp/'
          ADDRESS 'ADDRESS_BOOK.1'
          alt=neu
          'NEXT SELECTED'
          'GETSELECTED'
          neu=RESULT
       END
EXIT 0
error:
EXIT 10