Как вывести все значения из XML-файла - VB
Формулировка задачи:
Вобщем есть некий файл msgs.xml
помогите написать програмку которая нажатием кнопки выводит все сообщения принадлежащие к 1 из категорий. и отдельно клавишу вывода всех сообщений. Заранее спасибо
Решение задачи: «Как вывести все значения из XML-файла»
textual
Листинг программы
Option Explicit
Dim XmlDoc As DOMDocument
Private Sub Command1_Click()
Dim xmlNodes As IXMLDOMNodeList
Dim xmlNode As IXMLDOMElement
Text1.Text = ""
Set xmlNodes = XmlDoc.selectNodes("//message")
For Each xmlNode In xmlNodes
If xmlNode.getAttribute("category") = "cat1" Then
Text1.Text = Text1.Text & xmlNode.nodeTypedValue & vbCrLf
End If
Next xmlNode
End Sub
Private Sub Command2_Click()
Dim xmlNodes As IXMLDOMNodeList
Dim xmlNode As IXMLDOMElement
Text1.Text = ""
Set xmlNodes = XmlDoc.selectNodes("//message")
For Each xmlNode In xmlNodes
Text1.Text = Text1.Text & xmlNode.nodeTypedValue & vbCrLf
Next xmlNode
End Sub
Private Sub Form_Load()
Set XmlDoc = CreateObject("Msxml2.DOMDocument")
XmlDoc.Load App.Path & "\Test.xml"
End Sub