Caractere

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

upscmp Source=caractere.upl

Revenir en haut de la page...

caractere

Revenir en haut de la page...

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

Principal
Variable 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");
Ecran.Ecrire(L);
L="Bonjour le monde".Compter("o", 4);
Ecran.Ecrire(L);
C="Bonjour XYZT monde".Remplacer("XYZT", "le");
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");
Ecran.Ecrire(L);
L="Bonjour le monde".Compter("o", 3);
Ecran.Ecrire(L);
C="Bonjour le";
C+=" monde";
Ecran.Ecrire(C);

C="B";
C=C+"B";
Si C=="B" Alors Fin Si
Si C!="B" Alors Fin Si
Si C<="B" Alors Fin Si
Si C>="B" Alors Fin Si
Si C<"B" Alors Fin Si
Si C>"B" Alors Fin Si
Si "B"==C Alors Fin Si
Si "B"!=C Alors Fin Si
Si "B"<=C Alors Fin Si
Si "B">=C Alors Fin Si
Si "B"<C Alors Fin Si
Si "B">C Alors Fin Si

C="ab";
C=C+"cd";
Si C.IdentiqueMajMinuscule("def") Alors Sinon Fin Si
Si C.IdentiqueMajMinuscule("AbCd") Alors Sinon Fin Si
Fin Principal

Revenir en haut de la page...