Как вывести все значения из 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д