No XmlNodeType for an EmptyElement with Attribute

[dickster]

I have a MemoryStream of XML in which I wish to strip out the
namespaces and some other attributes and then write this revised Stream
to a new MemoryStream

Everything works grand in the code below expect when myReader comes
across an element like:
<xxx id="1"/>
i.e. an empty element with attributes

I think myReader.IsEmptyElement is no use in this instance as there is
an attribute in the "EmptyElement"

Heres the guts of the code:
************************************************** ********************
Dim myReader As New XmlTextReader(p_Stream)
'Where p_Stream is the original MemoryStream of XML
'Where outputStream is the target MemoryStream of XML
Dim myWriter As New XmlTextWriter(outputStream, Encoding.UTF8)

While myReader.Read
Select Case myReader.NodeType
Case XmlNodeType.Element

' in here i check if there are attributes
' & strip out the ones i dont wont using
' myReader.MoveToNextAttribute &
' WriteAttributeString where appropriate.
' <xxx id="1"/> is caught in here
' but the associated end element is
' never moved to by myReader.Read
' - so eventually the xml is badly formed

Case XmlNodeType.EndElement
myWriter.WriteEndElement()
Case XmlNodeType.Text
myWriter.WriteString(myReader.Value)
Case XmlNodeType.SignificantWhitespace
myWriter.WriteString(myReader.Value)
Case XmlNodeType.XmlDeclaration
myWriter.WriteStartDocument()
Case Else
'Do nothing
End Select
End While

************************************************** ********************

Perhaps there is a better way to go about this altogether.
I'm open to all options.

Dickster

[Martin Honnen]

dickster wrote:

I think myReader.IsEmptyElement is no use in this instance as there is
an attribute in the "EmptyElement"

Heres the guts of the code:
************************************************** ********************
Dim myReader As New XmlTextReader(p_Stream)
'Where p_Stream is the original MemoryStream of XML
'Where outputStream is the target MemoryStream of XML
Dim myWriter As New XmlTextWriter(outputStream, Encoding.UTF8)

While myReader.Read
Select Case myReader.NodeType
Case XmlNodeType.Element

You need to check
myReader.IsEmptyElement
here as the markup <xxx id="1"/> should give you true in that case while
the reader will not give you an EndElement for that markup.
Case XmlNodeType.EndElement
myWriter.WriteEndElement()

--

Martin Honnen --- MVP XML
http://JavaScript.FAQTs.com/

[dickster]

Thanks Again Martin.. Heres my working code
================================================== ==========

While myReader.Read

If myReader.IsEmptyElement() Then
myWriter.WriteStartElement(myReader.Name)

' Handle attributes

myWriter.WriteEndElement()

Else
Select Case myReader.NodeType
Case XmlNodeType.Element

myWriter.WriteStartElement(myReader.Name)
' Handle attributes

Case XmlNodeType.EndElement
myWriter.WriteEndElement()
Case XmlNodeType.Text
myWriter.WriteString(myReader.Value)
Case XmlNodeType.SignificantWhitespace
myWriter.WriteString(myReader.Value)
Case XmlNodeType.XmlDeclaration
myWriter.WriteStartDocument()
Case XmlNodeType.CDATA
myWriter.WriteCData(myReader.Value)
Case XmlNodeType.EntityReference
myWriter.WriteEntityRef(myReader.Name)
Case XmlNodeType.ProcessingInstruction
' Handle this
Case Else
'Do nothing
End Select
End If

myWriter.Flush()
End While