''' <summary> ''' Consoleで内容を出力 ''' </summary> ''' <param name="myObjs">ArrayList</param> ''' <remarks>ツール用</remarks> Public Shared Sub Print(ByVal myObjs As ArrayList)
Dim i As Integer For Each tmpObj As Object In myObjs Console.WriteLine(" [{0}] : {1}", i, tmpObj.ToString) i = i + 1 Next Console.WriteLine()
End Sub
''' <summary> ''' Consoleで内容を出力 ''' </summary> ''' <param name="myObjs">Array</param> ''' <remarks>ツール用</remarks> Public Shared Sub Print(ByVal myObjs As Array)
Dim i As Integer For Each tmpObj As Object In myObjs Console.WriteLine(" [{0}] : {1}", i, tmpObj.ToString) i = i + 1 Next Console.WriteLine()
End Sub ''' <summary> ''' Consoleで内容を出力 ''' </summary> ''' <param name="myObjs">Hashtable</param> ''' <remarks>ツール用</remarks> Public Shared Sub Print(ByVal myObjs As Hashtable)
Dim i As Integer Dim enumerator As IDictionaryEnumerator = myObjs.GetEnumerator
While enumerator.MoveNext Console.WriteLine(" [{0}] : key[{1}],value[{2}]", i, enumerator.Key.ToString, enumerator.Value.ToString) i = i + 1 End While
Console.WriteLine()
End Sub
