|
Imports System
Imports System.Xml
Imports System.Xml.Schema
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Collections
Imports System.Data
Imports System.Windows.Forms
Public Class MainClass
Shared Sub Main()
Dim Doc As New XmlDocument()
Dim TempNode As XmlElement
Dim x As Integer
Doc.Load("OutDocument.xml")
Dim DocRoot As XmlElement = Doc.CreateElement("Orders")
For x = 0 To DocRoot.ChildNodes.Count - 1
TempNode = CType(DocRoot.ChildNodes(x), XmlElement)
Console.WriteLine("Order Quantity: {0}", _
TempNode.GetAttribute("Quantity"))
Next
End Sub
End Class
|
