Suprimer une sous chaine dans une chaine
La procédure suivante supprime la première occurrence d'une sous chaine dans une autre :
PROCEDURE ChaineSupprime(ChaineInitiale,ChaineASupprimer)
pos est un entier
len est un entier=Taille(ChaineASupprimer)
c est une chaîne
pos=Position(ChaineInitiale,ChaineASupprimer)
SI pos<>0 ALORS
c=ExtraitChaîne(ChaineInitiale,1,ChaineASupprimer)
ChaineInitiale=c+ExtraitChaîne(ChaineInitiale,2,ChaineASupprimer)
FIN
Cette Q&R a été trouvée sur WDForge.org : http://old.wdforge.org/modules/smartfaq/faq.php?faqid=21