Auteur: Patrick BikerExemples évolués
Chaque exemple montre une utilisation pratique de la fonction du WLangage.
Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.
Le code suivant permet d'afficher le contenu d'un fichier texte dans un champ de saisie (SaisieFichier). Chaque lecture correspond à une ligne du fichier texte.
|
||
|
// Déclaration des variables
NomCheminFichier est une chaîne IdFichier est un entier LigneLue est une chaîne 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) // Affichage du message d'erreur si l'ouverture n'a pas été effectuée SI IdFichier = -1 ALORS Erreur(ErreurInfo( errMESSAGE )) SINON // Lecture de la première ligne du fichier LigneLue = fLitLigne (IdFichier) // Affichage de la première ligne dans le champ de saisie SaisieFichier = LigneLue // Autres lignes à lire ? Erreur de lecture ? TANTQUE LigneLue <> EOT ET LigneLue <> "" // Lecture des lignes suivantes du fichier LigneLue = fLitLigne (IdFichier) // Affichage des lignes suivantes dans le champ de saisie SaisieFichier = SaisieFichier + LigneLue FIN // Affichage du message d'erreur si la lecture n'a pas été effectuée SI LigneLue = "" ALORS Erreur(ErreurInfo(errMESSAGE)) SI LigneLue = EOT ALORS Info("La fin du fichier a été atteinte") // 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 d'afficher le contenu d'un fichier texte dans un champ de saisie (SaisieFichier). Chaque lecture correspond à une ligne du fichier texte.
|
||
|
// Déclaration des variables
NomCheminFichier est une chaîne = "\Mes Fichiers\Fichier.TXT" IdFichier est un entier LigneLue est une chaîne ResFermeFichier est un entier // Ouverture du fichier IdFichier = fOuvre(NomCheminFichier) // Affichage du message d'erreur si l'ouverture n'a pas été effectuée SI IdFichier = -1 ALORS Erreur(ErreurInfo( errMESSAGE )) SINON // Lecture de la première ligne du fichier LigneLue = fLitLigne (IdFichier) // Affichage de la première ligne dans le champ de saisie SaisieFichier = LigneLue // Autres lignes à lire ? Erreur de lecture ? TANTQUE LigneLue <> EOT ET LigneLue <> "" // Lecture des lignes suivantes du fichier LigneLue = fLitLigne (IdFichier) // Affichage des lignes suivantes dans le champ de saisie SaisieFichier = SaisieFichier + LigneLue FIN // Affichage du message d'erreur si la lecture n'a pas été effectuée SI LigneLue = "" ALORS Erreur(ErreurInfo(errMESSAGE)) SI LigneLue = EOT ALORS Info("La fin du fichier a été atteinte") // 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
|
