cs_Bud
Messages postés224Date d'inscriptionvendredi 14 septembre 2001StatutMembreDernière intervention14 juillet 2006 8 juil. 2003 à 15:48
Comme ceci?
tabEmail = split(email,"@")
if len(tabEmail(0))>4 then
email = "****" & right(tabEmail(0),len(tabEmail(0))-4)
else
email=""
for i=1 to len(tabEmail(0))
email=email & "*"
next
end if
email=email & "@" & tabEmail(1)
C'est fait un peu à l'arrache, il peut donc y avoir quelques fautes.