# Fonction PCODE ID = 660004265
REGISTRE POINTEUR pt_car
REGISTRE POINTEUR pt_valeurIN

REGISTRE ENTIER longueur
REGISTRE ENTIER indice
REGISTRE POINTEUR pt_caractere

pt_car = depilerPOINTEUR()
pt_valeurIN = depilerPOINTEUR()

longueur = i_strlen(pt_valeurIN)
indice = 0

pt_caractere = "carac"


POINT BOUCLE_RECHERCHE

SI ( indice < longueur)
ALORS
  i_get_sub_str(pt_valeurIN, indice, indice, pt_caractere)
  SI i_strcmp(pt_caractere, pt_car) == 0
  ALORS
    RETOUR indice
  SINON
    indice = indice + 1
    SAUT BOUCLE_RECHERCHE
  FINSI
SINON
  longueur = longueur * -1
  RETOUR longueur
FINSI

