databa4

gestione database con nome assegnato da programma :rubri4.dba su floppy inA:(si può modificare )

in questo esempio viene chiesto di scrivere un primo dato,poi altri tre dati,infine uno da sostituire
(per vedere il database creato rubri4.dba ,aprirlo con NOTES )

/* databa4.pro */
/* esempio gestione database */
/* scrivere dati in file dba */
/* aggiungere dati in file dba */
/* modificare dati in file dba */
/* file usato rubri4.dba */
/* modifica di dato in posizione indicata */

nowarnings
domains
file = salvafile
Dato = symbol

predicates
scrive
modifica
aggiunge
finestra
goal finestra,scrive,
aggiunge,aggiunge,aggiunge,modifica.

clauses
finestra:-
makewindow(1,5,1,"",1,1,20,50).
scrive:-
write("scrivi nome da registrare \n"),
readln(Dato),
disk("A:"),
openwrite(salvafile,"rubri4.dba"),
writedevice(salvafile),
write(Dato,"\n"),
closefile(salvafile).

aggiunge:-
write("scrivi termine da aggiungere \n"),
readln(Dato),
disk("A:"),
openappend(salvafile,"rubri4.dba"),
writedevice(salvafile),
write(Dato,"\n"),
closefile(salvafile).

modifica:-
write("scrivi termine da sostituire \n"),
write("ad altro termine in posizione \n"),
write("da indicare con filepos \n"),
readln(Dato),
disk("A:"),
openmodify(salvafile,"Rubri4.dba"),
writedevice(salvafile),
filepos(salvafile,2,2),
write(Dato,"\n"),
closefile(salvafile).