Message de rapport:
 

Re: Equivalent du LIKE VB ?

Sujet: Re: Equivalent du LIKE VB ?
par Anonyme sur 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

Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
Visualiser tous les Partenaires...
WinDev, WebDev, WinDev Mobile et HyperFile sont des marques déposées par PCSoft. |  Voter |  Legal |  Contact |   XOOPS 2.0.13.2