我有一个 XML 文档,其格式如下所示;
<root>
<DETAIL Replaces="XYZ" />
<DETAIL Description="Problem:<br><br>CRS750 dumps when panel F is opened<br><br>>>y" />
<DETAIL StepsToReproduce="ABC" />
</root>
使用下面的函数,我可以将上面加载的 XML Doc 转换为所需的格式;
Function ProcessDetail(ByVal xmlText As String) As String
xtr = New XmlTextReader("GetXMLFileLocation")
xtr.WhitespaceHandling = WhitespaceHandling.None
xmlDoc.Load(xtr)
xtr.Close()
Dim xmlDoc As New XmlDocument()
xmlDoc.LoadXml(xmlText)
Dim sDetail As New StringBuilder()
sDetail.Append("<DETAIL>")
For Each detailNode As XmlNode In xmlDoc.SelectNodes("//DETAIL")
If Not detailNode.Attributes Is Nothing Then
For Each attribute As XmlAttribute In detailNode.Attributes
sDetail.Append("<" & attribute.Name.ToUpper & ">" & attribute.Value & "</" &
attribute.Name.ToUpper & ">")
Next
End If
Next
sDetail.Append("</DETAIL>")
Return sDetail.ToString()
End Function
问题:- 由于我在 DETAIL 下的描述节点有一些“HTML”标签,它给出了以下错误。请帮助我避免这种情况并给出以下输出。
ERROR MESSAGE : '<', hexadecimal value 0x3C, is an invalid attribute character. Line
1, position 1326.
DESIRED OUTPUT :
<root>
<DETAIL>
<REPLACES>XYZ</REPLACES>
<DESCRIPTION>Problem:<br><br>CRS750 dumps when panel F is opened<br>
<br>>>y</DESCRIPTION>
<STEPSTOREPRODUCE>ABC<STEPSTOREPRODUCE/>
<root>