[Array] AssociativeArray

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von picoflop.

    [Array] AssociativeArray

    Hallo ich habe ein problem wie kann ich in vb.net ein AssociativeArray wie in PHP machen habe mir eine eigene klasse zusammen gebaut in der geht schreiben und lesen nur alle keys auslesen geht net. Würde mich über hilfe freuen.


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class associative_array
    2. Private Shared array_index As New Dictionary(Of String, Object)
    3. Public Function Item(ByVal TKey, Optional ByVal TValue = "<False>")
    4. If array_index.ContainsKey(TKey) Then
    5. If TValue <> "<False>" Then
    6. array_index.Item(TKey) = TValue
    7. Return True
    8. Else
    9. Return array_index.Item(TKey)
    10. End If
    11. Else
    12. Return False
    13. End If
    14. End Function
    15. Public Function add_dim(ByVal TKey As String)
    16. If array_index.ContainsKey(TKey) Then
    17. Return False
    18. Else
    19. array_index.Add(TKey, New array)
    20. Return True
    21. End If
    22. End Function
    23. Public Function query(ByVal array As String, Optional ByVal TValue As Object = Nothing)
    24. Dim start As Integer = array.IndexOf("[")
    25. Dim ende As Integer = array.IndexOf("]")
    26. Dim search As String = array.Substring(start + 1, ende - start - 1)
    27. array = array.Remove(start, ende - start + 1)
    28. If array_index.ContainsKey(search) Then
    29. If TypeOf array_index.Item(search) Is array Then
    30. If array.Length <> 0 Then
    31. Return query_intern(array, array_index.Item(search), TValue)
    32. Else
    33. Return array_index.Item(search)
    34. End If
    36. Else
    37. If TValue Is Nothing = False Then
    38. array_index.Item(search) = TValue
    39. Return True
    40. Else
    41. Return array_index.Item(search)
    42. End If
    43. End If
    44. Else
    45. If TValue Is Nothing = False Then
    46. If array.Length <> 0 Then
    47. array_index.Add(search, New array)
    48. Return query_intern(array, array_index.Item(search), TValue)
    49. Else
    50. array_index.Add(search, TValue)
    51. Return True
    52. End If
    53. Else
    54. Return False
    55. End If
    56. End If
    57. End Function
    58. Public Function key_colection_query(ByVal array As String)
    59. Dim start As Integer = array.IndexOf("[")
    60. Dim ende As Integer = array.IndexOf("]")
    61. Dim search As String = array.Substring(start + 1, ende - start - 1)
    62. array = array.Remove(start, ende - start + 1)
    63. If array_index.ContainsKey(search) Then
    64. If TypeOf array_index.Item(search) Is array Then
    65. If array.Length <> 0 Then
    66. Return key_colection_query_intern(array, array_index.Item(search))
    67. Else
    68. Return array_index.Item(search).KeyCollection()
    69. End If
    70. End If
    71. End If
    72. End Function
    73. Function key_colection_query_intern(ByVal array As String, ByVal dic As Object)
    74. Dim start As Integer = array.IndexOf("[")
    75. Dim ende As Integer = array.IndexOf("]")
    76. Dim search As String = array.Substring(start + 1, ende - start - 1)
    77. If dic.ContainsKey(search) Then
    78. If TypeOf dic.Item(search) Is array Then
    79. If array.Length <> 0 Then
    80. Return key_colection_query_intern(array, dic.Item(search))
    81. Else
    82. For Each kvp As KeyValuePair(Of String, Object) In dic.Item(search).KeyCollection()
    83. MsgBox(kvp.Key.ToString)
    84. Next
    85. End If
    86. End If
    87. End If
    88. End Function
    89. Function query_intern(ByVal array As String, ByVal dic As Object, Optional ByVal TValue As Object = Nothing)
    90. Dim start As Integer = array.IndexOf("[")
    91. Dim ende As Integer = array.IndexOf("]")
    92. Dim search As String = array.Substring(start + 1, ende - start - 1)
    93. array = array.Remove(start, ende - start + 1)
    94. If dic.ContainsKey(search) Then
    95. If TypeOf dic.Item(search) Is array Then
    96. Return query_intern(array, dic.Item(search), TValue)
    97. Else
    98. If TValue Is Nothing = False Then
    99. dic.Item(search, TValue)
    100. Return True
    101. Else
    102. Return dic.Item(search)
    103. End If
    104. End If
    105. Else
    106. 'MsgBox(TValue.GetType.ToString)
    107. If TValue Is Nothing = False Then
    108. 'MsgBox(array.Length)
    109. If array.Length <> 0 Then
    110. dic.Add(search, New array)
    111. Return query_intern(array, dic.Item(search), TValue)
    112. Else
    113. dic.Add(search, TValue)
    114. Return True
    115. End If
    116. Else
    117. Return False
    118. End If
    119. End If
    120. End Function
    121. Public Function clear_all(ByVal TKey As String, ByVal TValue As Object)
    122. If array_index.ContainsKey(TKey) Then
    123. array_index.Clear()
    124. Return False
    125. Else
    126. array_index.Add(TKey, TValue)
    127. Return True
    128. End If
    129. End Function
    130. Public Function count()
    131. Return array_index.Count
    132. End Function
    134. End Class
    137. Public Class array
    138. Private array As New Dictionary(Of String, Object)
    139. Public Function Item(ByVal TKey, Optional ByVal TValue = Nothing)
    140. If array.ContainsKey(TKey) Then
    141. If TValue Is Nothing = False Then
    142. array.Item(TKey) = TValue
    143. Return True
    144. Else
    145. Return array.Item(TKey)
    146. End If
    147. Else
    148. Return False
    149. End If
    150. End Function
    151. Public Function add(ByVal TKey As String, ByVal TValue As Object)
    152. If array.ContainsKey(TKey) Then
    153. Return False
    154. Else
    155. array.Add(TKey, TValue)
    156. Return True
    157. End If
    158. End Function
    159. Public Function clear(ByVal TKey As String, ByVal TValue As Object)
    160. If array.ContainsKey(TKey) Then
    161. array.Clear()
    162. Return True
    163. Else
    165. Return False
    166. End If
    167. End Function
    168. Function ContainsKey(ByVal Tkey As String)
    169. Return array.ContainsKey(Tkey)
    170. End Function
    171. Public Function KeyCollection()
    172. Dim list As New List(Of String)
    173. For Each kvp As KeyValuePair(Of String, Object) In array
    174. list.Add(kvp.Key.ToString)
    175. MsgBox(kvp.Key.ToString)
    176. Next
    177. Return list
    178. End Function
    180. End Class



    MIt Freundlichen Grüßen
    Rene3233

Facebook
Telefonspende