pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués


Le code suivant permet de fermer un fichier externe. Le fichier est ouvert en mode lecture/écriture.  Le fichier ouvert est librement accessible par les autres applications.



// Déclaration des variables
NomCheminFichier est une chaîne
IdFichier est un entier
ResFermeFichier est un entier
// Sélection du nom et du chemin du fichier
NomCheminFichier = "C:\MesRépertoires\Fichier.txt"
// Ouverture du fichier
IdFichier = fOuvre(NomCheminFichier, foLectureEcriture )
// Affichage du message d'erreur si l'ouverture n'a pas été effectuée
SI IdFichier = -1 ALORS
   Erreur(ErreurInfo( errMESSAGE ))
SINON
   // Traitements dans le fichier externe
   
...
   // Fin des traitements dans le fichier externe
   // Fermeture du fichier
   ResFermeFichier = fFerme (IdFichier)
   SI ResFermeFichier = -1 ALORS
      // Affichage du message d'erreur si la fermeture n'a pas été effectuée
      Erreur(ErreurInfo( errMESSAGE ))
   FIN
FIN


Le code suivant permet de fermer un fichier externe. Le fichier est ouvert en mode lecture/écriture. Le fichier ouvert est librement accessible par les autres applications.



// Déclaration des variables
NomCheminFichier
est une chaîne = "\Mes Fichiers\Fichier.TXT"
IdFichier
est un entier
ResFermeFichier
est un entier

// Ouverture du fichier
IdFichier
= fOuvre ( NomCheminFichier , foLectureEcriture )

// Affichage du message d'erreur si l'ouverture n'a pas été effectuée
SI IdFichier = - 1 ALORS
      Erreur
( ErreurInfo ( errMESSAGE ))
SINON
      // Traitements dans le fichier externe
      ...
      // Fin des traitements dans le fichier externe

      // Fermeture du fichier
      ResFermeFichier
= fFerme ( IdFichier )
      SI
ResFermeFichier = - 1 ALORS
        // Affichage du message d'erreur si la fermeture n'a pas été effectuée
        Erreur
( ErreurInfo ( errMESSAGE ))
      FIN
FIN