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

[altahir007]

Avec le Nothing dans le cas ou le commentaire est vide, ça ne fonctionne pas, je renvoie une chaine vide pareil ça plante "" par contre si j'utilise un espace vide ça passe tout droit aucune problème " "

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), " ")
            End Get
            Set(ByVal value As String)
                Commentaire = IIf(value IsNot Nothing, value.Replace(vbLf, vbCrLf), " ")
            End Set
        End Property

J'ai découvert le IIF super jouet ce petit truc, peux tu me donner ton avis sur le rejet du nothing toi qui est si qualifié

Merci encore

[altahir007]

non il y a autre chose semblerai-t-il ?!

De plus je ne vois pas pourquoi le nothing ne fonctionnerai pas le serializer indiquerai dans le fichier <Commentaire \>

idem dans un textbox.text on peut assigner une valeur nothing donc ....

[tomlev]

Ca aiderait si tu arrêtais de dire "ça fonctionne pas" et que tu donnais le message d'erreur...

[tomlev]

Arf, j'ai compris... en fait IIf est une fonction, donc les deux arguments sont évalués quels que soit la valeur de la condition, donc si value est null ça pète... J'avais fait le parallèle avec l'opérateur conditionnel de C# qui est un peu plus malin, il n'évalue que l'expression qui correspond à la condition :

Code C# :

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

Commentaire = value != null ? value.Replace("\n", "\r\n") : null;

mais en fait le IIf n'est pas tout à fait équivalent...

Donc en fait il faut faire un If explicite :

Code :

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

1
2
3
4
5
If value IsNot Nothing Then
    Commentaire = value.Replace(vbLf, vbCrLf)
Else
    Commentaire = Nothing
End If

Décidément j'aime pas VB comme langage

[tomlev]

Ah, en fait l'équivalent VB.NET de l'opérateur conditionnel n'est pas IIf mais If !

Code :

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

Commentaire = If(value IsNot Nothing, value.Replace(vbLf, vbCrLf), Nothing)

Ca m'étonnait un peu que ça existe pas... apparemment c'est relativement, ça n'existait pas dans les premières versions de VB.NET
http://blogs.msdn.com/b/vbteam/archi...hia-salim.aspx

[altahir007]

Ok pour le message d'erreur, c'est vrai que pour moi il ne me parle pas trop le gros pavé du debugger !

Pour ton analyse je reste sans voix, donc si j'ai bien compri, en gros si la section de mon xml ou mon textbox.text est nothing, en gros il ne peux pas evaluer dans la fonction IIF d'où le plantage dans la sérialization. Je vais faire un test avec IF a tout de suite.

je deteste VB aussi, je viens de borland delphi, rien que le fait de faire un MsgBox(variableentier) me choc profondement car VB et les types, ça pas l'air d'un un problème, on fait ce qu'on veut du coup on fait beaucoup de conneries !

[altahir007]

parfait, je confirme IF fonctionne, j'apprend des trucs super utile, merci encore. voici le code qui fonctionne :

Code :

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

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

[tomlev]

je deteste VB aussi, je viens de borland delphi, rien que le fait de faire un MsgBox(variableentier) me choc profondement car VB et les types, ça pas l'air d'un un problème, on fait ce qu'on veut du coup on fait beaucoup de conneries !

Bah c'est l'héritage de VB6, qui n'était pas orienté objet, et pas très strict... VB.NET a gardé beaucoup de "fonctionnalités" de VB6, pour que les développeurs VB6 soient pas trop perdus en arrivant sur VB.NET. C'est pour ça que je préfère C#, qui a été créé spécialement pour la platefome .NET (d'ailleurs ça devrait te plaire aussi si tu viens de Delphi, les 2 langages ayant été conçus par la même personne, Anders Hejlsberg)

[altahir007]

Très bien, bonne chose à savoir, le C# avec le Compact Framework 3.5 pas de soucis particulier ? Comme je réalise aussi une application sous windows CE 6.0 et qu'elle risque forcément de connaitre une seconde version tôt ou tard !?

Merci pour tes lumières vraiment

[tomlev]

le C# avec le Compact Framework 3.5 pas de soucis particulier ?

Aucune idée, j'ai jamais utilisé le Compact Framework...

[altahir007]

Je testerai alors

Merci