Fichier

Commande de compilation...
Commande d'exécution...
Fichier source...

upscmp Source=fichier.upl

Revenir en haut de la page...

fichier

Revenir en haut de la page...

Source Composant "Exemple d'emploi du type Fichier" Version 1.0.0;

Principal
Variable Debut F=Fichier("c:/tmp/essai.txt", EcritureTexte);
F.Ecrire("Bonjour\nAu revoir\nEt a bientot\n");
F.Ecrire(1);
F.Ecrire("\n");
F.Ecrire(2.3);
F.Ecrire("\n");
F.Ecrire(Vrai);
F.Ecrire("\n");
F.Vider();
F.DeposerSurDisque();
F.Fermer();
F=Fichier("c:/tmp/essai.txt", LectureTexte);
E=F.LireUnMot(C, 20);
Ecran.Ecrire(C);
E=F.Lire(C, 4);
Ecran.Ecrire(C);
Ecran.Ecrire(E);
E=F.LireUneLigne(C, 50);
Ecran.Ecrire(C);
Ecran.Ecrire(E);
P=F.LirePosition();
E=F.LireUneLigne(C, 50);
Ecran.Ecrire(C);
Ecran.Ecrire(E);
F.Lire(E);
Ecran.Ecrire(E);
F.Lire(R);
Ecran.Ecrire(R);
F.Lire(B);
Ecran.Ecrire(B);
E=F.Lire(C,10);
Si F.FinDeFlux Alors Fin Si
F.FixerPosition(P);
E=F.LireUneLigne(C,50);
Ecran.Ecrire(C);
Ecran.Ecrire(E);
Si F.FinDeFlux Alors Fin Si
F.Fermer();
Si F==FBis Alors Fin Si
Si F!=FBis Alors Fin Si
Fin Principal

Revenir en haut de la page...