Discussion :

[altahir007]

Bonsoir,

Je génére sans soucis un fichier xml contenant moulte données, mon problème est de sérializer un Textbox en version multiligne ? la gestion des retours chariot dans le xml pose problème. Il semblerai que l'utilisation d'un CDATA pourrait corriger ceci mais comment intégrer ça lors de la sérialisation et la deserialisation, j'ai vu le GET SET mais ensuite, c'est le grand vide

Merci

[tomlev]

On ne peut pas sérialiser un contrôle, seulement son contenu ou sa valeur. Enfin, supposons que tu veuilles sérialiser le texte...

Par contre je ne vois pas quel est ton problème pour le multiligne... j'ai testé en sérialisant et désérialisant une chaine avec des retours chariot, et ça passe sans problème, les retours chariot sont bien conservés sans avoir besoin de passer par un CDATA.

Peux-tu montrer le code qui te pose problème ?

[altahir007]

Oui le contenu lol

Code :

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

1
2
3
4
5
<Commentaire>1er ligne
 
2nd ligne espacée
 
blabla final</Commentaire>

Voici le résultat du xml enregistré et deux captures pour montrer avant la sérialisation de mon textbox.text et apres une fois deserialisé. On constate bien le soucis si je place le textbox.text dans un string

[tomlev]

Ah ok, je vois... c'est parce que normalement, dans la TextBox, les fins de ligne sont au format Windows (CRLF), alors qu'en XML elles sont au format UNIX (LF). Le fait de mettre le texte en CDATA n'y changera rien, je viens de tester...

Par contre tu peux toujours changer le format des retours à la ligne :

Code :

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

1
2
 
text = text.Replace(vbLf, vbCrLf)

[altahir007]

je crois ne pas saisir ou placer ça ?

car si je m'amuse dans le get et set ça merde grave !

Code :

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

1
2
3
4
5
6
7
8
9
        <XmlIgnore()> Public Commentaire As String
        <XmlElement("Commentaire")> Public Property CommentaireXml() As String
            Get
               Return Commentaire.Replace(vbCrLf, vbLf)
            End Get
            Set(ByVal value As String)
                Commentaire = value.Replace(vbLf, vbCrLf)
            End Set
        End Property

[tomlev]

car si je m'amuse dans le get et set ça merde grave !

C'est à dire ?

Dans le principe ça semble correct, mais il faut gérer le cas où la chaine est null (Nothing)

Code :

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

1
2
3
4
5
6
7
8
9
        <XmlIgnore()> Public Commentaire As String
        <XmlElement("Commentaire")> Public Property CommentaireXml() As String
            Get
               Return IIf(Commentaire IsNot Nothing, Commentaire.Replace(vbCrLf, vbLf), Nothing)
            End Get
            Set(ByVal value As String)
                Commentaire = IIf(value IsNot Nothing, value.Replace(vbLf, vbCrLf), Nothing)
            End Set
        End Property