gestione file

testo1
scritto con prolog attivato,in finestra
editor e salvato con SAVE..nome file.TXT
per essere utilizzato come esempio
di inserimento file.txt in ambiente
prolog operativo;si può anche scrivere
il testo con notes e salvarlo sempre
come file.txt

/* prova1.pro */
/* gestione file su disco */
/* carica file tipo testo da disco ,indicandone eventualmente il percorso*/
/* visualizza in finestra */

domains
predicates
elabora
fine
goal elabora,fine.

clauses
 elabora:-
 makewindow(1,7,1,"",1,1,20,70),
 write("attivata finestra..."),
 sound(300,600),
 file_str("testo1.txt",TXT),
 display(TXT),
 clearwindow,!.

 fine:-
 write("fine prova").
  

/* prova2.pro */
/* gestione file su disco */
/* rinomina file su disco e poi carica testo1.txt diventa testo2.txt*/
/* carica file tipo testo da disco */
/* visualizza in finestra */

domains
predicates
rinomina
elabora
fine
goal rinomina,elabora,fine.

clauses
 rinomina:-
 renamefile("testo1.txt","testo2.txt").
 elabora:-
 makewindow(1,7,1,"",1,1,20,70),
 write("attivata finestra..."),
 sound(300,600),
 file_str("testo2.txt",TXT),
 display(TXT),
 clearwindow,!.

 fine:-
 write("fine prova").
  

questo testo scritto e salvato come testo1.txt,viene rinominato come testo2.txt
e richiamato con tale nome:nella cartella non esiste più come testo1.txt

testo1
scritto con prolog attivato,in finestra
editor e salvato con SAVE..nome file.TXT
per essere utilizzato come esempio
di inserimento file.txt in ambiente
prolog operativo;si può anche scrivere
il testo con notes e salvarlo sempre
come file.txt

/* prova3.pro */
/* gestione file su disco */
/* cancella file su disco con DELETEFILE */
/* rinomina file su disco e poi carica */
/* carica file tipo testo da disco */
/* visualizza in finestra */

domains
predicates
cancella
rinomina
elabora
elabora1
fine
goal rinomina,elabora,cancella,elabora1,fine.

clauses
 rinomina:-
 renamefile("testo2.txt","testo4.txt").
 elabora:-
 makewindow(1,7,1,"",1,1,20,70),
 write("attivata finestra..."),
 sound(300,600),
 file_str("testo4.txt",TXT),
 display(TXT),
 clearwindow,!.
 cancella:-
 deletefile("testo4.txt").
 elabora1:-
 file_str("testo3.txt",Testo),
 display(Testo),
 clearwindow.
 fine:-
 write("fine prova").
  

osservando la cartella si vede che il file testo2.txt non esiste perchè rinominato
e il file testo4.txt da esse derivato non esiste perchè cancellato
rimane solo testo3.txt

testo3
scritto con prolog attivato
e con opzione EDIT
viene poi cancellato da disco con DELETEFILE
savato con FILES-SAVE..nome.TXT