输出ArrayList，Array，Hashtable的函数

来源：互联网发布：2017怎么申请淘宝达人编辑：程序博客网时间：2024/05/14 18:22

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