Reading XML file with VB.NET

[Jessard]

Hi all,

I am having trouble reading an XML document in and looping through it's
nodes in VB.NET. The error is specific, it is:

"There is no Unicode byte order mark. Cannot switch to Unicode."

The file that I am trying to read begins with:
<?xml version="1.0" encoding="UTF-16"?>

I believe the encoding tag is restricting my efforts. This same file was
generated by using the XSL.Transform class but I did not instruct it to give
it this encoding. What do I have to do to get this working?

Thanks,
Jesse

[Derek Harmon]

"Jessard" <Je*****@discussions.microsoft.com> wrote in message news:45**********************************@microsof t.com...

I am having trouble reading an XML document in and looping through it's
nodes in VB.NET. The error is specific, it is:

"There is no Unicode byte order mark. Cannot switch to Unicode."

The file that I am trying to read begins with:
<?xml version="1.0" encoding="UTF-16"?>

How are you opening this File? If you're using a FileStream, you
need to wrap the FileStream in a StreamReader and specify the
encoding and not to use the Byte-Order Mark (BOM), like this:

Dim reader As System.IO.StreamReader
reader = New System.IO.StreamReader( _
yourFileStream, _
System.Text.Encoding.Unicode, _
False )

Then, to get this into an XmlDocument, for example,

Dim xmlSource As System.Xml.XmlTextWriter
xmlSource = New System.Xml.XmlTextWriter( reader)

Dim xmlDoc As System.Xml.XmlDocument
xmlDoc = New System.Xml.XmlDocument( )
xmlDoc.Load( xmlSource)

yourFileStream.Close( )

Note that it's always best to open the FileStream (or XmlTextWriter with
a filespec) separately and then Close( ) it after the XmlDocument has
loaded to avoid an exclusive lock being held on the file til it gets disposed.
Derek Harmon

[Jessard]

Thanks for the reply Derek but i still fall down trying to load the document.
I have the following code now as you suggested.

textDoc = New StreamWriter(MapPath(".") & "\logfile.txt")
textDoc.WriteLine("1")

Dim yourFileStream As FileStream
yourFileStream = New FileStream(MapPath(".") & "\basic2.xml",
FileMode.Open)

textDoc.WriteLine("2")

Dim sReader As System.IO.StreamReader
sReader = New System.IO.StreamReader(yourFileStream,
System.Text.Encoding.Unicode, False)

textDoc.WriteLine("3")

Dim xmlSource As System.Xml.XmlTextReader
xmlSource = New System.Xml.XmlTextReader(sReader)

textDoc.WriteLine("4")

Dim xmlDoc As System.Xml.XmlDocument
xmlDoc = New System.Xml.XmlDocument
xmlDoc.Load(xmlSource)

textDoc.WriteLine("5")

yourFileStream.Close()

The output to the logfile is:
1
2
3
4
The data at the root level is invalid. Line 1, position 1.

Any suggestions?

Jesse

"Derek Harmon" wrote:

"Jessard" <Je*****@discussions.microsoft.com> wrote in message news:45**********************************@microsof t.com...

I am having trouble reading an XML document in and looping through it's
nodes in VB.NET. The error is specific, it is:

"There is no Unicode byte order mark. Cannot switch to Unicode."

The file that I am trying to read begins with:
<?xml version="1.0" encoding="UTF-16"?>

How are you opening this File? If you're using a FileStream, you
need to wrap the FileStream in a StreamReader and specify the
encoding and not to use the Byte-Order Mark (BOM), like this:

Dim reader As System.IO.StreamReader
reader = New System.IO.StreamReader( _
yourFileStream, _
System.Text.Encoding.Unicode, _
False )

Then, to get this into an XmlDocument, for example,

Dim xmlSource As System.Xml.XmlTextWriter
xmlSource = New System.Xml.XmlTextWriter( reader)

Dim xmlDoc As System.Xml.XmlDocument
xmlDoc = New System.Xml.XmlDocument( )
xmlDoc.Load( xmlSource)

yourFileStream.Close( )

Note that it's always best to open the FileStream (or XmlTextWriter with
a filespec) separately and then Close( ) it after the XmlDocument has
loaded to avoid an exclusive lock being held on the file til it gets disposed.
Derek Harmon