Test XMLSimple Class Code

Category:

ASP, HTML and XML

Type:

Applications

Difficulty:

Beginning

Author: Anonymous

Version Compatibility: Visual Basic.NET

More information:

This code test the XMLSimple Class ... you need to download the XMLSimple code first. search for Simple XML

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Imports XMLSimple
Imports XMLSimple.XMLFile
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' TestXMLSimple: 
'
' Author....: Zachary Lewis
' Email.....: freeware@zcstr.com
'
' Disclaimer: Use this DEMO code entirely at your own risk
'             and accept all responsibility for your actions.
'
' Freeware..: Cost is Free
'
' Purpose...: This class performs a simple test on the three main functions of the XMLSimple class.
'

Module TestXMLSimple

Sub Main()

System.Console.WriteLine("*** Beginning Test of XMLSimple ***")

Dim mytest01 As XMLFile

mytest01 = New XMLFile
        mytest01.setXMLFile("testXMLSimple.xml")
        If mytest01.setXMLFile("testXMLSimple.xml") Then
            
            '
            ' Get second record a 2 depth 
            Console.WriteLine("RESULT:(" & mytest01.getElementValue("title", 2, 2) & ")")
            If mytest01.hasErrors Then

Console.WriteLine(mytest01.lastErrorMessage)
                System.Console.WriteLine("*** Complete Test of XMLSimple ***")

Console.ReadLine()

Exit Sub

End If
            Console.WriteLine(" - ")
            Console.WriteLine(" - ")

Dim AllRec As Collection

AllRec = mytest01.getAllElementValues("title", 2)
            If mytest01.hasErrors Then

Console.WriteLine(mytest01.lastErrorMessage)
                System.Console.WriteLine("*** Complete Test of XMLSimple ***")

Console.ReadLine()

Exit Sub

End If
            If AllRec Is Nothing Then

Else
                '
                ' 
                For Each tmpStr As String In AllRec

Console.WriteLine("All Title: " & tmpStr)

Next
            End If
            AllRec = mytest01.getAllElementValues("item", 2)
            If AllRec Is Nothing Then
            Else
                '
                ' 
                For Each tmpStr As String In AllRec

Console.WriteLine("All ITEMS: " & tmpStr)

Next
            End If
            Console.WriteLine(" - ")
            Console.WriteLine(" - ")

Dim tmplist As New Collection

tmplist.Add("title")
            tmplist.Add("item")
            AllRec = mytest01.getAllElementValues(tmplist)
            If mytest01.hasErrors Then

Console.WriteLine(mytest01.lastErrorMessage)
                System.Console.WriteLine("*** Complete Test of XMLSimple ***")

Console.ReadLine()

Exit Sub

End If
            If AllRec Is Nothing Then

Else
                '
                '

Dim tmpCollection As Collection

For Each tmpHash As Hashtable In AllRec
                    tmpCollection = tmpHash("title")
                    If tmpCollection Is Nothing Then
                        '
                        ' No records found
                    Else
                        For Each tmpstr3 As String In tmpCollection
                            Console.WriteLine("TITLE: (" & tmpstr3 & ")")
                        Next

End If

tmpCollection = Nothing
                    tmpCollection = tmpHash("item")
                    If tmpCollection Is Nothing Then
                        '
                        ' No records found
                    Else

For Each tmpstr3 As String In tmpCollection
                            Console.WriteLine("ITEM: (" & tmpstr3 & ")")
                        Next

End If
                    Console.WriteLine(" - ")

Next
            End If

'
            ' Get first record a 2 depth .
            Console.WriteLine("RESULT:(" & mytest01.getElementValue("title", 1, 2) & ")")

Else
            '
            ' 
            ' Error Get Error Message
            Console.WriteLine(mytest01.lastErrorMessage)

End If

Console.WriteLine(" - ")
        Console.WriteLine(" - ")

System.Console.WriteLine("*** Complete Test of XMLSimple ***")

Console.ReadLine()

End Sub

End Module