Question

需要问一下，我尝试了很多选项，但它仍然无法正常工作。

我有一个简单的XML文件，其中包含：

<?xml version="1.0" encoding="UTF-8"?>
<messages>
<message>
<title>Hello</title>
<author>John</author>
<text>How are you?</text>
</message>
</messages>

我只需要在消息中显示一件事。例如我制作了这段代码，但这根本不起作用，我认为它会向我展示一些对象，但它会出错。

这是一段代码：

Imports System.Xml
Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    Dim commands As XmlReader = New XmlTextReader("C:/xampp/test.xml")

    MsgBox(commands.ReadContentAsString)

End Sub
End Class

我认为这将是一段时间或某事，但我不知道代码方式...我想让它变得非常简单，只有阅读。

感谢您的帮助，希望我能够很好地描述一切。

度过美好的一天！

Answer 1

在您的xml文件中，您的代码缺少'＆gt;'。也许这就是问题。

如果您使用大型xml文件，则可以使用here检查xml文件。

 <?xml version="1.0" encoding="UTF-8"?>
<messages>
<book>
<title>Hello</title>
<author>John</author>
<text>How are you?</text**>**
</book>
</messages>

Answer 2

好的，已经完成了，这是有效的解决方案:)

   Imports System.Xml
   Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    Dim xmlDoc As New XmlDocument()
    xmlDoc.Load("c:\xampp\test.xml")
    Dim nodes As XmlNodeList = xmlDoc.DocumentElement.SelectNodes("/messages/message")
    Dim title As String = "", author As String = "", text As String = ""
    For Each node As XmlNode In nodes
        title = node.SelectSingleNode("title").InnerText
        author = node.SelectSingleNode("author").InnerText
        Text = node.SelectSingleNode("text").InnerText
        MessageBox.Show(title & " " & author & " " & text)
    Next

End Sub
End Class

Answer 3

您可以查看XML in Visual Basic和Accessing XML in Visual Basic

Dim x = System.Xml.Linq.XDocument.Load("C:/xampp/test.xml")

MsgBox(x...<title>.Value)

Visual Basic 2015将XML解析为messagebox

3 个答案: