Discussion :

[Ludog35]

Bonjour,

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

Code :

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

<?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 :

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

<?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

[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)

[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

[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.

[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

[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.

[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

[Ludog35]

ça marche tjs pas.

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

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 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 :

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

[Piotrek]

mets un Try au debut

et

Code :

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

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.

[Ludog35]

Voilà le message d'erreur :

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

[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.