Re: Equivalent du LIKE VB ?

Posté par mbsl le 8/2/2006 11:58:19
Bonjour,

quelque chose du genre 

PROCEDURE Like(P_Chaine,P_Comparateur)

// Déclaration
i			est un entier
W_B_Retour 	est un booléen = Vrai

POUR i = 1 A Taille(P_Comparateur)
	
	SI P_Comparateur[[i]] <> "*" ALORS
		
		SI P_Comparateur[[i]] <> P_Chaine[[i]] ALORS
			W_B_Retour = Faux
		FIN
	FIN
	
FIN

RENVOYER W_B_Retour



 SI Like(CCase,"*45*35*55*") alors ...

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