VB.Net Xml去异化成一个类

Question

尝试将某些XML反序列化为我创建的类时，我遇到了一些问题。

我得到的错误是：

There is an error in XML document (1, 2).

   at System.Xml.Serialization.XmlSerializer.Deserialize(XmlReader xmlReader, String encodingStyle, XmlDeserializationEvents events)
   at System.Xml.Serialization.XmlSerializer.Deserialize(TextReader textReader)
   at CommonLayer.InvuManager.FindDocuments(String policy, String year) in C:\GIT\novus\CommonLayer\InvuManager.vb:line 194
   at Novus.NavigationControlRisk.UpdateInvuDocumentsFolderTitle(TreeListNode& documentsFolderNode, String policy, String year) in C:\GIT\novus\Dashboard\src\Dashboard\NavigationControls\NavigationControlRisk.vb:line 3125
   at Novus.NavigationControlRisk.PopulateFolders(TreeListNode parentNode, Boolean isAttachingPolicy, Boolean refreshData) in C:\GIT\novus\Dashboard\src\Dashboard\NavigationControls\NavigationControlRisk.vb:line 1280
   at Novus.NavigationControlRisk.PopulateNode(Boolean refreshData) in C:\GIT\novus\Dashboard\src\Dashboard\NavigationControls\NavigationControlRisk.vb:line 1158
   at Novus.NavigationControlRisk.mainTreeList_MouseClick(Object sender, MouseEventArgs e, Boolean refreshData) in C:\GIT\novus\Dashboard\src\Dashboard\NavigationControls\NavigationControlRisk.vb:line 2340
   at Novus.NavigationControlRisk._Lambda$__R25-1(Object a0, MouseEventArgs a1)
   at System.Windows.Forms.Control.OnMouseClick(MouseEventArgs e)
   at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
   at System.Windows.Forms.Control.WndProc(Message& m)
   at DevExpress.XtraEditors.Container.EditorContainer.WndProc(Message& m)
   at DevExpress.XtraTreeList.TreeList.WndProc(Message& m)
   at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
   at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
   at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
   at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
   at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
   at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
   at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
   at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
   at Novus.My.MyApplication.Main(String[] Args) in :line 81
   at System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args)
   at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
   at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
   at System.Threading.ExecutionContext.RunInternal(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)
   at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx)
   at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
   at System.Threading.ThreadHelper.ThreadStart()

这是我创建的课程，在这一点上没什么特别的，我只是想让它发挥作用：

Imports System.Xml.Serialization

<Serializable, XmlRoot("Document")> _
Public Class Document
    <XmlElement("Type")> _
    Public Property Type As String
    <XmlElement("FileName")> _
    Public Property FileName As String
End Class

这是我正在使用的文件中的XML：

<ArrayOfDocuments>
  <Document>
    <Type>Debit/Credit note</Type>
    <FileName>dbE12901_acc1.doc</FileName>
  </Document>
  <Document>
    <Type>Generic</Type>
    <FileName>a3_lmbc_categories.xls</FileName>
  </Document>
</ArrayOfDocuments>

最后，这是我正在使用的代码：

Dim foundDocuments As New List(Of Document)
Dim xmldoc As New XmlDocument
xmldoc.Load(InterfaceFilePath)
Dim allText As String = xmldoc.InnerXml

Using currentStringReader As New StringReader(allText)
   Dim xml as New XmlSerializer(GetType(List(Of Document)))
   foundDocuments = TryCast(xml.Deserialize(currentStringReader), List(Of Document))
End Using

对于我的生活，我不能弄明白为什么它不会反序列化。我的应用程序中有其他不同类的实例，我已经检查过它们的结构方式是一样的，所以我不明白为什么它不起作用。

我需要另外一双眼睛来检查我做了什么，有没有人有任何建议？

Answer 1

您可以通过复制xml文本然后在visual studio中自动从xml生成类：

  

修改＆gt;＆gt;选择性粘贴＆gt;＆gt;将XML粘贴为类

我这样做了，它产生了类

<System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True), _
 System.Xml.Serialization.XmlRootAttribute([Namespace]:="", IsNullable:=False)> _
Partial Public Class ArrayOfDocuments
    Private documentField() As ArrayOfDocumentsDocument
    <System.Xml.Serialization.XmlElementAttribute("Document")> _
    Public Property Document() As ArrayOfDocumentsDocument()
        Get
            Return Me.documentField
        End Get
        Set(value As ArrayOfDocumentsDocument())
            Me.documentField = value
        End Set
    End Property
End Class

<System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)> _
Partial Public Class ArrayOfDocumentsDocument
    Private typeField As String
    Private fileNameField As String
    Public Property Type() As String
        Get
            Return Me.typeField
        End Get
        Set(value As String)
            Me.typeField = value
        End Set
    End Property
    Public Property FileName() As String
        Get
            Return Me.fileNameField
        End Get
        Set(value As String)
            Me.fileNameField = value
        End Set
    End Property
End Class

（手动将自动名称ArrayOfDocumentDocument更改为Document）

这很容易反序列化

Imports System.Xml.Serialization
Imports System.IO

Dim s As New XmlSerializer(GetType(ArrayOfDocuments))
Dim m As ArrayOfDocuments
Using sr As New StreamReader("XMLFile1.xml")
    m = s.Deserialize(sr)
End Using
Dim foundDocuments = m.Document.ToList()

Answer 2

向克里斯·杜纳威致敬，他在上面的一条评论中为我解决了这个问题。

更改ArrayOfDocuments =＆gt;的简单案例ArrayOfDocument

之后它完美地运作

Answer 3

正如Chris在评论中所提到的，用于ArrayOfDocument的根元素名称必须是ArrayOfDocuments（单数），因此如果XML包含{{1}，它将无法自动工作}（复数）作为根元素。

如果您需要反序列化，那么一个简单的解决方案就是创建一个ArrayOfDocuments类并反序列化，而不是反序列化为List(Of Document)：

Public Class Document
    Public Property Type As String
    Public Property FileName As String
End Class

Public Class ArrayOfDocuments
    <XmlElement>
    Public Property Document As Document()
End Class

然后：

Dim xml As New XmlSerializer(GetType(ArrayOfDocuments))
foundDocuments = TryCast(xml.Deserialize(currentStringReader), ArrayOfDocuments)