将 Xml 文件加载到 XDocument 中以便稍后在 Button 中使用答案

【问题标题】：Loading Xml file into XDocument to later use in a Button将 Xml 文件加载到 XDocument 中以便稍后在 Button 中使用
【发布时间】：2013-02-16 21:43:19
【问题描述】：

我目前一直在使用以下代码将大型 Xml 文件加载到 XTable 中：

Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  TextBox4.Visible = False
  Dim asm = Assembly.GetExecutingAssembly()
  Dim var = asm.GetManifestResourceStream("WindowsApplication2.british-english-dictionary.xml")

  Dim rand = New Random()
  Dim myXml = XDocument.Load(var)
  var.Close()

  Dim lexemeList = myXml.Descendants("lexeme").ToList()
  Dim randomLexeme = lexemeList(rand.Next(0, lexemeList.Count - 1))

  TextBox2.Text = randomLexeme.Descendants("grapheme").Value
End Sub

但是，由于 xml 很长（400,000 个条目），因此按下按钮会有一点延迟。为了尝试将其最小化，我想将Dim myXml = XDocument.Load(var) 放在按钮按下之外，以便将 Xml 文件加载到 XDocument 仅在打开程序时完成，而不是每次按下按钮时完成。

我试过这样做：

Imports System.IO
Imports System
Imports System.Reflection
Imports System.Xml
Imports System.Security.Permissions

Public Class Form1    
  Public asm = Assembly.GetExecutingAssembly()
  Public var = asm.GetManifestResourceStream("WindowsApplication2.british-english-dictionary.xml")

  Public rand = New Random()
  Public myXml = XDocument.Load(var)

  Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    TextBox4.Visible = False

    Dim lexemeList = myXml.Descendants("lexeme").ToList()
    Dim randomLexeme = lexemeList(rand.Next(0, lexemeList.Count - 1))

    TextBox2.Text = randomLexeme.Descendants("grapheme").Value
  End Sub
End Class

但是当按钮点击事件发生时我收到一个错误：

未找到类型“d__a”上的公共成员“ToList”。

【问题讨论】：

标签： xml vb.net visual-studio-2010 xml-parsing

【解决方案1】：

您不应该在变量初始化器中做任何繁重的工作。请改用Sub New 或Form_Load。始终明确指定类型并给变量一个有意义的名称。避免不必要的变量暴露，例如asm 可以在Sub New 中是私有的。例如：

Public var As Stream
Public rand As Random
Public myXml As XDocument

Sub New()
  ' This call is required by the designer.
  InitializeComponent()

  ' Add any initialization after the InitializeComponent() call.
  Dim asm As Assembly = Assembly.GetExecutingAssembly()
  var = asm.GetManifestResourceStream("WindowsApplication2.british-english-dictionary.xml")
  rand = New Random()
  myXml = XDocument.Load(var)
End Sub

从那开始，看看错误是否仍然存在。

附带说明一下，如果将资源文件 (*.resx) 添加到项目中，然后将 XML 资源添加到其中，则可以使代码更简单。然后就变得像调用一样简单：

myXml = XDocument.Load(My.Resources.ResxName.british-english-dictionary.xml)

注意资源名称是在编译时检查的，VS 会为你做管道。

【讨论】：