[Forms 6i] Lire le contenu d'un fichier texte [Résolu]

[Jihed Amine Maaref]

Salut ! je voudrais savoir si on peut lire le contenu d'un fichier texte sous forms 6i

j'ai fait ceci :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
DECLARE
	  filename VARCHAR2(256);
	  in_file  Text_IO.File_Type;
	  linebuf  VARCHAR2(80):=''; 
	  res  VARCHAR2(1000):=''; 
BEGIN 
	filename := GET_FILE_NAME(File_Filter=> 'Text Files (*.txt)|*.txt|');
	:chargement.source_donnees:=filename;
	in_file := Text_IO.Fopen(filename, 'r');
	WHILE (linebuf NOT LIKE '%*')
  LOOP
  Text_IO.Get_Line(in_file,linebuf);
	res :=concat (res,linebuf);
  END LOOP;
 	:chargement.contenu :=res;
END;

mais avec cette solution je suis obligé de rajouter un * à la fin du fichier.
Y a t il une meilleure solution (détection du EOF) sans avoir à utiliser des javabeans (je travaille en mode client/serveur)

Merci d'avance pour votre aide

Merci de BIEN utiliser les balises de mise en forme. Magnus

[SheikYerbouti]

READ_LINE génère une exception NO_DATA_FOUND en fin de fichier.
Il suffit donc d' ajouter une section Exception à votre bloc.

[Jihed Amine Maaref]

ça marche ! merci