Discussion :

[pci130]

Bonjour,

Je dois parser un répertoire avec des fichiers txt, asp, js, jpg, pdf et des sous répertoires.

Et je dois vérifier que mes fichiers sont bien encodé en ANSI.

J ai bien trouvé sur le net comment reconnaitre les fichiers UTF8 avec BOM
avec le bout de code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
        Dim bom = New Byte(3) {}
 
        Using file = New FileStream(filename, FileMode.Open, FileAccess.Read)
            file.Read(bom, 0, 4)
        End Using
 
        If bom(0) = &H2B AndAlso bom(1) = &H2F AndAlso bom(2) = &H76 Then Return Encoding.UTF7
        If bom(0) = &HEF AndAlso bom(1) = &HBB AndAlso bom(2) = &HBF Then Return Encoding.UTF8
        If bom(0) = &HFF AndAlso bom(1) = &HFE AndAlso bom(2) = 0 AndAlso bom(3) = 0 Then Return Encoding.UTF32
        If bom(0) = &HFF AndAlso bom(1) = &HFE Then Return Encoding.Unicode
        If bom(0) = &HFE AndAlso bom(1) = &HFF Then Return Encoding.BigEndianUnicode
        If bom(0) = 0 AndAlso bom(1) = 0 AndAlso bom(2) = &HFE AndAlso bom(3) = &HFF Then Return New UTF32Encoding(True, True)

Par contre j'ai pas trouvé comment différencier les fichiers encodés en ANSI et UTF8.

Je vous remercie d'avance de votre aide.

Joel

[baloub]

Bonjour,

J'ai eu le même problème il y a quelque temps (puis je me suis finalement contenté de la solution que tu donnes).
Mais j'avais trouvé ça :
https://www.mobzystems.com/code/dete...text-encoding/
L'auteur propose une détection des fichiers UTF8 encodés sans BOM.
Je n'ai pas testé, mais ça peut peut être t'aider.