# Fonction PCODE ID = 660004265
REGISTRE POINTEUR pt_chaine3
REGISTRE POINTEUR pt_chaine2
REGISTRE POINTEUR pt_chaine1
REGISTRE ENTIER long1
REGISTRE ENTIER long2
REGISTRE ENTIER long3
REGISTRE ENTIER ind1
REGISTRE ENTIER erreur
REGISTRE POINTEUR pt_Chaine
REGISTRE POINTEUR pt_Ch_ext
REGISTRE POINTEUR pt_temp

pt_chaine3 = depilerPOINTEUR()
pt_chaine2 = depilerPOINTEUR()
pt_chaine1 = depilerPOINTEUR()

pt_Chaine = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
pt_Ch_ext = "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB\
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB"
pt_temp   = "CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC\
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC"

long1 = i_strlen(pt_chaine1)
long2 = i_strlen(pt_chaine2)
long3 = i_strlen(pt_chaine3)

i_strcpy(pt_Chaine,pt_chaine1)
ind1 = 0

SI ( long2 > long1 ) || ( long2 < 1 )
ALORS
  SAUT FIN_REMPLACE_CHAINE
FINSI

POINT BOUCLE_REMPLACE_CHAINE

SI ( ind1 < long1)
ALORS
  i_get_sub_str(pt_Chaine, ind1, ind1 + long2 - 1, pt_Ch_ext)
  SI i_strcmp(pt_Ch_ext, pt_chaine2) == 0
  ALORS
    i_strcpy(pt_Ch_ext,"")
    SI ind1 > 0
    ALORS
      i_get_sub_str(pt_Chaine, 0, ind1 - 1 , pt_Ch_ext)
    FINSI
    erreur = i_format_str2( pt_temp, "%s%s", pt_Ch_ext, pt_chaine3 )
    i_get_sub_str(pt_Chaine, ind1 + long2, -1 , pt_Ch_ext)
    erreur = i_format_str2( pt_Chaine, "%s%s", pt_temp, pt_Ch_ext )
    long1 = i_strlen(pt_Chaine)
    ind1 = ind1 + long3
  SINON
    ind1 = ind1 + 1
  FINSI

  SAUT BOUCLE_REMPLACE_CHAINE
FINSI

POINT FIN_REMPLACE_CHAINE
RETOUR pt_Chaine

