''' <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