Anonymous user
XML/Input: Difference between revisions
→{{header|Visual Basic .NET}}
(→{{header|Kotlin}}: Removed unnecessary imports) |
|||
Line 2,537:
Dave
Émily
=={{header|VBA}}==
<lang vb>Option Explicit
Const strXml As String = "" & _
"<Students>" & _
"<Student Name=""April"" Gender=""F"" DateOfBirth=""1989-01-02"" />" & _
"<Student Name=""Bob"" Gender=""M"" DateOfBirth=""1990-03-04"" />" & _
"<Student Name=""Chad"" Gender=""M"" DateOfBirth=""1991-05-06"" />" & _
"<Student Name=""Dave"" Gender=""M"" DateOfBirth=""1992-07-08"">" & _
"<Pet Type=""dog"" Name=""Rover"" />" & _
"</Student>" & _
"<Student DateOfBirth=""1993-09-10"" Gender=""F"" Name=""Émily"" />" & _
"</Students>"
Sub Main_Xml()
Dim MyXml As Object
Dim myNodes, myNode
Dim temp As String
With CreateObject("MSXML2.DOMDocument")
.LoadXML strXml
Set myNodes = .getElementsByTagName("Student")
End With
If Not myNodes Is Nothing Then
For Each myNode In myNodes
On Error GoTo Continue
temp = myNode.getAttribute("Name")
Debug.Print temp
Continue:
On Error GoTo -1
Next
End If
Set myNodes = Nothing
End Sub</lang>
{{out}}
<pre>April
Bob
Chad
Dave
Émily</pre>
=={{header|Visual Basic .NET}}==
| |||