PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

|
|
|
US
Home → WINDEV 2024 → Probleme avec la fonction remplace
Probleme avec la fonction remplace
Started by partoutatyx, Apr., 05 2006 4:18 PM - 1 reply
#1
Posted on April, 05 2006 - 4:18 PM
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
Posted on April, 05 2006 - 5:16 PM
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 ;-)
→ Go back to WINDEV 2024