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 de lire un bloc d'octets dans un fichier externe. Le fichier texte est ouvert en mode lecture/écriture. Nous considérons que le fichier texte contient : "La programmation facile et rapide !". La lecture des 23 premiers caractères correspond à : "La programmation facile".
|
||
|
// Déclaration des variables
IdFichier est un entier ResLecture est une chaîne ResFermeFichier est un entier // Ouverture du fichier IdFichier = fOuvre("C:\MesRépertoires\Slogan.TXT", foLectureEcriture ) // Affichage du message d'erreur si l'ouverture n'a pas été effectuée SI IdFichier = -1 ALORS Erreur(ErreurInfo( errMESSAGE )) SINON // Lecture des 23 premiers octets (caractères) dans le fichier ResLecture = fLit (IdFichier, 23) // Affichage du message d'erreur si la lecture n'a pas été effectuée SI ResLecture = "" ALORS Erreur(ErreurInfo( errMESSAGE )) SINON // Affichage du bloc d'octets lu Info(ResLecture) // Affiche "La programmation facile" FIN // 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 chaîne de caractères de longueur fixe (50 octets). Le fichier texte est ouvert en mode lecture/écriture. Le contenu du fichier texte est affecté dans une portion de mémoire (identifiée par son adresse) avant d'être affiché dans le champ de saisie.
|
||
|
// Déclaration des variables
NomCheminFichier est une chaîne IdFichier est un entier ResLecture est un entier DonnéeALire est une chaîne ASCII sur 50 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 // Lecture des premiers 50 octets dans le fichier ResLecture = fLit (IdFichier, 50 , & DonnéeALire) // Affichage des premiers octets lus dans le champ de saisie SaisieFichier = DonnéeALire // Autres données à lire ? Erreur de lecture ? TANTQUE ResLecture <> 0 // Lecture des données suivantes du fichier ResLecture = fLit (IdFichier, 50 , & DonnéeALire) // Affichage des données suivantes dans le champ de saisie SaisieFichier = SaisieFichier + DonnéeALire FIN // Affichage du message d'erreur si la lecture n'a pas été effectuée SI ResLecture = 0 ALORS Erreur(ErreurInfo( errMESSAGE )) // 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 lire une variable composée (StrucFenêtre) stockée dans un fichier texte. Cette structure correspond à la position et l'aspect d'une fenêtre à un instant donné. Ces informations sont ensuite transférées vers une portion de mémoire (identifiée par son adresse).
|
||
|
// Déclaration des variables
IdFichier est un entier StructFenêtre est composée de PosHorizontal,PosVertical sont des entiers Largeur, Hauteur sont des entiers FIN ResLecture est un entier ResFermeFichier est un entier // Ouverture du fichier IdFichier = fOuvre("C:\Temp\FichierFenetre.txt", foLectureEcriture ) // Affichage du message d'erreur si l'ouverture n'a pas été effectuée SI IdFichier = -1 ALORS Erreur(ErreurInfo( errMESSAGE )) SINON // Lecture du contenu du fichier texte ResLecture = fLit (IdFichier, Dimension(StructFenêtre ), & StructFenêtre) // Affichage du message d'erreur si la lecture n'a pas été effectuée SI ResLecture = 0 ALORS Erreur(ErreurInfo( errMESSAGE )) // 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 // Modification de la position et de l'aspect de la fenêtre MaFenêtre..X = StructFenêtre.PosHorizontal MaFenêtre..Y = StructFenêtre.PosVertical MaFenêtre..Largeur = StructFenêtre.Largeur MaFenêtre..Hauteur = StructFenêtre.Hauteur
|
||
Le code suivant permet de lire un bloc d'octets dans un fichier externe. Le fichier texte est ouvert en mode lecture/écriture. Nous considérons que le fichier texte contient : "La programmation facile et rapide !". La lecture des 23 premiers caractères correspond à : "La programmation facile".
|
||
|
// Déclaration des variables
IdFichier est un entier ResLecture est une chaîne ResFermeFichier est un entier // Ouverture du fichier IdFichier = fOuvre("\MesRépertoires\Slogan.TXT", foLectureEcriture ) // Affichage du message d'erreur si l'ouverture n'a pas été effectuée SI IdFichier = -1 ALORS Erreur(ErreurInfo( errMESSAGE )) SINON // Lecture des 23 premiers octets (caractères) dans le fichier ResLecture = fLit (IdFichier, 23) // Affichage du message d'erreur si la lecture n'a pas été effectuée SI ResLecture = "" ALORS Erreur(ErreurInfo( errMESSAGE )) SINON // Affichage du bloc d'octets lu Info(ResLecture) // Affiche "La programmation facile" FIN // 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 lire une variable composée (StrucFenêtre) stockée dans un fichier texte. Cette structure correspond à la position et l'aspect d'une fenêtre à un instant donné. Ces informations sont ensuite transférées vers une portion de mémoire (identifiée par son adresse).
|
||
|
// Déclaration des variables
IdFichier est un entier StructFenêtre est composée de PosHorizontal,PosVertical sont des entiers Largeur, Hauteur sont des entiers FIN ResLecture est un entier ResFermeFichier est un entier // Ouverture du fichier IdFichier = fOuvre("\Temp\FichierFenetre.txt", foLectureEcriture ) // Affichage du message d'erreur si l'ouverture n'a pas été effectuée SI IdFichier = -1 ALORS Erreur(ErreurInfo( errMESSAGE )) SINON // Lecture du contenu du fichier texte ResLecture = fLit (IdFichier, Dimension(StructFenêtre ), & StructFenêtre) // Affichage du message d'erreur si la lecture n'a pas été effectuée SI ResLecture = 0 ALORS Erreur(ErreurInfo( errMESSAGE )) // 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 // Modification de la position et de l'aspect de la fenêtre MaFenêtre..X = StructFenêtre.PosHorizontal MaFenêtre..Y = StructFenêtre.PosVertical MaFenêtre..Largeur = StructFenêtre.Largeur MaFenêtre..Hauteur = StructFenêtre.Hauteur
|
