Discussion :

[thierry007]

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

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

[thierry007]

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

[The_Big_Lebowski]

Un noeud XML ne stocke pas de mise en page

Imports System.xml au préalable

Code :

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

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