Saving/Loading Xml to/from an Xml file

[Carl Gilbert]

Hi

I have a function called GetXml that returns Xml as expected.

I then use:
Dim saveFile As New SaveFileDialog
and the configure saveFile.

Having got the file and the Xml, how can I then write the Xml to the file?
Also, how could I load the Xml back in to a string using an OpenFileDialog
(openFile) or similar?

Regards, Carl Gilbert

[Derek Harmon]

"Carl Gilbert" <cn*@newsgroup.nospam> wrote in message news:OH*************@TK2MSFTNGP09.phx.gbl...

Having got the file and the Xml, how can I then write the Xml to the file?
Dim writer As System.IO.StreamWriter
writer = New System.IO.StreamWriter( _
filename, _
False,
System.Text.Encoding.Unicode)
writer.Write( xmlStr )
writer.Flush( )
writer.Close( )
Also, how could I load the Xml back in to a string using an OpenFileDialog
(openFile) or similar?

Dim xmlStr As String = ""
If ( dlgFileOpen.ShowDialog( ) == DialogResult.OK ) Then
Dim inStream As System.IO.Stream
inStream = dlgFileOpen.OpenFile( )
If ( Not inStream Is Nothing ) Then
Dim reader As System.IO.StreamReader
reader = New System.IO.StreamReader( inStream)
xmlStr = reader.ReadToEnd( )
reader.Close( )
End If
End If
Derek Harmon

[Carl Gilbert]

Cheers Derek
"Derek Harmon" <lo*******@msn.com> wrote in message
news:Oj**************@TK2MSFTNGP10.phx.gbl...

"Carl Gilbert" <cn*@newsgroup.nospam> wrote in message
news:OH*************@TK2MSFTNGP09.phx.gbl...

Having got the file and the Xml, how can I then write the Xml to the
file?

Dim writer As System.IO.StreamWriter
writer = New System.IO.StreamWriter( _
filename, _
False,
System.Text.Encoding.Unicode)
writer.Write( xmlStr )
writer.Flush( )
writer.Close( )

Also, how could I load the Xml back in to a string using an
OpenFileDialog
(openFile) or similar?

Dim xmlStr As String = ""
If ( dlgFileOpen.ShowDialog( ) == DialogResult.OK ) Then
Dim inStream As System.IO.Stream
inStream = dlgFileOpen.OpenFile( )
If ( Not inStream Is Nothing ) Then
Dim reader As System.IO.StreamReader
reader = New System.IO.StreamReader( inStream)
xmlStr = reader.ReadToEnd( )
reader.Close( )
End If
End If
Derek Harmon