Write XML to a Text File

[Lawrence 007]

Hi,

I have a XML file that I need to write to a text file. I have the following code that I got from this C# article http://support.microsoft.com/default.aspx/kb/317662:

Try
            Dim doc As Xml.XmlDocument = New Xml.XmlDocument
            doc.Load("c:\XSL\sales.xml")
            doc.Save("c:\XSL\Finally!!!.txt")
            Dim memStream As IO.MemoryStream = New IO.MemoryStream
            Dim AE As System.Text.ASCIIEncoding = New System.Text.ASCIIEncoding
            Dim xmlStr As String = doc.DocumentElement.OuterXml
            memStream.Write(AE.GetBytes(xmlStr), 0, xmlStr.Length)
            memStream.Close()
            doc.PreserveWhitespace = True
            Dim wrtr As Xml.XmlTextWriter = New Xml.XmlTextWriter("c:\XSL\Finally!!!.txt", System.Text.Encoding.ASCII)
            wrtr.WriteRaw(xmlStr)
            wrtr.Close()
        Catch xmlEx As Xml.XmlException
            Console.WriteLine("{0}", xmlEx.Message)
        Catch ex As Exception
            Console.WriteLine("{0}", ex.Message)
        Finally
        End Try

It is working for me to write the XML file. I have a XSL file that I created to format the information for me in understandable format, but I am struggling to get that into my code. I would really appreciate the help.

Lawrence

[Lawrence 007]

For all that is interested.

This is what I did to resolve my issue

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports System.Xml
Imports System.Xml.Xsl
Imports System.Xml.XPath
Imports System.IO
Public Class XMLWriter
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim ds As DataSet
        Dim xmlDoc As XmlDataDocument
        Dim xslTran As XslCompiledTransform
        Dim root As XmlElement
        Dim nav As XPathNavigator
        Dim writer As XmlTextWriter
 
        Try
 
            'Create the DataSet from the XML file
            ds = New DataSet()
            ds.ReadXml("C:\XSL\Sales.xml")
 
            'Create the XML from the DataSet
            xmlDoc = New XmlDataDocument(ds)
 
            'Load the XSLT for Transformation
            xslTran = New XslCompiledTransform()
            xslTran.Load("C:\XSL\SalesXSL.xsl")
 
            'Determine the Root object in the XML
            root = xmlDoc.DocumentElement
 
            'Create the XPath Navigator to navigate throuth the XML
            nav = root.CreateNavigator()
 
            'First delete the RTF, if already exist
            If File.Exists("C:\XSL\Finally!!!.txt") Then
                File.Delete("C:\XSL\Finally!!!.txt")
            End If
 
            'Create the RTF by Transforming the XML and XSLT
            writer = New XmlTextWriter("C:\XSL\Finally!!!.txt", System.Text.Encoding.ASCII)
            xslTran.Transform(nav, writer)
 
            'Close the Writer after Transformation
            writer.Close()
 
            'Release all objects
            writer = Nothing
            nav = Nothing
            root = Nothing
            xmlDoc = Nothing
            ds = Nothing
 
            MessageBox.Show("Document created successfully.....")
 
        Catch ex As Exception
            writer = Nothing
            nav = Nothing
            root = Nothing
            xmlDoc = Nothing
            ds = Nothing
 
            MessageBox.Show(ex.StackTrace)
 
        End Try
 
    End Sub
 
 
End Class

[kenobewan]

Well done! Thanks for sharing the solution.