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
|