Caractere

Ce programme présente l'usage des chaînes de caractères

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

Mode compilé

Commande de compilation


upscmp Source=caracetere.upl

Commande d'exécution


caractere

Mode interprété


upssng Source=caractere.upl

Fichier source


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



Principal

/*******/

Variable

/******/

   C : Caractere;

   L : Entier;

   I : Entier;



Debut

C=Caractere(Vrai);

Ecran.Ecrire(C);

C=Caractere(5);

Ecran.Ecrire(C);

C=Caractere(3.14159);

Ecran.Ecrire(C);

C="Bonjour le monde";

Ecran.Ecrire(C);

C="Bonjour"+" Le"+" monde";

Ecran.Ecrire(C);

C=-"Bonjour le monde";

Ecran.Ecrire(C);

L="Bonjour".Longueur();

Ecran.Ecrire(L);

C="Bonjour le monde".Gauche(5);

Ecran.Ecrire(C);

C="Bonjour le monde".Droite(5);

Ecran.Ecrire(C);

C="Bonjour le monde".Milieu(2,5);

Ecran.Ecrire(C);

C="Bonjour le monde".Majuscule();

Ecran.Ecrire(C);

C="bONJour le monde".MajMinuscule();

Ecran.Ecrire(C);

C="bONJour le monde".Minuscule();

Ecran.Ecrire(C);

C="Bonjour monde".Inserer(" le", 7);

Ecran.Ecrire(C);

L="Bonjour le monde".Compter("o", 0);

Ecran.Ecrire(L);

L="Bonjour le monde".Compter("o", 4);

Ecran.Ecrire(L);

C="Bonjour XYZT monde".Remplacer("XYZT", "le", 0);

Ecran.Ecrire(C);

C="Bonjour XYZT monde".Remplacer("XYZT", "le", 4);

Ecran.Ecrire(C);

C="Bonjour le monde".Ajouter(20);

Ecran.Ecrire(C);

C="Bonjour le monde".Ajouter(20, ".");

Ecran.Ecrire(C);

C="Bonjour le monde".AjouterGauche(20);

Ecran.Ecrire(C);

C="Bonjour le monde".AjouterGauche(20, ".");

Ecran.Ecrire(C);

C="Bonjour le monde".AjouterDroite(20);

Ecran.Ecrire(C);

C="Bonjour le monde".AjouterDroite(20, ".");

Ecran.Ecrire(C);

C=" Bonjour le monde ".Supprimer();

Ecran.Ecrire(C);

C="..Bonjour le monde..".Supprimer(".");

Ecran.Ecrire(C);

C=" Bonjour le monde".SupprimerGauche();

Ecran.Ecrire(C);

C="....Bonjour le monde".SupprimerGauche(".");

Ecran.Ecrire(C);

C="Bonjour le monde ".SupprimerDroite();

Ecran.Ecrire(C);

C="Bonjour le monde....".SupprimerDroite(".");

Ecran.Ecrire(C);

L="Bonjour le monde".Compter("o", 0);

Ecran.Ecrire(L);

L="Bonjour le monde".Compter("o", 3);

Ecran.Ecrire(L);

C="Caractere";

L=C.Longueur();

Pour I=0 JusquA L-1 Faire

   Ecran.Ecrire("C["+Caractere(I)+"]="+Caractere(C[I]));

Fin Pour

Pour I=0 JusquA L-1 Faire

   C[I]=65+I;

Fin Pour

Ecran.Ecrire(C);

Pour I=0 JusquA L-1 Faire

   C[I]++;

Fin Pour

Ecran.Ecrire(C);

C="Bonjour le";

C+=" monde";

Ecran.Ecrire(C);



C="B";

C=C+"B";

Si C=="B" Alors

   Ecran.Ecrire("C==B");

Fin Si

Si C!="B" Alors

   Ecran.Ecrire("C!=B");

Fin Si

Si C<="B" Alors

   Ecran.Ecrire("C<=B");

Fin Si

Si C>="B" Alors

   Ecran.Ecrire("C>=B");

Fin Si

Si C<"B" Alors

   Ecran.Ecrire("C<B");

Fin Si

Si C>"B" Alors

   Ecran.Ecrire("C>B");

Fin Si

Si "B"==C Alors

   Ecran.Ecrire("B==C");

Fin Si

Si "B"!=C Alors

   Ecran.Ecrire("B!=C");

Fin Si

Si "B"<=C Alors

   Ecran.Ecrire("B<=C");

Fin Si

Si "B">=C Alors

   Ecran.Ecrire("B>=C");

Fin Si

Si "B"<C Alors

   Ecran.Ecrire("B<C");

Fin Si

Si "B">C Alors

   Ecran.Ecrire("B>C");

Fin Si



C="ab";

C=C+"cd";

Si C.IdentiqueMajMinuscule("def") Alors

   Ecran.Ecrire("C==def");

Sinon

   Ecran.Ecrire("C!=def");

Fin Si

Si C.IdentiqueMajMinuscule("AbCd") Alors

   Ecran.Ecrire("C==AbCd");

Sinon

   Ecran.Ecrire("C!=AbCd");

Fin Si

Fin Principal

Résultat de l'exécution

Vrai 5 3.1415 Bonjour le monde Bonjour Le Monde ednom el ruojnoB 7 Bonjo monde njour BONJOUR LE MONDE Bonjour le monde bonjour le monde Bonjour le monde 3 2 Bonjour le monde Bonjour le monde Bonjour le monde ..Bonjour le monde.. Bonjour le monde ....Bonjour le monde Bonjour le monde Bonjour le monde.... Bonjour le monde Bonjour le monde Bonjour le monde Bonjour le monde Bonjour le monde Bonjour le monde 3 2 C[0]=67 C[1]=97 C[2]=114 C[3]=97 C[4]=99 C[5]=116 C[6]=101 C[7]=114 C[8]=101 ABCDEFGHI BCDEFGHIJ Bonjour le monde C!=B C>=B C>B B!=C B<=C B<C C!=def C==AbCd