Re: Equivalent du LIKE VB ?

Posté par Anonyme le 8/2/2006 11:45:17
Bon bah j'ai codé une fonction approchante :p

// Syntaxe :
//[ <Résultat> = ] Like (<ChaineSource>, <donnee1>[, <donnee2>[, <donnee3>[, <donnee4>[, <donnee5>]]]])
//
// Paramètres :
//	ChaineSource : <chaine>
//	donnee1 : <chaine a rechercher>
//	donnee2 : <chaine a rechercher>
//	donnee3 : <chaine a rechercher>
//	donnee4 : <chaine a rechercher>
//	donnee5 : <chaine a rechercher>
// Valeur de retour :
// 	booléen :     // 	Aucune

FONCTION Like(ChaineSource, donnee1, donnee2="",donnee3="",donnee4="",donnee5="")
resultat est un booléen

d2,d3,d4,d5 sont des booléens
SI donnee2="" ALORS d2=True SINON d2=False
SI donnee3="" ALORS d3=True SINON d3=False
SI donnee4="" ALORS d4=True SINON d4=False
SI donnee5="" ALORS d5=True SINON d5=False

resultat=0
SI ChaîneOccurrence(ChaineSource,donnee1)>0 ET (ChaîneOccurrence(ChaineSource,donnee2)>0 OU d2=True) ET (ChaîneOccurrence(ChaineSource,donnee3)>0 OU d3=True) ET (ChaîneOccurrence(ChaineSource,donnee4)>0 OU d4=True) ET (ChaîneOccurrence(ChaineSource,donnee5)>0 OU d5=True) ALORS
	resultat=1	
FIN

RENVOYER resultat

Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=3507&post_id=14812