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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VB]Problème caractères spéciaux [Resolu]

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VB]Problème caractères spéciaux [Resolu]

n°438399
archangel
Un homme Une vision
Posté le 24-06-2003 à 18:37:45  profilanswer
 

Voilà
 
Je veux écrire dans un fichier le caractère '¤'.
Seulement quand j'ouvre mon fichier j'obtiens '¤'
 
Voilà le code que j'utilise
 

Code :
  1. Dim oFS As FileStream
  2. Dim oSR As StreamWriter
  3. Dim chaine As String
  4. oFS = New FileStream("toto.txt", FileMode.Append, FileAccess.Write)
  5. oSR = New StreamWriter(oFS)
  6. 'chaine = Chr(164) & " TEXTE " & Chr(164)
  7. chaine = ChrW(164) & " TEXTE " & ChrW(164)
  8. oSR.Close()


Message édité par archangel le 24-06-2003 à 18:58:29

---------------
J'suis timide - Prêt à mourir, mais pas à vivre - Je suis vraiement très fatigué ... - more than meets the eye
mood
Publicité
Posté le 24-06-2003 à 18:37:45  profilanswer
 

n°438410
drasche
Posté le 24-06-2003 à 18:51:59  profilanswer
 

Code :
  1. 'chaine = Chr(164) & " TEXTE " & Chr(164)


ça c'était OK
 

Code :
  1. chaine = ChrW(164) & " TEXTE " & ChrW(164)


ça c'est pas OK -> c'est de l'unicode, tu as donc 2 bytes pour un caractère.
 
Maintenant, si tu ne vois pas ton caractère quand tu regardes le fichier via un viewer externe, ce peut être à cause du code de page qui n'est pas le même.


Message édité par drasche le 24-06-2003 à 18:52:18

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°438414
archangel
Un homme Une vision
Posté le 24-06-2003 à 18:57:43  profilanswer
 

En faite j'avais essayé les deux mais aucun ne marchait.
 
Bon maintenant j'ai la solution, le StreamWriter encode en unicode par défaut, il faut donc faire ce qui suit :
 
 
Dim oFS As FileStream  
Dim oSR As StreamWriter  
Dim chaine As String  
 
oFS = New FileStream("toto.txt", FileMode.Append, FileAccess.Write)  
oSR = New StreamWriter(oFS , System.Text.Encoding.Default)  
 
chaine = Chr(164) & " TEXTE " & Chr(164)  
 
oSR.Close()  
 
 
Après par contre je sais pas comment il gère le Chr et ChrW  [:spamafote]


Message édité par archangel le 24-06-2003 à 18:58:05

---------------
J'suis timide - Prêt à mourir, mais pas à vivre - Je suis vraiement très fatigué ... - more than meets the eye

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

  [VB]Problème caractères spéciaux [Resolu]

 

Sujets relatifs
caracteres a ne pas mettre dans le nom d'un fichier sur le net?[EclipseUML] Exporter un diagramme sous un format externe ? [résolu]
Un exe un programme JAVA [résolu... Google j'ai d'la chance...désolé][HTML] Probleme d'impression
Utilisation de TabStrip [Résolu]Problème de cookies
php : Problème version? [ RESOLU ][asp]Probleme d'update d'1 champs d'1 ligne dans une table!
[HTML/JS] Probleme de hidden/visible avec un label 
Plus de sujets relatifs à : [VB]Problème caractères spéciaux [Resolu]


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