Imports System
Imports System.Xml
Imports System.IO
Imports System.Collections
Imports Microsoft.VisualBasic

'http://support.microsoft.com/default.aspx?scid=kb;EN-US;q301225

Public module MyModule


	Sub Main()
			'Dim strFile as String = Application.StartupPath() & "\SavedSnippets\SampleData\Contacts.xml"
			Dim strPath as String = "C:\Documents and Settings\Dan\Desktop\CodeSnippetCompiler\SavedSnippets\SampleData\"
			Dim strFile as String = strPath & "\TBAcalendar.xml"
			Dim strRecordName as String = "//day"
			Dim strOutput as String
			ReadXML(strFile, strRecordName)
			Console.Write("Press Enter to Continue")
			Console.ReadLine()
	End Sub


    Sub ReadXML(byVal strXmlFileName as String, byVal strRecordName as String) 'as HashTable
		Dim ht as New HashTable
         ' Create an Xml document instance and load XML data.
         Dim doc As XmlDocument = New XmlDocument()
         doc.Load(strXmlFileName)                     

         ' 1. Select all the Book titles by using an XPath query.
         Dim nodeList As XmlNodeList = doc.SelectNodes(strRecordName)
         Dim node As XmlNode
         Dim root As XmlElement = doc.DocumentElement
         For Each node In nodeList
         	Dim dayNode As XmlNode
         	If node.HasChildNodes Then
            	For Each dayNode In node.ChildNodes
					Console.WriteLine("*" & DayNode.InnerText & "*")
         			Dim EventNode As XmlNode
					'Console.WriteLine(dayNode.getElementById("event"))
         				If dayNode.HasChildNodes Then
            				For Each EventNode In dayNode.ChildNodes
								Console.WriteLine("[" & EventNode.InnerText & "]")
            				Next
						End If
            	Next
         	End If
         Next
    End Sub

End Module