Fonction Optimiser(Invariant, NulAbsorbant) Compter(Modele : Nul Ou Caractere, Position : Nul Ou Entier=Nul) Retourner Nul Ou Entier;
Si la chaîne de caractères est Nul ou si Modele est Nul, alors le résultat est Nul.
Si Position est négatif, le comptage commence au premier caractère de la chaîne.
Si Position est supérieur à la taille de la chaîne, alors le résultat est 0.
Principal
/*******/
Variable
/******/
C1 : Caractere;
E2 : Entier;
Debut
C1="ABCDEFABXY";
/* C1 contient ABCDEFABXY. */
E2=C1.Compter("AB");
/* E2 a pour valeur 1. */
Fin Principal
- | - | - | - | - | - | - | - | - |