Sous chaine

version 5

Sous chaine (source; àPartirDe{; nbCars}) Alpha

La fonction Sous chaine retourne la partie de source délimitée par les paramètres àPartirDe et nbCars.

Le paramètre àPartirDe indique le premier caractère de la chaîne à retourner, et nbCars définit le nombre de caractères à retourner.

Si nbCars n'est pas défini ou si le total de àPartirDe plus nbCars est supérieur au nombre de caractères de la chaîne source, Sous chaine retourne tous les caractères de la chaîne à partir du caractère spécifié par àPartirDe. Si àPartirDe est supérieur au nombre de caractères de la chaîne, Sous chaine retourne une chaîne vide ("").

(1) L'exemple suivant illustre l'utilisation de Sous chaine. Les résultats sont assignés à la variable vRésultat. Les commentaires fournissent la valeur de vRésultat :

   vRésultat := Sous chaine ("08/04/62"; 4; 2) ` vRésultat prend la valeur "04" 
   vRésultat := Sous chaine ("Important"; 1; 6) ` vRésultat prend la valeur "Import" 
   vRésultat := Sous chaine (var; 2) ` vRésultat retourne tous les caractères sauf le premier

(2) La méthode projet suivante ajoute au tableau de type texte ou alpha, dont le pointeur est passé en second paramètre, les paragraphes tirés du texte passé en premier paramètre :

      ` EXTRAIRE PARAGRAPHES
      ` EXTRAIRE PARAGRAPHES ( Texte ; Pointeur )
      ` EXTRAIRE PARAGRAPHES ( Texte à étudier ; -> Tableau de paragraphes )

   C_TEXTE ($1)
   C_POINTEUR ($2)

   $vlElem:=Taille tableau($2->)
   Repeter
      $vlElem:=$vlElem+1
      INSERER DANS TABLEAU($2->;$vlElem)
      $vlPos:=Position(Caractere(Retour chariot);$1)
      Si ($vlPos>0)
         $2->{$vlElem}:=Sous chaine($1;1;$vlPos-1)
         $1:=Sous chaine($1;$vlPos+1)
      Sinon
         $2->{$vlElem}:=$1
      Fin de si
   Jusque ($1="")

Position.