Problème d'accent lors de la lecture d'un fichier texte

**petit rabot** · 08/12/2011, 14h08

Bonjour, lorsque je lis un fichier texte avec des accents, ceux ci se transforment en caractères bizarre (exemple: "é" devient "Ã©"). Avez vous une solution? Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
'fonction pour trier par ordre alphabétique le répertoire clients
Dim objFSO, objTextFile
Dim arrLines
Dim bpermute, cprovisoire, i, j
Dim Myfile As String
    Myfile = App.Path & "\" & "Répertoire.rpc"
Dim MySortedFile As String
    MySortedFile = App.Path & "\" & "Répertoire_trié.rpc"
 
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile(Myfile, 1)
        arrLines = Split(objTextFile.ReadAll, vbCrLf)
        objTextFile.Close
 
        bpermute = True
        Do While bpermute = True
           bpermute = False
           For i = UBound(arrLines) To 1 Step -1
               If Len(arrLines(i)) > 1 Then
                  For j = 0 To i - 1
                      If Len(arrLines(j)) > 1 Then
                         If Split(arrLines(j), Chr(44))(0) > _
                            Split(arrLines(j + 1), Chr(44))(0) Then
                            cprovisoire = arrLines(j)
                            arrLines(j) = arrLines(j + 1)
                            arrLines(j + 1) = cprovisoire
                            bpermute = True
                         End If
                      End If
                  Next
               End If
           Next
        Loop
    'Write File
    Set objTextFile = objFSO.CreateTextFile(MySortedFile, 2)
        For i = 0 To UBound(arrLines)
            objTextFile.WriteLine arrLines(i)
        Next
        objTextFile.Close
 
    Set objTextFile = Nothing
    Set objFSO = Nothing

**DarkVader** · 08/12/2011, 17h30

et il ressemble à quoi le contenu de ton fichier
si tu l'ouvres avec le Notepad ?

**petit rabot** · 09/12/2011, 07h42

Voici mon fichier, lorsque je l'ouvre avec bloc note ou notpad++, les accents et autres caractères problématiques sont à la bonne place ("é", "é", "°", "ç").
Remplacer le .txt par .rpc dans la pièce jointe.
Merci de votre aide

**petit rabot** · 09/12/2011, 10h28

Après avoir fait quelques recherches et réalisé plusieurs essais, il m'est arrivé une surprise.
J'ai tout d'abord essayé le code suivant, qui consiste à remplacer les caractères qui me pose problème par leur véritable lettre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
'fonction pour trier par ordre alphabétique le répertoire clients
Dim objFSO, objTextFile
Dim arrLines
Dim bpermute, cprovisoire, i, j
Dim Myfile As String
    Myfile = App.Path & "\" & "Répertoire.rpc"
Dim MySortedFile As String
    MySortedFile = App.Path & "\" & "Répertoire_trié.rpc"
 
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile(Myfile, 1)
        'arrLines = Split(objTextFile.ReadAll, vbCrLf)
        'objTextFile = Replace(objTextFile.ReadAll, "Ã©", "é")
        arrLines = Split(Replace(objTextFile.ReadAll, "Ã©", "é"), vbCrLf)
        Set objTextFile = Nothing
        Set objTextFile = objFSO.OpenTextFile(Myfile, 1)
        arrLines = Split(Replace(objTextFile.ReadAll, "Â°", "°"), vbCrLf)
        Set objTextFile = Nothing
        Set objTextFile = objFSO.OpenTextFile(Myfile, 1)
        arrLines = Split(Replace(objTextFile.ReadAll, "Ã§", "ç"), vbCrLf)
        Set objTextFile = Nothing
        Set objTextFile = objFSO.OpenTextFile(Myfile, 1)
        arrLines = Split(Replace(objTextFile.ReadAll, "Ã¨", "è"), vbCrLf)
        objTextFile.Close
 
        bpermute = True
        Do While bpermute = True
           bpermute = False
           For i = UBound(arrLines) To 1 Step -1
               If Len(arrLines(i)) > 1 Then
                  For j = 0 To i - 1
                      If Len(arrLines(j)) > 1 Then
                         If Split(arrLines(j), Chr(44))(0) > _
                            Split(arrLines(j + 1), Chr(44))(0) Then
                            cprovisoire = arrLines(j)
                            arrLines(j) = arrLines(j + 1)
                            arrLines(j + 1) = cprovisoire
                            bpermute = True
                         End If
                      End If
                  Next
               End If
           Next
        Loop
    'Write File
    Set objTextFile = objFSO.CreateTextFile(MySortedFile, 2)
        For i = 0 To UBound(arrLines)
            objTextFile.WriteLine arrLines(i)
        Next
        objTextFile.Close
 
    Set objTextFile = Nothing
    Set objFSO = Nothing

J'ai donc exécuté le code sans problème, ce n'est pas très beau mais ça fonctionne.

J'ai ensuite exécuté celui ci, qui ne remplace rien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
'fonction pour trier par ordre alphabétique le répertoire clients
Dim objFSO, objTextFile
Dim arrLines
Dim bpermute, cprovisoire, i, j
Dim Myfile As String
    Myfile = App.Path & "\" & "Répertoire.rpc"
Dim MySortedFile As String
    MySortedFile = App.Path & "\" & "Répertoire_trié.rpc"
 
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile(Myfile, 1)
        arrLines = Split(objTextFile.ReadAll, vbCrLf)
'        'objTextFile = Replace(objTextFile.ReadAll, "Ã©", "é")
'        arrLines = Split(Replace(objTextFile.ReadAll, "Ã©", "é"), vbCrLf)
'        Set objTextFile = Nothing
'        Set objTextFile = objFSO.OpenTextFile(Myfile, 1)
'        arrLines = Split(Replace(objTextFile.ReadAll, "Â°", "°"), vbCrLf)
'        Set objTextFile = Nothing
'        Set objTextFile = objFSO.OpenTextFile(Myfile, 1)
'        arrLines = Split(Replace(objTextFile.ReadAll, "Ã§", "ç"), vbCrLf)
'        Set objTextFile = Nothing
'        Set objTextFile = objFSO.OpenTextFile(Myfile, 1)
'        arrLines = Split(Replace(objTextFile.ReadAll, "Ã¨", "è"), vbCrLf)
        objTextFile.Close
 
        bpermute = True
        Do While bpermute = True
           bpermute = False
           For i = UBound(arrLines) To 1 Step -1
               If Len(arrLines(i)) > 1 Then
                  For j = 0 To i - 1
                      If Len(arrLines(j)) > 1 Then
                         If Split(arrLines(j), Chr(44))(0) > _
                            Split(arrLines(j + 1), Chr(44))(0) Then
                            cprovisoire = arrLines(j)
                            arrLines(j) = arrLines(j + 1)
                            arrLines(j + 1) = cprovisoire
                            bpermute = True
                         End If
                      End If
                  Next
               End If
           Next
        Loop
    'Write File
    Set objTextFile = objFSO.CreateTextFile(MySortedFile, 2)
        For i = 0 To UBound(arrLines)
            objTextFile.WriteLine arrLines(i)
        Next
        objTextFile.Close
 
    Set objTextFile = Nothing
    Set objFSO = Nothing

Et là, il ne me trouve aucun caractère bizarre, tous mes caractères "é,è,ç..." sont normaux. Je suppose que lorsque j'ai exécuté le remplacement sur le premier code, mon fichier c'est enregistré avec des modifications, mais quand je l'ouvre avec bloc note, pas de différence

Pouvez vous m'éclairer???

**iclic** · 09/12/2011, 10h35

Bonjour,

De petit rabot

Bonjour, lorsque je lis un fichier texte avec des accents, ceux ci se transforment en caractères bizarre (exemple: "é" devient "Ã©"). Avez vous une solution? Merci

Tu lis avec quoi? Comment?

J'ai fait un essai avec ton programme et ton fichier, puis une lecture des deux fichiers avec Bloc-Notes, les accents restent les accents des deux côtés.

Là,je ne vois pas où est le problème.

**petit rabot** · 09/12/2011, 10h38

Envoyé par iclic

Bonjour,

Tu lis avec quoi? Comment?

J'ai fait un essai avec ton programme et ton fichier, puis une lecture des deux fichiers avec Bloc-Notes, les accents restent les accents des deux côtés.

Là,je ne vois pas où est le problème.

Si tu regarde la variable "arrLines(j)" lorsque qu'il y a un accent sur la ligne qui est lu, la variable à un caractère bizarre. Et comme j'utilise cette variable un peu plus loin dans mon code pour remplir des textbox, je les retrouve dedans.

**iclic** · 09/12/2011, 11h21

De petit rabot

Si tu regarde la variable "arrLines(j)" lorsque qu'il y a un accent sur la ligne qui est lu, la variable à un caractère bizarre.

1.J'ai vérifié la variable :rien de bizarre.

2.J'ai ajoute ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim ligne$
       'lecture du fichier Répertoire_trié et résultat dans une listbox
       Open MySortedFile For Input As #1
       Do While EOF(1) = False
           Line Input #1, ligne$
           List1.AddItem ligne$
       Loop
       Close 1

Ce qui apparaît dans la liste est tout à fait conforme,sans caractères bizarres.

As-tu bien vérifier tout ton code?
Qu'as-tu mis comme police dans ton texbox?
(certaines polices n'acceptent pas toujours les accentués)

**petit rabot** · 09/12/2011, 13h27

Envoyé par iclic

1.J'ai vérifié la variable :rien de bizarre.

Effectivement, je viens de refaire un essai, et plus rien???
Je ne me l'explique pas!!!

**XylonAkau** · 09/12/2011, 19h27

_ Ia ora na.
_ Cet « accident » peut survenir quand le texte a été enregistré en UTF-8 (l'un des quatre encodages utilisables dans le bloc-notes ; surtout employé pour Internet, me semble-t-il ; l'en-tête est ï»¿_ ).
_ Si on rouvre un tel texte dans le bloc-notes, les caractères accentués sont affichés correctement ; mais si on l'ouvre dans un éditeur hexadécimal (ou le charge dans une variable chaîne), les accents sont remplacés par un goupe de deux caractères comme ceux que vous citez.
_ Bonne fin de semaine.

**petit rabot** · 12/12/2011, 10h27

Merci à tous pour votre aide, vu que cela fonctionne, je clôture le sujet.

**Apolinaire** · 21/11/2017, 18h27

Envoyé par petit rabot

Après avoir fait quelques recherches et réalisé plusieurs essais, il m'est arrivé une surprise.
.......
J'ai donc exécuté le code sans problème, ce n'est pas très beau mais ça fonctionne.

J'ai ensuite exécuté celui ci, qui ne remplace rien:
......
Et là, il ne me trouve aucun caractère bizarre, tous mes caractères "é,è,ç..." sont normaux. Je suppose que lorsque j'ai exécuté le remplacement sur le premier code, mon fichier c'est enregistré avec des modifications, mais quand je l'ouvre avec bloc note, pas de différence

Pouvez vous m'éclairer???

Bonjour petit rabot,

Je sais bien que cette conversation commence à prendre de l'âge, ton dernier message datant du 12-12-2011, mais étant tombé en novembre 2017 (eh oui...) sur le même problème je suis arrivé comme toi au même résultat surprenant. (NB : langage VB6)

- Mon fichier texte affichait correctement les accents (é, è, à, etc.) dans Notepad++ mais un ReadLine pour placer une ligne dans une TextBox m'affichait à chaque fois 2 caractères pour 1 accent. Par exemple "StÃ©rÃ©otype" pour "Stéréotype". Énervant...

- J'ai ajouté une ligne de code pour les é, qui faisait un Replace des Ã© par des é dans la variable chargée par ReadLine. Comme chez toi, ça s'est mis à marcher correctement.

- Mais j'ai eu aussi la surprise : en supprimant cette ligne de code et en recompilant le programme, non seulement les é continuaient à s'afficher correctement dans la TextBox mais les autres caractères accentués aussi ! (à, è, ê, etc.)

- Alors j'ai poussé le vice un peu plus loin. L'ancien code (que je nommerai OldCode) se trouvait sur mon PC portable. Je l'ai mis au chaud bien tranquille et j'ai copié sur le portable le NewCode. J'ai donc maintenant l'ancien et le nouveau côte à côte.
Eh bien, quelque soit l'ordre où je les lance, le OldCode ne reconnait jamais les accents et le NewCode les reconnait tous (toujours sans la fameuse ligne de correction, donc issu d'une source en tout point identique à celle du OldCode !) INCROYABLE.

J'en conclus qu'il s'agit d'une histoire de compilation de VB6 puisque les 2 compilations ne réagissent pas de la même manière.
Ceci dit, je ne sais plus retourner en arrière. Si je n'avais pas conservé une ancienne compil, je ne pourrais plus reproduire l'erreur.

Je ne sais pas si ça t'a éclairé (et ça ne t'intéresse peut-être plus) mais c'est effectivement très bizarre.

**petit rabot** · 23/11/2017, 08h57

Envoyé par Apolinaire

Bonjour petit rabot,

Je sais bien que cette conversation commence à prendre de l'âge, ton dernier message datant du 12-12-2011, mais étant tombé en novembre 2017 (eh oui...) sur le même problème je suis arrivé comme toi au même résultat surprenant. (NB : langage VB6)

Bonjour Apolinaire, je suis effectivement passé à autre chose, et depuis le temps, mon programme fonctionne très bien...
Merci pour cette information.

Problème d'accent lors de la lecture d'un fichier texte

VB 6 et antérieur

Discussions similaires

Partager

Partager