Serialiser/Deserialiser un Textbox multiligne ?

Version imprimable

22/11/2011, 18h24
altahir007

Serialiser/Deserialiser un Textbox multiligne ?

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

Merci
22/11/2011, 20h21
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 ?
23/11/2011, 07h42
altahir007
Oui le contenu :zoubi: lol
Code:

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

http://img841.imageshack.us/img841/1139/capturedkc.png
23/11/2011, 09h55
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:

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

je crois ne pas saisir ou placer ça ?

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

Code:

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

Citation:

Envoyé par altahir007

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:

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

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:

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

Merci encore

23/11/2011, 23h42
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 ....
23/11/2011, 23h54
tomlev

Ca aiderait si tu arrêtais de dire "ça fonctionne pas" et que tu donnais le message d'erreur...
24/11/2011, 00h00
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:

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:

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 :aie:
24/11/2011, 00h05
tomlev

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

Code:

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
24/11/2011, 06h58
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 :calim2: 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 !

:lahola:

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

Code:

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

24/11/2011, 10h25
tomlev

Citation:

Envoyé par altahir007

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)
24/11/2011, 17h37
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
24/11/2011, 18h28
tomlev

Citation:

Envoyé par altahir007

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

Aucune idée, j'ai jamais utilisé le Compact Framework...
24/11/2011, 20h47
altahir007

Je testerai alors :mrgreen:

Merci

Fuseau horaire GMT +2. Il est actuellement 13h51.