' This class sets up the type of objects used by the tokenizer and parser. Each TokenClass ' object contains 2 strings: Item and Category. Public Class TokenClass Public Item As String Public Category As String Public Sub New(ByVal ItemValue As String, ByVal CategoryValue As String) Item = ItemValue Category = CategoryValue End Sub ' Returns a string containing Item and Category, nicely spaced so that if you print ' several of these in a row, the Item entries align in one column and the Category ' entries align in a column to the right of the other one. ' Note that it is important that the Item entries be limited to a max length of 24 chars. Public Overrides Function ToString() As String Dim Temp As String Temp = Item & " " ' Append 25 spaces. Return Temp.Substring(0, 25) & Category End Function End Class