Discussion :

[Helpha]

Bonjour à tous !

Je fais un code qui est suposé traiter une chaîne de caractère et la purifier. Ça marche bien sauf que j'ai une erreur à la con et j'arrive pas à trouver pourquoi... Quand je remplace les caractère indésirés par un espace (" ") ça marche mais quand je remplace par un caractère vide("") ma fonction me retourne rien / du vide... voici le code.

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
 
 
    Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim texteAPurifier As String = "=?iso-8859-1?Q?Biblioth=E8que_-_Poste__-_Fermeture_non_plani?= =?iso-8859-1?Q?fi=E9e?= "
        Dim retour As String
        retour = clearcode(texteAPurifier)
        MsgBox(retour)
    End Sub
 
 Public Structure Code
        Dim code As String
        Dim valeur As String
 End Structure
 
 Public Function clearcode(ByVal texteAPurifier As String)
        Dim tableau As Array
        Dim encode(2) As Code
        encode(0).code = "E9"
        encode(1).code = "C0"
        encode(0).valeur = "é"
        encode(1).valeur = "À"
 
        tableau = texteAPurifier.ToString.ToArray
        Dim longueur = texteAPurifier.ToString.Length
        For i = 0 To longueur - 4
            If tableau(i) = "=" And tableau(i + 1) = "?" And tableau(i + 2) = "i" And tableau(i + 3) = "s" Then
                tableau(1 - 1) = " "
                tableau(i) = " "
                tableau(i + 1) = " "
                tableau(i + 2) = " "
                tableau(i + 3) = " "
            End If
            For j = 0 To 2
                If tableau(i + 1) + tableau(i + 2) = encode(j).code Then
                    tableau(i) = " "
                    tableau(i + 1) = " "
                    tableau(i + 2) = encode(j).valeur
                End If
            Next j
            If tableau(i) = "?" And tableau(i + 1) = "=" Then
                tableau(i) = " "
                tableau(i + 1) = " "
            End If
        Next i
        Return tableau
    End Function

Merci d'avance

[-N4w4k-]

Salut,

tu peux faire comme ça:

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
    Function TransformString(ByVal txt As String) As String
 
        TransformString = txt.Substring(0, txt.Length - 4)
 
        Dim remplacements As New Dictionary(Of String, String)
        remplacements.Add("E9", "é")
        remplacements.Add("C0", "À")
        remplacements.Add("=?is", "")
        remplacements.Add("?=", "")
 
        For Each kv As KeyValuePair(Of String, String) In remplacements
            While TransformString.Contains(kv.Key)
                TransformString = TransformString.Replace(kv.Key, kv.Value)
            End While
        Next
 
        TransformString &= txt.Substring(txt.Length - 4, 4)
 
    End Function

[Helpha]

Trop fort ça marche nickel

Merci beaucoup

[-N4w4k-]

De rien ^^

Je pense que tu vas devoir la modifier un peu parce qu'il y a des choses qui me paraissent bizarre comme le remplacement de "?=is" par "" qui fait que qu'on passe de "?=iso-8859-1" à "o-8859-1", il reste un espace à la fin, etc.

En tout cas le principe y est.

Bon code.