Erreur : Affichage dans une TxtBox

Question

Bonjour, 

j'utilise cette fonction pour (Lire un fichier .TXT, mettre à jour une variable String StrFileResult et l'affiche à la fin dans une textebox)

FileOpen(1, File1.Path & 





""


 & File1.FileName, OpenMode.Input)


Do



While



Not


 EOF(1)
   StrFile = LineInput(1)
  StrFileResult = StrFileResult & StrFile & vbCrLf


Loop



FileClose(1)
TxtFile.Text = Trim(StrFileResult)



La textebox TxtFile m'affiche des caractères "Â â @" au lieu de "T° t° é è"... 
Pouvez-vous m'aider, car le fichier .TXT s'ouvre correctement avec le NotePad !!

Merci,
Marco

cs_Exploreur · Answer

Salut,

Peut-être que le problème peut venir de la façon dont tu ouvres ton fichier(le formatage du texte)....Ton aide ne ligne devrait t'en dire beaucoup plus que moi !!

A+
Exploreur

 Linux a un noyau, Windows un pépin

Marko007 · Answer

Merci, 

mais j'ai testé tout les cas de figure pour l'ouverture du fichier.. Résultat identique.

Marco

NHenry · Answer

Bonjour

Au pot, tes acents se transformant en 2 caractère du style "@^" ?
Si c'est cela, j'ai eu le même pb, cela est dû au fait que .NET utilises un codage appelé UTF-8 pour le codage du fichier, dans ce cas les accents passent mal.
Solution que j'ai trouvé, enregistrer le fichier avec .NET pour l'ouvrir avec .NET, sinon tu peux l'ouvrir en binaire et faire les conversions avec CHR() ...

Mais il doit y avoir une solution plus propre.

Balèse la personne qui a pensé au pansement à penser (ou à panser, pensée).
VB (6, .NET1&2), C++, C#.Net1
Mon site

PCPT · Answer

salut,
si l'utf-8 est en cause, ce snippet peut peut-être t'aider

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Marko007 · Answer

Salut NHenry,

Je rencontre ce même problème (Avec Visual Studio 2005), as-tu un exemple de ce code ?

Merci,
Marco

NHenry · Answer

Bonjour

Je n'ai pas codé la lecture en binaire, mais essaye la proposition de PCPT.

Balèse la personne qui a pensé au pansement à penser (ou à panser, pensée).
VB (6, .NET1&2), C++, C#.Net1
Mon site

cs_Exploreur · Answer

Salut à tous,

As-tu regardé le lien que te propose PCPT ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

Marko007 · Answer

Oui, j'ai regardé la solution PCPT, mais j'ai préféré cette solution :

Dim monStreamReader As New System.IO.StreamReader("C:\Test.txt", True)
Dim

 StrFile As String
StrFile =  "" On Error GoTo ErrorHandlerF
 



Do While Not (monStreamReader.EndOfStream)
   StrFile  = StrFile & monStreamReader.ReadLine & vbCrLf
Loop

monStreamReader.Close()

TxtFile.Text = Trim(StrFile)

Exit Sub

ErrorHandlerF:
   MsgBox(Err.Description & " - " & Err.Number)

Merci à l'équipe (rien à voir avec le journal ;o)),
Marco

Erreur : Affichage dans une TxtBox

8 réponses

Votre réponse

Discussions similaires