XL 2021 Fichiers Txt en UTF8 ou ANSI

Oneida à dit:

Bonjour,

Connaître l'encodage d'un fichier

Je suis en train de terminer un programme mais je voudrais inclure une fonctionnalité nouvelle, celle de connaître l'encode d'un fichier .txt Je ne vois pas...

forum.excel-pratique.com

Cliquez pour agrandir...

patricktoulon à dit:

Bonjour
il faut switcher avec open for input et adobd.stream
une petite fonction facon patricktoulon

VB:

Sub test3()
'on lit un fichier ANSI
    Dim texto$, Fichier$
    Fichier = "C:\Users\polux\Desktop\Mémo 0.txt"
    Open_For_Read_Force_Udf_8 Fichier, texto
    UserForm1.textbox1.value= texto
End Sub

Function Open_For_Read_Force_Udf_8(ByVal Fichier$, texto$)
    Dim lachaine As String, x: x = FreeFile
    'lecture binnaire
    Open Fichier For Binary Access Read As #x: lachaine = String(LOF(x), " "): Get #x, , lachaine: Close #x
    If Not lachaine Like "*[Ã|é|è|ç|â|€|«|»|û|ê|…|/ø|ø|À|É|È|Ã|Ö|]*" Then    'si la chaine ne contient pas de carateres sbizarre
        texto = lachaine    ' alors texto = lachaine
    Else    ' sinon on stream le fichier avec ADOBD.Stream

        With CreateObject("ADODB.Stream")
            .Charset = "utf-8": .Open: .LoadFromFile (Fichier): texto = .ReadText()
        End With
    End If
End Function

et voila

Cliquez pour agrandir...

• If Not lachaine Like "*[éèç‫»ûê…øØÀÉÈÂÔ]*" Then

patricktoulon à dit:

If Not lachaine Like "*[Ã|é|è|ç|â|€|«|»|û|ê|…|/ø|ø|À|É|È|Ã|Ö|]*" Then

Cliquez pour agrandir...

patricktoulon à dit:

une petite fonction qui te donne true ou false si cest du utf-8 avec ou sans BOM

VB:

Sub testq()
    MsgBox Is_UTF8_Encoded("C:\Users\patricktoulon\Desktop\MaccustomUI.xml") 'sans bomm
    MsgBox Is_UTF8_Encoded("C:\Users\patricktoulon\Desktop\exemple.xml") 'avec bomm
    MsgBox Is_UTF8_Encoded("K:\vba excel\A quoi sert la fonction Environ.txt") 'ansi
End Sub

Function Is_UTF8_Encoded(fichier As String) As Boolean
    'patricktoulon 2024
    Dim t As String, res(1 To 3) As Boolean
    Open fichier For Input As #1
    Line Input #1, t
    res(1) = Asc(Mid(t, 1, 1)) = &HEF And Asc(Mid(t, 2, 1)) = &HBB And Asc(Mid(t, 3, 1)) = &HBF 'utf_8 avec BOM
    res(2) = Asc(Mid(t, 1, 1)) = &H3C And Asc(Mid(t, 2, 1)) = &H63 And Asc(Mid(t, 3, 1)) = &H75 'utf-8 asan BOM
    res(3) = Asc(Mid(t, 1, 1)) = &H41 And Asc(Mid(t, 2, 1)) = &H20 And Asc(Mid(t, 3, 1)) = &H71 'utf-8 asan BOM
    Close #1
    If res(1) Or res(2) Then Is_UTF8_Encoded = True
End Function

Cliquez pour agrandir...

patricktoulon à dit:

re
le T1 UTF8.txt je sais pas ce que c'est mais il est pas en utf-8 même si le truc dit vrai
d'ailleurs tes 2 fichiers quand on les ouvre en binaire sont un peu bizarre
les 3 premiers bytes pour le (sans bom et le ansi )sont les même avec tes fichiers
il y a donc un vrai malaise avec tes fichiers
si c'est de l'import ça m'étonne qu'a moitié
sinon je ne vois pas
en tout cas une chose dont je suis sur à 100% c'est que ton utf8 sans bom n'est pas en utf-8
parti de là je crois qu'il va falloir travailler a l'ancienne avec un textbox dans un userform
et encore je sais même pas comment il va sortir en lecture

Cliquez pour agrandir...

Get-ExecutionPolicy

Set-ExecutionPolicy RemoteSigned

Set-ExecutionPolicy UnRestricted

Install-Module -Name EncodingAnalyzer

Install-Module -Name EncodingAnalyzer -Scope CurrentUser

Sub DetectFileEncoding()
'Dim bm As New cBenchmark
Dim mesFichiers, Fichiers, Resultat As String, Lignes, Ligne
'bm.TrackByName "Init"
mesFichiers = Array("d:\temp\T1 UTF8.txt", "d:\temp\T2 UTF8-BOM.txt", "d:\temp\T3 ANSI.txt")
For Each Fichier In mesFichiers
    Resultat = PS_GetOutput("Get-Encoding '" & Fichier & "' | ConvertTo-Csv -NoTypeInformation ")
 '   bm.TrackByName "PowerShell Execute"
    Lignes = Split(Resultat, vbCrLf)
    For Each Ligne In Lignes
        Debug.Print Ligne
    Next Ligne
 '   bm.TrackByName "Affiche Résultat"
Next Fichier
End Sub

Public Function PS_GetOutput(ByVal sPSCmd As String) As String
    sPSCmd = "powershell -command " & sPSCmd & " | clip"
    ShellAndwaitingEndProcess sPSCmd
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        PS_GetOutput = .GetText(1)
    End With
End Function

Function ShellAndwaitingEndProcess(ByVal CheminComplet As String) As Long
    Dim ProcessHandle As Long
    Dim ProcessId As Long
    ProcessId = Shell(CheminComplet, vbHide)
    ProcessHandle = ExecuteExcel4Macro("CALL(""Kernel32"",""OpenProcess"",""JJJJ"",""" & 2031616 & """,""" & 0 & """,""" & ProcessId & """)")
    ShellAndwaitingEndProcess = ExecuteExcel4Macro("CALL(""Kernel32"",""WaitForSingleObject"",""JJJJJ"",""" & ProcessHandle & """,""" & &HF0000 & """)")
End Function

"BOM","Encoding","Confidence","Path"
"False","UTF-8","100","d:\temp\T1 UTF8.txt"

"BOM","Encoding","Confidence","Path"
"True","UTF-8","100","d:\temp\T2 UTF8-BOM.txt"

"BOM","Encoding","Confidence","Path"
"False","WINDOWS-1252","50","d:\temp\T3 ANSI.txt"

Cliquez pour agrandir...

Resultat = PS_GetOutput("Dir")

TooFatBoy à dit:

Bonjour,

Il y a quelques temps j'avais rencontré le même problème que toi et j'avais pondu un bout de code, qui ne vaut que ce qu'il vaut... mais qui fonctionnait avec les fichiers que j'utilisais.

Je t'ai construit un classeur-exemple avec les macros de l'époque, et ça a l'air de fonctionner avec tes trois fichiers qui sont bien détectés au format indiqué par leurs noms.
A toi de voir si tu peux en tirer quelque chose ou pas.

Cliquez pour agrandir...

​