Arraylist в Visual Basic .net

Question

Могу ли я получить пример того, как сделать что-то вроде Vector или ArrayList в Visual Basic .NET?

Answer 1

Dim list As New ArrayList

или (эквивалентно):

Dim list As ArrayList = New ArrayList

Если вы хотите универсальный список (очень похож на ArrayList):

Dim list As New List(Of String)

Также см. ArrayList и Список документации.

Answer 2

Попробуйте следующее

Dim list As New ArrayList()
list.Add("hello")
list.Add("world")
For Each cur As String in list
  Console.WriteLine(cur)
Next

Answer 3

Добавить значения

Dim list As New ArrayList
list.Add("One")
list.Add("Two")
list.Add("Three")

Пример параметра

Module Module1

    Sub Main()
    ' Create an ArrayList and add two elements to it.
    Dim list As New ArrayList
    list.Add(5)
    list.Add(7)
    ' Use ArrayList as an argument to the method.
    Example(list)
    End Sub

    ''' <summary>
    ''' Receives ArrayList as argument.
    ''' </summary>
    Private Sub Example(ByVal list As ArrayList)
    Dim num As Integer
    For Each num In list
        Console.WriteLine(num)
    Next
    End Sub

End Module

выход

5 7

AddRange

Module Module1

    Sub Main()
    ' Create an ArrayList and add two elements.
    Dim list1 As New ArrayList
    list1.Add(5)
    list1.Add(7)
    ' Create a separate ArrayList.
    Dim list2 As New ArrayList
    list2.Add(10)
    list2.Add(13)
    ' Add this ArrayList to the other one.
    list1.AddRange(list2)
    ' Loop over the elements.
    Dim num As Integer
    For Each num In list1
        Console.WriteLine(num)
    Next
    End Sub

End Module

выход

5 7 10 13

Подсчет, Очистить

Module Module1

    Sub Main()
    ' Add two elements to the ArrayList.
    Dim list As New ArrayList
    list.Add(9)
    list.Add(10)
    ' Write the Count.
    Console.WriteLine(list.Count)
    ' Clear the ArrayList.
    list.Clear()
    ' Write the Count again.
    Console.WriteLine(list.Count)
    End Sub

End Module

выход

2 0

Добавить, удалить элементы

Module Module1

    Sub Main()
    ' Create an ArrayList and add three strings to it.
    Dim list As New ArrayList
    list.Add("Dot")
    list.Add("Net")
    list.Add("Perls")
    ' Remove a string.
    list.RemoveAt(1)
    ' Insert a string.
    list.Insert(0, "Carrot")
    ' Remove a range.
    list.RemoveRange(0, 2)
    ' Display.
    Dim str As String
    For Each str In list
        Console.WriteLine(str)
    Next
    End Sub

End Module

выход

Перлз

TryCast

Module Module1

    Sub Main()
    ' Create a new ArrayList.
    Dim list As New ArrayList
    list.Add("man")
    list.Add("woman")
    list.Add("plant")
    ' Loop over the ArrayList with a For loop.
    Dim i As Integer
    For i = 0 To list.Count - 1
        ' Cast to a string.
        Dim str As String = TryCast(list.Item(i), String)
        Console.WriteLine(str)
    Next i
    End Sub

End Module

выход

человек женщина завод

GetRange

Module Module1

    Sub Main()
    ' Create new ArrayList.
    Dim list1 As New ArrayList
    list1.Add("fish")
    list1.Add("amphibian")
    list1.Add("bird")
    list1.Add("plant")
    ' Create a new ArrayList and fill it with the range from the first one.
    Dim list2 As New ArrayList
    list2 = list1.GetRange(2, 2)
    ' Loop over the elements.
    Dim str As String
    For Each str In list2
        Console.WriteLine(str)
    Next
    End Sub

End Module

выход

птица завод

Answer 4

Если вы используете VB10, вы сможете использовать следующий синтаксис.

Dim list As New List(Of Integer) From { 1, 2, 3, 4, 5 }

Answer 5

Module Module1

    Sub Main()
        Dim al As New ArrayList()
        al.Add("1")
        al.Add("2")
        al.Add("3")
    End Sub

End Module

Answer 6

Вы можете использовать это:

Dim a As New ArrayList()
a.Add("Item1")
a.Add("Item2")
a.Add("Item3")