| Accueil > FAQ > WinDev Codes | FAQ |
Demandé et répondu par R&B le 27-Sep-2004 12:14 (2500 Lectures)
Suprimer une sous chaine dans une chaine
La procédure suivante supprime la première occurrence d'une sous chaine dans une autre :
Exemple :
ChaineSupprime("111222333","222") => "111333"
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
Exemple :
ChaineSupprime("111222333","222") => "111333"
7 Commentaires
|
|
