Mauvais affichage d'un fichier text dans un textboxRésolu

Question

Bonjour, 

je fais une petite application qui cherche des données dans un fichier texte. J'ai donc afficher ce ficihier texte dans un textbox (TxtOrg) avec le code suivant :

Dim TextFile As String

Open Fichier For Input As 1
    
    Ligne = 0
    
    Do While Not EOF(1)

Input #1, TextFile

TxtOrg.Text = TxtOrg.Text & TextFile + Chr(13) + Chr(10)
    Loop

Close #1

Mais certains caractères (accents, apostrophe, ...) apparaissent bizarement.
Par exemple le mot décision est affiché DÃ©cision


Comment faire apparaitre correctement ces caractères svp ?

Merci

Malo

NHenry · Answer

Classique fichier encodé en UTF8, mais VB6/VBA ne lise pas cet encodage, il faut que tu utilises un encodage de type ASCII ou ANSI par exemple.

Malokoxis · Answer

Merci pour ta réponse rapide, mais je ne maîtrise hélas pas l'encodage du fichier que je souhaite lire.

Existe-t-il une solution pour le ré encoder via VB6 ?

Malokoxis · Answer

Ô miracle! merci de m'avoir mis sur la piste NHenry, je ne connaissais pas cette histoire d'encodage. Voila le code pour décode l'UTF8 et ça marche à merveille dans un textbox : Option Explicit ' Char. number range | UTF-8 octet sequence ' (hexadecimal) | (binary) ' --------------------+--------------------------------------------- ' 0000 0000-0000 007F | 0xxxxxxx ' 0000 0080-0000 07FF | 110xxxxx 10xxxxxx ' 0000 0800-0000 FFFF | 1110xxxx 10xxxxxx 10xxxxxx ' 0001 0000-0010 FFFF | 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx Public Function Encode_UTF8(astr) Dim c Dim n Dim utftext utftext = "" n = 1 Do While n <= Len(astr) c = AscW(Mid(astr, n, 1)) If c < 128 Then utftext = utftext + Chr(c) ElseIf ((c >= 128) And (c < 2048)) Then utftext = utftext + Chr(((c \ 64) Or 192)) utftext = utftext + Chr(((c And 63) Or 128)) ElseIf ((c >= 2048) And (c < 65536)) Then utftext = utftext + Chr(((c \ 4096) Or 224)) utftext = utftext + Chr((((c \ 64) And 63) Or 128)) utftext = utftext + Chr(((c And 63) Or 128)) Else ' c >= 65536 utftext = utftext + Chr(((c \ 262144) Or 240)) utftext = utftext + Chr(((((c \ 4096) And 63)) Or 128)) utftext = utftext + Chr((((c \ 64) And 63) Or 128)) utftext = utftext + Chr(((c And 63) Or 128)) End If n = n + 1 Loop Encode_UTF8 = utftext End Function ' Char. number range | UTF-8 octet sequence ' (hexadecimal) | (binary) ' --------------------+--------------------------------------------- ' 0000 0000-0000 007F | 0xxxxxxx ' 0000 0080-0000 07FF | 110xxxxx 10xxxxxx ' 0000 0800-0000 FFFF | 1110xxxx 10xxxxxx 10xxxxxx ' 0001 0000-0010 FFFF | 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx Public Function Decode_UTF8(astr) Dim c0, c1, c2, c3 Dim n Dim unitext If isUTF8(astr) = False Then Decode_UTF8 = astr Exit Function End If unitext = "" n = 1 Do While n <= Len(astr) c0 = Asc(Mid(astr, n, 1)) If n <= Len(astr) - 1 Then c1 = Asc(Mid(astr, n + 1, 1)) Else c1 = 0 End If If n <= Len(astr) - 2 Then c2 = Asc(Mid(astr, n + 2, 1)) Else c2 = 0 End If If n <= Len(astr) - 3 Then c3 = Asc(Mid(astr, n + 3, 1)) Else c3 = 0 End If If (c0 And 240) = 240 And (c1 And 128) = 128 And (c2 And 128) = 128 And (c3 And 128) = 128 Then unitext = unitext + ChrW((c0 - 240) * 65536 + (c1 - 128) * 4096) + (c2 - 128) * 64 + (c3 - 128) n = n + 4 ElseIf (c0 And 224) = 224 And (c1 And 128) = 128 And (c2 And 128) = 128 Then unitext = unitext + ChrW((c0 - 224) * 4096 + (c1 - 128) * 64 + (c2 - 128)) n = n + 3 ElseIf (c0 And 192) = 192 And (c1 And 128) = 128 Then unitext = unitext + ChrW((c0 - 192) * 64 + (c1 - 128)) n = n + 2 ElseIf (c0 And 128) = 128 Then unitext = unitext + ChrW(c0 And 127) n = n + 1 Else ' c0 < 128 unitext = unitext + ChrW(c0) n = n + 1 End If Loop Decode_UTF8 = unitext End Function ' Char. number range | UTF-8 octet sequence ' (hexadecimal) | (binary) ' --------------------+--------------------------------------------- ' 0000 0000-0000 007F | 0xxxxxxx ' 0000 0080-0000 07FF | 110xxxxx 10xxxxxx ' 0000 0800-0000 FFFF | 1110xxxx 10xxxxxx 10xxxxxx ' 0001 0000-0010 FFFF | 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx Public Function isUTF8(astr) Dim c0, c1, c2, c3 Dim n isUTF8 = True n = 1 Do While n <= Len(astr) c0 = Asc(Mid(astr, n, 1)) If n <= Len(astr) - 1 Then c1 = Asc(Mid(astr, n + 1, 1)) Else c1 = 0 End If If n <= Len(astr) - 2 Then c2 = Asc(Mid(astr, n + 2, 1)) Else c2 = 0 End If If n <= Len(astr) - 3 Then c3 = Asc(Mid(astr, n + 3, 1)) Else c3 = 0 End If If (c0 And 240) = 240 Then If (c1 And 128) = 128 And (c2 And 128) = 128 And (c3 And 128) = 128 Then n = n + 4 Else isUTF8 = False Exit Function End If ElseIf (c0 And 224) = 224 Then If (c1 And 128) = 128 And (c2 And 128) = 128 Then n = n + 3 Else isUTF8 = False Exit Function End If ElseIf (c0 And 192) = 192 Then If (c1 And 128) = 128 Then n = n + 2 Else isUTF8 = False Exit Function End If ElseIf (c0 And 128) = 0 Then n = n + 1 Else isUTF8 = False Exit Function End If Loop End Function Source : http://forum.hardware.fr/hfr/Programmation/VB-VBA-VBS/code-conversion-ansi-sujet_79551_1.htm

Mauvais affichage d'un fichier text dans un textbox

3 réponses

Votre réponse

Discussions similaires