Discussion :

[moi80]

bjr
je veux lire un fichier en utilisant dans une application forms, escequ il exite une fonction qui permet ça, en lui fournissant comme parametre le chemain où se trouve ce fichier
mrci

[SheikYerbouti]

Merci d'indiquer la version des outils que vous utilisez.

[moi80]

ah oui dslé, j utilise oracle forms 10g

[SheikYerbouti]

Si le fichier se trouve sur le Serveur d'Applications, il fait utiliser les fonctions du package TEXT_IO. Si le fichier est situé sur le poste client, il faut utiliser l'équivalent CLIENT_TEXT_IO de la librairie Webutil.

[moi80]

pouvez vous me donné un exemple

[SheikYerbouti]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
DECLARE
  LF$File  TEXT_IO.FILE_TYPE ;
  LC$Ligne Varchar2(4000);
BEGIN
    -- ouverture du fichier en lecture --
    LF$File := TEXT_IO.FOpen('c:\essai.txt', 'R');
    If TEXT_IO.Is_Open( LF$File ) Then
      Begin
           -- lecture des lignes --
           Loop
             TEXT_IO.Get_Line( LF$File, LC$Ligne ) ;
           End loop ;
        Exception
           When NO_DATA_FOUND Then -- fin du fichier
             -- fermeture --
             TEXT_IO.FClose( LF$File ) ;
        End ;        
    End if ;    
END;