おやじプログラマー日記

VB.NETには「コレクション」としてのArrayList、Hashtable、SortedListなどの、各種のデータを配列の様に扱えるクラスが標準で備わっています。

SortedListは使いやすそうですが、キーでソートされてしまうので、ソートがされないSortedList的なクラスがあればと思い ArrayListとHashtableを合体させた、clsArrayHashなるクラスを作成してみました。

クラス全体のソースは最後に載せますが、このクラスの使い方を先ずは見てください。
あるフォームにボタンを配置し、そのクリックでテストを行っています。
clsArrayHashに追加されるデータは文字列を使った簡単なもので、データの順次取得に、ForEachと指標を使った２つの方法を示しています。

■「clsArrayHash」の使用テストソース１
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'ArrayHashクラスの生成 Dim clsList As New clsArrayHash '仮のデータを3件追加 clsList.Add("key1", "key1-contents") clsList.Add("key2", "key2-contents") clsList.Add("key3", "key3-contents") 'ArrayHashクラスから順次データを取得 Dim strSum As String = "" For Each str As String In clsList strSum &= str & " : " Next MsgBox(strSum) 'ArrayHashクラスから指標を用いて順次データを取得 strSum = "" For i = 0 To clsList.Count - 1 strSum &= clsList(i) & " : " Next MsgBox(strSum) 'ArrayHashクラスクリア clsList.Clear() clsList = Nothing End Sub

次に、更にフォームにボタンを配置し、そのクリックでテストを行っています。
clsArrayHashに追加されるデータはテスト的なクラスを使った簡単なもので、データの順次取得に、ForEachと指標を使った２つの方法を示しています。

■「clsArrayHash」の使用テストソース２
'テストクラス Private Class clsSub Public strData1 As String Public strData2 As String 'コンストラクタ Sub New(ByVal strData1 As String, ByVal strData2 As String) Me.strData1 = strData1 Me.strData2 = strData2 End Sub End Class Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 'ArrayHashクラスの生成 Dim clsList As New clsArrayHash '仮のデータを3件追加 clsList.Add("key1", New clsSub("key1-Data1", "key1-Data2")) clsList.Add("key2", New clsSub("key2-Data1", "key2-Data2")) clsList.Add("key3", New clsSub("key3-Data1", "key3-Data2")) 'ArrayHashクラスから順次データを取得 Dim strSum As String = "" For Each cls As clsSub In clsList strSum &= cls.strData1 & "," & cls.strData2 & " : " Next MsgBox(strSum) 'ArrayHashクラスから指標を用いて順次データを取得 strSum = "" For i = 0 To clsList.Count - 1 Dim cls As clsSub = clsList(i) strSum &= cls.strData1 & "," & cls.strData2 & " : " Next MsgBox(strSum) 'ArrayHashクラスクリア clsList.Clear() clsList = Nothing End Sub

以下に、clsArrayHashの全体のソースを載せます。バグがあるかもしれませんが悪しからず。

■「clsArrayHash」のソース
'''------------------------------------------------------------------------ ''' <summary> ''' ArrayListとHashtableの合体クラス ''' </summary> ''' <remarks></remarks> '''------------------------------------------------------------------------ Public Class clsArrayHash Implements IEnumerable Private arrayList As ArrayList Private hashTable As Hashtable '''------------------------------------------------------------------------ ''' <summary> ''' コンストラクタ ''' </summary> '''------------------------------------------------------------------------ Sub New() Me.arrayList = New ArrayList Me.hashTable = New Hashtable End Sub '''------------------------------------------------------------------------ ''' <summary> ''' 指定したキーおよび値を持つ要素を ArrayHashに追加します。 ''' </summary> ''' <param name="key">追加する要素のキー。</param> ''' <param name="value">追加する要素の値。</param> ''' <returns>value が追加された位置の ArrayHash インデックス。</returns> '''------------------------------------------------------------------------ Public Function Add(ByVal key As String, ByVal value As Object) As Integer 'ArrayListへの追加位置 Dim listPos As Integer = -1 'ハッシュテーブルのキーの存在チェック If Me.hashTable.ContainsKey(key) = False Then 'ArrayListへの追加 listPos = Me.arrayList.Add(value) 'ハッシュテーブルへArrayListのIndexを追加 hashTable.Add(key, listPos) End If 'ArrayListへの追加位置を返す Return listPos End Function '''------------------------------------------------------------------------ ''' <summary> ''' 指定したキーに関連付けられている値を取得または設定します。 ''' </summary> ''' <param name="key">値を取得または設定する対象のキー。</param> ''' <value>設定値</value> ''' <returns>指定したキーに関連付けられている値。指定したキーが見つからない場合、Nothingが返ります。</returns> '''------------------------------------------------------------------------ Default Public Property Item(ByVal key As String) As Object Get 'ハッシュテーブルのキーの存在チェック If Me.hashTable.ContainsKey(key) = True Then '存在した場合、ArrayListのIndex取得 Dim i As Integer = Me.hashTable(key) Return Me.arrayList(i) Else '存在しない場合、Nothingを返す Return Nothing End If End Get Set(ByVal value As Object) 'ハッシュテーブルのキーの存在チェック If Me.hashTable.ContainsKey(key) = True Then '存在した場合、ArrayListのIndex取得 Dim i As Integer = Me.hashTable(key) 'ArrayListへオブジェクトの設定 Me.arrayList(i) = value End If End Set End Property '''------------------------------------------------------------------------ ''' <summary> ''' 指定したインデックスにある要素を取得または設定します。 ''' </summary> ''' <param name="idx">取得または設定する要素の、0 から始まるインデックス番号。</param> ''' <value>設定する要素。</value> ''' <returns>指定したインデックスにある要素。</returns> '''------------------------------------------------------------------------ Default Public Property Item(ByVal idx As Integer) As Object Get If 0 <= idx And idx <= Me.arrayList.Count - 1 Then '指標の範囲が正常の場合、ArrayListの内容を返す Return Me.arrayList(idx) Else '指標の範囲がエラーの場合、Nothingを返す Return Nothing End If End Get Set(ByVal value As Object) If 0 <= idx And idx <= Me.arrayList.Count - 1 Then '指標の範囲が正常の場合、ArrayListへオブジェクトの設定 Me.arrayList(idx) = value End If End Set End Property '''------------------------------------------------------------------------ ''' <summary> ''' ArrayHash に実際に格納されている要素の数を取得します。 ''' </summary> ''' <returns>ArrayHash に実際に格納されている要素の数</returns> '''------------------------------------------------------------------------ Public ReadOnly Property Count() As Integer Get Return Me.arrayList.Count End Get End Property '''------------------------------------------------------------------------ ''' <summary> ''' ArrayHash からすべての要素を削除します。 ''' </summary> '''------------------------------------------------------------------------ Public Sub Clear() Me.arrayList.Clear() Me.hashTable.Clear() End Sub '''------------------------------------------------------------------------ ''' <summary> ''' ArrayHash に特定のキーが格納されているかどうかを判断します。 ''' </summary> ''' <param name="key">ArrayHash 内で検索されるキー。</param> ''' <returns>指定したキーを持つ要素が ArrayHash に格納されている場合は true。それ以外の場合は false。</returns> '''------------------------------------------------------------------------ Public Function ContainsKey(ByVal key As String) As Boolean '内部のハッシュテーブルを利用 Return Me.hashTable.ContainsKey(key) End Function '''------------------------------------------------------------------------ ''' <summary> ''' IEnumerable.GetEnumerator()の実装 ''' </summary> ''' <returns></returns> '''------------------------------------------------------------------------ Public Function GetEnumerator() As IEnumerator Implements IEnumerable.GetEnumerator 'arrayList型のGetEnumerator()を流用する Return Me.arrayList.GetEnumerator() End Function End Class