remplacer caractères avec VB6

remplacer caractères avec VB6 - VB/VBA/VBS - Programmation

Marsh Posté le 31-07-2007 à 08:26:33    

Bonjour tout le monde !!!
 
Je suis sur une impasse, je dois remplacer des caractères dans une zone de texte. Pour cela j'utilise la fonction "replace"  
 
exemple: nouveau_nom = Replace(Text1.Text, "è", "è" ) => fonctionne bien
 
Par contre je dois remplacer plusieurs caractères à la fois comme ç , ô , é ... toujours dans la même zone de texte
 
Lorsque je fais ceci seul le dernier replace est pris en compte:
 
exemple: nouveau_fichier = Replace(Text1.Text, "è", "è" )
             nouveau_fichier = Replace(Text1.Text, "ç", "ç" )
 
 
Ma question est peut-t-on remplacer plusieurs caractères à la fois avec la fonction replace? Comment faire? Ou par une autre méthode?
 
 
Merci de vos réponses

Reply

Marsh Posté le 31-07-2007 à 08:26:33   

Reply

Marsh Posté le 31-07-2007 à 10:42:16    

salut

Code :
  1. nouveau_fichier = Replace(Text1.Text, "è", "è" )
  2. nouveau_fichier = Replace(nouveau_fichier, "ç", "ç" )

Reply

Marsh Posté le 31-07-2007 à 14:51:07    

OK fonctionne bien! merci pour ton aide!

Reply

Marsh Posté le 31-07-2007 à 15:00:01    

Par contre j'ai un problème au niveau de l'acquisition d'un nom de fichier: Ø400  
 
Lorsque je liste les noms de mes fichiers via une liste dans VB6 j'ai Ø400 qui devient Ã? 400
 
Que faire pour remedier à ce problème ?  
 
Cela me pose un problème pour renommer le nom de mon fichier !!!
 
Merci pour vos réponses
 

Reply

Marsh Posté le 28-08-2011 à 09:59:51    

Bonjour,
Tu fais de la même manière :  
retour = replace (chaineOrigine,"? ","" )  ou retour = replace (chaineOrigine,"˜","" )    *
 
Où le retour est une variable string, mais tu peux aussi écraser ton résultat par la fonction.
Donc cela donnerait :
chaineOrigine = replace (chaineOrigine,"? ","" )
 
* : cela provient de l'affichage que je reçoit. Une fois, ta question affiche un "? " et en éditant j'obtiens un "˜"; interprétation de la DB/php je suppose.
 
Je sais, la réponse est tardive, mais pour d'autres, cela pourrait servir ..


Message édité par pdw le 28-08-2011 à 10:02:50
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed