Action MultidécalageDroite (ES : src : Tchaine, E : indice : entier, E : lg : entier)

Action Insérer (ES : src : Tchaine, E : indice : entier, E : motif : Tchaine)

Var i, Lsrc, Lmotif : entier

Début

LmotifÍLongueur(motif)

MultidécalageDroite (src, indice, Lmotif)

Pour i de 0 à Lmotif-1 faire

src[indice+i]Ímotif[ i ]

Fin

Action Remplacer (ES : src : Tchaine, E indice : entier, E lg : entier, E : motif : Tchaine)

Début

Effacer (src, indice, lg)

Insérer (src, indice, motif)

Fin

Fonction Recherche (src : Tchaine, motif : Tchaine, Binf : entier)

Var : i, Lsrc, Lmotif : entiers

Tampon : Tchaine

Début

LsrcÍLongueur (src)

LmotifÍLongueur(motif)

iÍBinf

Extraire (src, i, Lmotif, tampon)

Tant que (i

iÍi+1

Extraire (src, i, Lmotif, tampon)

Si non(i=Lsrc – Lmotif) alors retourner (i)

Sinon retourner (–1)

Fin

Action RemplacarToutesChaines (ES : src : Tchaine, E : ancien : Tchaine, E : nouveau :

Tchaine)

Var i , Lancien, Lnouveau, indice :entiers

Début

iÍ0

LancienÍLongueur (ancien)

LnouveauÍLongueur (nouveau)

IndiceÍ Recherche(src, ancien, i)

Tant que indice? -1 faire

Remplacer (src, indice, Lancien, nouveau)

iÍindice+Lnouveau

indiceÍRecherche(src, ancien, i)

Fin