Fichier

Ce programme présente l'usage des fichiers.

Le fichier source est ${UPS_HOME}/upsvtm/demo/${UPS_LANGUAGE}/fichier.upl.

Mode compilé

Commande de compilation


upscmp Source=fichier.upl

Commande d'exécution


fichier

Mode interprété


upssng Source=fichier.upl

Fichier source


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



Principal

/*******/

Variable

/******/

	F : Fichier;

	FBis : Fichier;

	C : Caractere;

	E : Entier;

	R : Reel;

	B : Booleen;

	P : Entier;



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);

Ecran.Ecrire(C);

Ecran.Ecrire(E);

P=F.LirePosition();

E=F.LireUneLigne(C);

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

	Ecran.Ecrire("Fin de fichier");

Fin Si

F.FixerPosition(P);

E=F.LireUneLigne(C);

Ecran.Ecrire(C);

Ecran.Ecrire(E);

Si F.FinDeFlux Alors

	Ecran.Ecrire("Fin de fichier");

Fin Si

F.Fermer();

Si F==FBis Alors

	Ecran.Ecrire("F==FBis");

Fin Si

Si F!=FBis Alors

	Ecran.Ecrire("F!=FBis");

Fin Si

Fin Principal

Résultat de l'exécution

Bonjour Au r 4 evoir 5 Et a bientot 12 1 2.3 Vrai Fin de fichier Et a bientot 12 F!=FBis