Code : Tout sélectionner
Procedure Remplace(*Pointeur,ChaineCherchee.s, ChaineRemplacee.s)
PokeS(*Pointeur,ReplaceString(PeekS(*Pointeur),ChaineCherchee,ChaineRemplacee))
EndProcedure
Texte.s="If ReadFile(#FichierSource,²d:\LibTest.pb²)"
Remplace(@Texte,"²","<br>")
Remplace(@Texte," "," ")