Discussion :

[a.floranc]

Bonjour à tous,

Le contexte est le suivant :
Je récupère du texte sur un fichier codé en CP850 ainsi que du texte sur une page web codée en UTF8.
Pour cela j'utilise un stream reader pour l'un et un WebClient.Downloadstring pour l'autre.
Chacun voit sa propriété encoding décalaré explicitement.

Je doit en sortir un fichier texte encodé en Windows 1252, j'utilise pour cela un StreamWriter avec l'encodage spécifié lui aussi.

Ce même fichier est envoyer sur un site pour mettre des produits en ligne et là c'est le drame : Les caractères accentué ne sortent pas.

Ma question est la suivante : Est-ce que ma démarche est bonne ou doit-je faire une opération de conversion sur mes chaines de caractère, car si j'importe mon fichier sur Excel ou sur notepad++, il ressort bien .

Merci !

[tomlev]

Est-ce que ma démarche est bonne

A vue de nez le principe semble correct, donc il y a sans doute un problème au niveau du code. Montre le code concerné.

ou doit-je faire une opération de conversion sur mes chaines de caractère

Non, la notion d'encodage n'a pas de sens pour une chaine ; en pratique, le type String de .NET utilise UTF-16 en interne, mais ça n'a (généralement) pas d'impact sur la façon de l'utiliser. La notion d'encodage n'intervient que quand tu veux convertir le texte en une représentation binaire, par exemple pour l'écrire dans un fichier.

[a.floranc]

Merci pour ta réponse.

Voici les bouts de codes :

Lecture du fichier en CP 850 :
Je lit puis peuple une collection nommée ListArticles

Code :

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

1
2
3
4
5
6
7
8
9
10
        Dim i = 0
        Dim readRow As String
        Using sr As StreamReader = New StreamReader(FileName, System.Text.Encoding.GetEncoding("CP850"), True)
            Do
                readRow = sr.ReadLine()
                If readRow = Nothing Then Exit Do
                CreateArticle(readRow, ListArticles)
                i = i + 1
            Loop While readRow IsNot Nothing
        End Using

Fonction pour récuperer le texte sur la page web où je retourne une string :

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
    Public Function DownloadProdcutText(Url As String)
 
        'doc2 = doc.Load(url, "proxyorb", 8080, "a_floranc", "alex22")
 
        'init
        Dim wc = New WebClient()
        Dim doc = New HtmlAgilityPack.HtmlDocument()
        wc.Encoding = System.Text.Encoding.UTF8
        ' wc.Proxy = prox
        Dim ErrorHttp As Boolean = False
 
        'url1
        Try
            Dim Text As String = wc.DownloadString("http://www2.softcarrier.at/htmlkat/1/fr/html/" & Url.Replace(".JPG", "") & ".html")
            doc.LoadHtml(Text)
            'Using stream As Stream = wc.OpenRead("http://www2.softcarrier.at/htmlkat/1/fr/html/" & Url.Replace(".JPG", "") & ".html")
            ' doc.Load(stream)
            'End Using
        Catch ex As WebException
            ErrorHttp = True
        End Try
        'Url 2
        If ErrorHttp = True Then
            Try
                Dim Text As String = wc.DownloadString("http://www3.fr.softcarrier.com/hbdb/sclinks/htmlkat/2/fr/html/" & Url.Replace(".JPG", "") & ".html")
                doc.LoadHtml(Text)
            Catch ex As WebException
                Return ""
            End Try
        End If
 
        wc.Dispose()
 
        'Recherche de la description
        Dim tagId2 = doc.DocumentNode.Descendants("td").Where(Function(t) t.GetAttributeValue("class", "") = "im_themenkatalog_produkttext")
        Dim valID2 = tagId2.Select(Function(t) t.Element("div"))
        If valID2.Count <> 0 Then
 
            Return valID2.Select(Function(t) t.InnerHtml).First().Replace(vbCrLf, " ")
        Else
            Return ""
        End If
 
    End Function

Ecriture du fichier de sortie où My.settings.EncodingExport est égale à windows-1252

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
   Sub WriteOutPutFile(Path As String, OutPutFile As IEnumerable(Of OutArticle))
 
        Dim I As Long = 0
        Dim Separator As String = vbTab
 
        Dim FileToWrite As New OutArticles
 
        CreatEntete(FileToWrite)
        For Each OutArt2 As OutArticle In OutPutFile
            FileToWrite.Add(OutArt2)
        Next
 
        Dim Tot As Long = FileToWrite.Count
 
        Using sr As StreamWriter = New StreamWriter(Path, False, System.Text.Encoding.GetEncoding(My.Settings.EncodingExport))
 
            For Each OutArt As OutArticle In FileToWrite
                sr.WriteLine(String.Concat(OutArt.Type_action, _
                Separator, _
                OutArt.Reference, _
                Separator, _
                OutArt.Nom_de_la_categorie_1, _
                Separator, _
                OutArt.Image_de_la_categorie_1, _
                Separator, _
                OutArt.Nom_de_la_categorie_2, _
                Separator, _
                OutArt.Image_de_la_categorie_2, _
                Separator, _
                OutArt.Nom_de_la_categorie_3, _
                '(.....................)
                Separator, _
                OutArt.EOF))
                I += 1
                If Tot = 0 Then
                    BackgroundWorkerEcriture.ReportProgress(100)
                Else
                    BackgroundWorkerEcriture.ReportProgress((I / Tot) * 100)
                End If
            Next
            sr.Close()

[tomlev]

Bon, là comme ça je ne vois pas de problème évident... tu as essayé d'exécuter en pas à pas et d'examiner le texte au moment où il est lu ?
Les accents sont foireux partout ? ou seulement dans les données qui viennent du fichier ? ou seulement dans les données qui viennent du web ?
C'est possible aussi que le problème vienne de Html Agility Pack, il y a parfois quelques bugs...

[a.floranc]

Je vais encore regarder mais oui, les accent sont mauvais partout.

[tomlev]

Quel type de fichier tu génères ? Texte, HTML... ?
Et avec quoi tu l'ouvres pour voir que les accents sont mauvais ?