Problème enregistrement RightTextBox en XML

Version imprimable

21/05/2013, 11h46
thierry007

Problème enregistrement RightTextBox en XML

Bonjour

A l création du fichier XML lorsque je veux écrire le contenu du RichTextBox, dans lequel il y a des CRLF ,il ne sont pas pris en compte dans le fichier XML
Comment faire?

J'ai essayer de remplacer par un <br> et '&#10&#13' mais rien n'y fait ou la syntaxe n'est pas correcte ( replace (MyString,VbCrLf,"<br>")
21/05/2013, 13h42
The_Big_Lebowski

Je ne comprend pas ce que tu essaies de faire.
Tu utilises la méthode .save de ton RichTexBox ?

Tu génères du texte et tu enregistres un fichier avec une extension XML ?

Tu enregistres le flux dans un xmlWriter ?

Si tu es dans ce cas là, la classe xmlWiterSettings te permet d'accéder à différentes fonctionnalités. Notamment la propriété .ident que tu pourras positionner à True.

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
Dim myXmlTextWriter As XmlTextWriter = New XmlTextWriter("c:\test.xml", System.Text.Encoding.UTF8)
 
myXmlTextWriter.Formatting = System.Xml.Formatting.Indented
myXmlTextWriter.WriteStartDocument(False)
myXmlTextWriter.WriteComment("fichier xml test")
 
'Crée la balise LIST
myXmlTextWriter.WriteStartElement("LIST")
 
'Crée la balise élément DetailTest
myXmlTextWriter.WriteStartElement("DETAILTEST")
 
'Ecrit dans le flux
...
...
...
myXmlTextWriter.WriteElementString("test", MonRichTextBox.text)
...
...
...
 
  myXmlTextWriter.WriteEndElement()
  myXmlTextWriter.WriteEndElement()
 
 'Ferme le flux d sortie XML et vide la mémoire
myXmlTextWriter.Flush()
myXmlTextWriter.Close()

Un noeud XML ne stocke pas de mise en page :)

Imports System.xml au préalable

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        Dim xmlSettings As New XmlWriterSettings
        xmlSettings.Indent = True
        xmlSettings.NewLineOnAttributes = False
        xmlSettings.Encoding = System.Text.Encoding.UTF8
        Using W As XmlWriter = XmlWriter.Create("c:\test.xml", xmlSettings)
            W.WriteStartElement("LIST")
            W.WriteStartElement("DETAILTEST")
            W.WriteAttributeString("attribut", "valeurAttribut")
	    W.WriteCData(MonRichTextBox.text)
            W.WriteEndElement() 'DETAILTEST
            W.WriteEndElement() 'LIST
            W.Flush()
            W.Close()
        End Using