Lire dans un fichier texte en prenant en compte les accents
cs_Tioneb
Messages postés193Date d'inscriptiondimanche 16 décembre 2001StatutMembreDernière intervention29 juillet 2015
-
2 juil. 2008 à 14:09
cs_Tioneb
Messages postés193Date d'inscriptiondimanche 16 décembre 2001StatutMembreDernière intervention29 juillet 2015
-
2 juil. 2008 à 15:25
Salut,
Je suis en train de développer un petit programme pour le jeu Company of Heroes. Ce programme va gérer les cartes que les joueurs téléchargent. Ces cartes sont composées de plusieurs fichiers dont un fichier texte (ex: macarte.info) qui contient les informations relative à la carte associée. Voici un exemple de fichier:
--------------------------------------------------------------------------
Visitez mon site sur http://coh.fr.free.fr/ (Sur le jeu Company of Heroes pour PC)
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 2 juil. 2008 à 15:13
Salut
Ce doit être un problème de conversion OEM.
Essaye ça dans un module :
Partie déclaration
Public Enum eOEMStringTypeConversion
[ANSI to ASCII]
[ASCII to ANSI]
End Enum
Private sASCI As String
Private sANSI As String
Public Function OEMConvert(ByRef Texte As String, _
ByVal ConvertMode As eOEMStringTypeConversion) As String
' Vient de source de EBartSoft : http://www.vbfrance.com/code.aspx?ID=39592 Dim Src As String
Dim dest As String
Dim r As Long
Dim Pos As Long
OEMConvert = Texte
' sASCI et sANSI sont renseignés dans InitOEM
If (ConvertMode = [ANSI to ASCII]) Then
Src = sANSI
dest = sASCI
Else
Src = sASCI
dest = sANSI
End If
For r = 1 To Len(Src)
Do
Pos = InStr(OEMConvert, Mid$(Src, r, 1))
If (Pos = 0) Then Exit Do
Mid$(OEMConvert, Pos, 1) = Mid$(dest, r, 1)
Loop
Next
End Function
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
<hr />
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
cs_Tioneb
Messages postés193Date d'inscriptiondimanche 16 décembre 2001StatutMembreDernière intervention29 juillet 2015 2 juil. 2008 à 15:25
Je te remerci pour ta réponse rapide. Mais le problème persiste. En fait dès qu'on lit dans le fichier, les caractères accentués sont remplacés par 2 autres caractères. Je pense qu'il faudrait dire à VB qu'on veut utiliser une table de caractère différente de celle par défaut. Reste à savoir si c'est possible et si oui, laquelle utiliser!
--------------------------------------------------------------------------
Visitez mon site sur http://coh.fr.free.fr/ (Sur le jeu Company of Heroes pour PC)