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 ...