Discussion :

[FreudDu31]

Bonjour,

J'ai créé un programme qui gère des fichiers eml (email).
A l'intérieur de certains fichiers, il y a des chaines de caractère dans ce genre :
Subject: =?utf-8?B?Q29tcHRlIHJlbmR1IFNBViBwb3VyIEZyw6lkw6lyaWM=?=
J'aimerais réussir à les traduire en :
Subject: Compte rendu SAV de Frédéric
Mais je n'y arrive pas, pouvez vous m'aider?

Merci d'avance.

[StormimOn]

La chaîne Q29tcHRlIHJlbmR1IFNBViBwb3VyIEZyw6lkw6lyaWM= correspond à ton texte encodé en Base64 je pense. Ca y ressemble fortement en tout cas.

Donc essaye avec ceci

Code :

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

1
2
Dim buffer As Byte() = Convert.FromBase64String("Q29tcHRlIHJlbmR1IFNBViBwb3VyIEZyw6lkw6lyaWM=")
Dim s As String = Encoding.UTF8.GetString(buffer)

[FreudDu31]

Merci StormimOn
A suivre mon code, mais j'aimerais bien abuser et demander si vous auriez une idée pour convertir les =E9 en é
Sur : =?iso-8859-1?Q?LES_TERRASSES_D'ESTIVAL_-_CR_r=E9union_de_chantier_n=B0_10?= =?iso-8859-1?Q?_du__22.04.10?=

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
 
    Private Sub decoderLeSujetDuMail(ByRef szObjet As String)
        Dim szObjetDecoupe() As String = Split(szObjet, "?")
        Dim buffer As Byte()
        Dim bSortir As Boolean = False
        Dim iIncrement As Integer = 0
 
        If szObjetDecoupe.Length >= 5 Then
            szObjet = ""
            If Mid(szObjetDecoupe(0), szObjetDecoupe(0).Length) = "=" Then
                szObjet += Mid(szObjetDecoupe(0), 1, szObjetDecoupe(0).Length - 1)
            End If
            While Not bSortir
                If szObjetDecoupe.Length >= 5 + iIncrement Then
                    If LCase(szObjetDecoupe(2 + iIncrement)) = "b" Then
                        buffer = Convert.FromBase64String(szObjetDecoupe(3 + iIncrement))
                        szObjet += Encoding.UTF8.GetString(buffer)
                    ElseIf LCase(szObjetDecoupe(2 + iIncrement)) = "q" Then
                        szObjet += Replace(szObjetDecoupe(3 + iIncrement), "_", " ")
                        'Il manque la conversion des caractères spécifique genre =E9
                    End If
                    iIncrement += 4
                Else
                    bSortir = True
                End If
            End While
        End If
    End Sub

[FreudDu31]

J'ai trouvé un mec qui avait mis une fonction, je l'ai retouché un peu et voici le résultat:

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
54
55
    Private Sub decoderLeSujetDuMail(ByRef szObjet As String)
        Dim szObjetDecoupe() As String = Split(szObjet, "?")
        Dim buffer As Byte()
        Dim bSortir As Boolean = False
        Dim iIncrement As Integer = 0
 
        If szObjetDecoupe.Length >= 5 Then
            szObjet = ""
            If Mid(szObjetDecoupe(0), szObjetDecoupe(0).Length) = "=" Then
                szObjet += Mid(szObjetDecoupe(0), 1, szObjetDecoupe(0).Length - 1)
            End If
            While Not bSortir
                If szObjetDecoupe.Length >= 5 + iIncrement Then
                    If LCase(szObjetDecoupe(2 + iIncrement)) = "b" Then
                        buffer = Convert.FromBase64String(szObjetDecoupe(3 + iIncrement))
                        szObjet += Encoding.GetEncoding(szObjetDecoupe(1 + iIncrement)).GetString(buffer)
                    ElseIf LCase(szObjetDecoupe(2 + iIncrement)) = "q" Then
                        szObjet += decoderLigneTypeQ(szObjetDecoupe(3 + iIncrement))
                    End If
                    iIncrement += 4
                Else
                    bSortir = True
                End If
            End While
        End If
    End Sub
 
    Private Function decoderLigneTypeQ(ByVal szLigneADecoder As String) As String
        Dim tableauDeCaractere() As Char = szLigneADecoder
        Dim i As Integer
        Dim szChaineARetourner As New StringBuilder
 
        For i = 0 To tableauDeCaractere.Length - 1
            If tableauDeCaractere(i) = "=" Then
                Dim szValeurHexa As String
                If tableauDeCaractere(i + 1) = "0" Then
                    szValeurHexa = tableauDeCaractere(i + 2)
                Else
                    szValeurHexa = tableauDeCaractere(i + 1) & tableauDeCaractere(i + 2)
                End If
                Dim iValeurHexa As Integer = Val("&H" & szValeurHexa)
                If szValeurHexa = Hex(iValeurHexa) Then
                    szChaineARetourner.Append(Chr(iValeurHexa))
                    i += 2
                Else
                    szChaineARetourner.Append(tableauDeCaractere(i))
                End If
            ElseIf tableauDeCaractere(i) = "_" Then
                szChaineARetourner.Append(" ")
            Else
                szChaineARetourner.Append(tableauDeCaractere(i))
            End If
        Next
        Return szChaineARetourner.ToString
    End Function

Il suffit de passer à decoderLeSujetDuMail un string contenant le sujet d'un mail récupéré du subject d'un fichier eml, et il fera la convertion.