[VB.NET] XML et Unicode

Version imprimable

07/06/2004, 10h07
Ludog35

[VB.NET] XML et Unicode

Bonjour,

J'ai un fichier XML avec un codage en Unicode :

Code:

<?xml version="1.0" encoding="unicode"?>

et VB plante lorsqu'il essai de le lire, lorsque je change le codage et que je met :

Code:

<?xml version="1.0" encoding="ISO-8859-1"?>

VB lit bien le fichier. Est-ce que quelqu'un à déjà rencontré ce problème et faut-il ajouter une référence ou un composant.

Aidez moi s'il vous plaît !!! Merci d'avance
07/06/2004, 10h16
Piotrek

Non c'est tout a fait normal que tu aies cette erreur

l'encodage fait partie du document, tu peux pas le changer comme tu veux (a moins de creer le document dans l'encodage ISO-8859-1)
07/06/2004, 10h20
chman

salut,

est-ce l'attribut unicode d'encoding existe ? est-ce qu'il est case-sensitive

pour unicode, il faut pas utiliser UTF-8 ou UTF-16 ?

l'attribut encoding est là justement pour indiquer quel jeu de caractères utilisés pour décoder le document
07/06/2004, 10h39
Ludog35

Piotrek j'ai mal formuler mon pb, en fait ça marche pas avec unicode mais bien si je change en ISO-8859-1.
Je pense que Unicode existe puisque ce fichier à été écrit par un professionnel et qu'il fonctionne pour une application Flash.
08/06/2004, 08h27
Piotrek

ok j'avais pas compris :)

chman a raison

Mais comme il te faut transformer le format de toutes les lettres en unicode

Ouvre ton doc xml dans un editeur xml quelconque
(ex: http://www.snapfiles.com/get/xmleditpro.html freeware)

Change le nom du format et enregistre-le, les caracteres devraient etre transformes
08/06/2004, 09h54
Ludog35

C'est vrai que se serait la méthode al plus simple amsi malheureusement je ne peux pas !
Je dois absolument composé avec un fichier en Unicode.
Merci quand même. :pc:
08/06/2004, 11h12
Piotrek

t'as essaye en mettant:

<?xml version="1.0" encoding="UTF-8"?> ou
<?xml version="1.0" encoding="UTF-16"?>

si ca marche pas, montre voir le code qui te permet d'ouvrir le fichier xml

ça marche tjs pas.

Voici mon code pour effectuer une recherche dans le fichier XMl et l'afficher dans différent textbox :

Code:

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 BcdRecherche_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles BcdRecherche.Click
 
        'Déclaration des variables locales
        Dim Noeud As XmlNode
        Dim Noeuds As XmlNodeList
        Dim Critère As String
        Dim FichierXml As New XmlDocument
 
        If TxtMot.Text = "" Then
            Exit Sub
        End If
 
        FichierXml.Load("glossaireCian2.xml")
 
        'Recherche de l'entrée à partir du mot
        Critère = "//entree[mot=""" & TxtMot.Text & """]"
        Noeud = FichierXml.SelectSingleNode(Critère)
        Noeuds = Noeud.ChildNodes
 
        'Remplissage des champs à partir de la recherche
        For Each Noeud In Noeuds
            Select Case Noeud.Name
                Case "mot"
                    TxtMot.Text = Noeud.InnerText
                Case "attribut"
                    txtAttrib.Text = Noeud.InnerText
                Case "definition"
                    TxtDéf.Text = Noeud.InnerText
                Case "titremodule"
                    ListModules.SelectedItem = Noeud.InnerText
                Case "url"
                    TxtURL.Text = Noeud.InnerText
                Case "titreCours"
                    TxtCours.Text = Noeud.InnerText
                Case "titreProgramme"
                    TxtProgramme.Text = Noeud.InnerText
                Case "date"
                    TxtDate.Text = Noeud.InnerText
                Case "Auteur"
                    TxtAuteur.Text = Noeud.InnerText
                Case "illustration"
                    TxtIllust.Text = Noeud.InnerText
                Case "video"
                    TxtVidéo.Text = Noeud.InnerText
                Case "animation"
                    TxtAnim.Text = Noeud.InnerText
                Case "son"
                    TxtSon.Text = Noeud.InnerText
                Case "reference"
                    TxtRéf.Text = Noeud.InnerText
                Case "lien"
                    TxtLienUrl.Text = Noeud.InnerText
            End Select
        Next
    End Sub

Cette source est une aaptation à on cas d'un exemple trouvé dans un livre de programmation totalement axé sur VB.Net(un livre très bine soit dit en passant).

J'ai surement fait des erreurs mais je n'arrive pas à les voir

voici le message d'erreur qui apparaît :

Citation:

Une exception non gérée du type 'System.Xml.XmlException's'est produite dans 'system.xml.dll'

08/06/2004, 12h23
Piotrek
mets un Try au debut

et
Code:

1 2 3 4 catch ex as Xml.XmlException msgbox ex.message end try
a la fin, et dis voir ce que ca donne comme erreur.
08/06/2004, 13h41
Ludog35

Voilà le message d'erreur :

Citation:

Il existe un caractère non valide, dans le codage donné. Ligne 15, position 31.

:?
08/06/2004, 13h50
Ludog35

Bon il y a de l'avancée, en effet c'est bien le codage Unicode qui marche pas puis que en ISO-8859-1 la définition apparaît.
Merci à toi Piotrek de ton aide et merci pour la petite astuce du Try.