# Fonction PCODE ID = 860026233
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

