PC SOFT

FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile

|
|
|
FR
Inicio → WINDEV 2024 → Probleme avec la fonction remplace
Probleme avec la fonction remplace
Iniciado por partoutatyx, 05,abr. 2006 16:18 - 1 respuesta
#1
Publicado el 05,abril 2006 - 16:18
Bonjour,

J'utilise tres souvent la fonction remplace ,mais dans un programme qui verifie les email.
il n'arrive pas a remplacer les ; par des . voici mon code :


sEmailTxtA=Minuscule(SansAccent(ExtraitChaîne(sLigne,1)))
SI PositionOccurrence(sEmailTxtA,";",1,DepuisDébut) ALORS
sEmailTxt=Remplace(sEmailTxtA,";",".")
Info(sEmailTxt)
FIN

j'ai toujours dans semailTxt des points virgule ?????
Quelqu'un aurait une astuce ?
#2
Publicado el 05,abril 2006 - 17:16
Bon j'ai trouvé
Et pour en profitez les autres voici la soluce :

au lieu de faire :

sEmailTxtA=Minuscule(SansAccent(ExtraitChaîne(sLigne,1)))
SI PositionOccurrence(sEmailTxtA,";",1,DepuisDébut) ALORS
sEmailTxt=Remplace(sEmailTxtA,";",".")
Info(sEmailTxt)
FIN


j'ai changé en :

sEmailTxtA=ExtraitChaîne(sLigne,1)
SI PositionOccurrence(sEmailTxtA,";",1,DepuisDébut) ALORS
sEmailTxt=Remplace(sEmailTxtA,";",".")
Info(sEmailTxt)
FIN
sEmailTxt=Minuscule(SansAccent(sEmailTxt))

et la ca fonctionne , mais pourquoi on doit passer le Minuscule(SansAccent()) en dernier la je ne sais pas ,si qq peux me repondre ca serai cool pour mon savoir ;-)
→ Volver a WINDEV 2024