1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
declare
fichier_sortie text_io.file_type; --- Déclaration du fichier de sortie
nomfichier_s varchar2(30); --- Déclaration nom du fichier de sortie
ligne_buf varchar2(32740);
var char(30);
Begin
nomfichier_s:=get_file_name('c:\essai.doc');--Exemple essai.doc
fichier_sortie:=text_io.fopen(nomfichier_s,'w');
var:=' Bonjour ';
ligne_buf:=var;
text_io.put_line(fichier_sortie,ligne_buf);
ligne_buf:='';
text_io.put_line(fichier_sortie,ligne_buf);
-- Fermeture de fichier --
text_io.fclose(fichier_sortie);
END; |
Partager