Reconnaitre un fichier texte en UTF8

Commenter

Contenu du snippet

Bonjour,
Voici le rectificatif à ma précédente version 1.0 (Prise en compte de Option Strict On)
--------------------- 
Option Explicit On
Option Strict On
Imports System.IO       
        Dim st As FileStream = Nothing
        st = File.Open(MonFichierTexte, FileMode.Open, FileAccess.Read)
        Dim Marqueur As String = st.ReadByte.ToString & st.ReadByte.ToString & st.ReadByte.ToString
        st.Close()
        If Marqueur <> "239187191" Then
            MsgBox("Le fichier n'est pas codé en UTF8")
        Else
            MsgBox("Le fichier est codé en UTF8")
        End If

Nota: les 3 premiers octets décimaux d'un fichier texte UTF8 sont 239, 187 et 191
Mes remerciements

Compatibilité : Version 2.0

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (dheroux)