Как вывести все значения из 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы