Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2398 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  remplacer caractères avec VB6

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

remplacer caractères avec VB6

n°1593566
spyd07
Posté le 31-07-2007 à 08:26:33  profilanswer
 

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

mood
Publicité
Posté le 31-07-2007 à 08:26:33  profilanswer
 

n°1593628
jpcheck
Pioupiou
Posté le 31-07-2007 à 10:42:16  profilanswer
 

salut

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

n°1593803
spyd07
Posté le 31-07-2007 à 14:51:07  profilanswer
 

OK fonctionne bien! merci pour ton aide!

n°1593810
spyd07
Posté le 31-07-2007 à 15:00:01  profilanswer
 

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
 

n°2097967
pdw
Posté le 28-08-2011 à 09:59:51  profilanswer
 

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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  remplacer caractères avec VB6

 

Sujets relatifs
[PHP] Couper une chaîne avec caractères html ?Random sur 5 caractères
[C] Problèmes avec les chaines de caractères[Batch] remplacer des strings dans des noms de fichier
Page HTLM à remplacer[PostgreSQL] Remplacer des valeurs nulles par des zéros ...
File.ListFiles et caractères accentuésGraphique en VB6
Comment ajouter des caractéres dans une chaine facilement ?caractères spéciaux : extraction de base de données pour XML
Plus de sujets relatifs à : remplacer caractères avec VB6


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR