[VB.NET] ArrayList di stringhe, con dimensione non fissata

[leonard_shelby]

Se inizializzo un array di n elementi ci riesco,
ma se devo creare un array o un arraylist come nel codice seguente
in cui non dichiaro inizialmente la dimensione o gli elementi dell'array allora mi dà
il seguente errore:

"Object reference not set to an instance of an object."

New String("prova") è una prova ovviamente mette quello ad ogni ciclo
ma gia al primo ciclo si blocca e dà l'errore di prima, cosa devo istanziare?

Module Module1

    Sub Main()

        'arraylist
        Dim str3_arr As ArrayList = Nothing
        Dim int1 As Integer = 0
        For int1 = 0 To 10
            str3_arr.Add(New String("prova"))
        Next int1

        Dim str2 As String
        str2 = str3_arr(1).ToString()

        MsgBox(str2)

    End Sub

End Module

[chipdb]

Nonostante sia ahimé antiquato, il C e anche lo stesso VB6 ti aiutano in questo caso. Nel tuo codice dichiari l'arrayList senza inizializzarlo a nulla. Prova con:

Module Module1

    Sub Main()

        'arraylist
        Dim str3_arr As New ArrayList ()
        Dim int1 As Integer = 0
        For int1 = 0 To 10
            str3_arr.Add(New String("prova"))
        Next int1

        Dim str2 As String
        str2 = str3_arr(1).ToString()

        MsgBox(str2)

    End Sub

End Module

Ciao

[Il Totem]

Chipdb ha ragione: inoltre hai esplicitamente impostato l'arraylist a Nothing, il che equivale a distruggerlo logicamente. Non sorprende che poi venga fuori il classico errore che fa disperare tutti :P Comunque potresti usare una lista generic per risparmiare tempo e spazio, guadagnando in prestazioni.

Dim Lista As New List(Of String)

E usare anche una variabile locale contatore del ciclo:

Module Module1
    Sub Main()
        'arraylist
        Dim str3_arr As New List(Of String)
        For int1 As Byte = 0 To 10
            str3_arr.Add(New String("prova"))
        Next int1

        MsgBox(str3_arr(1))
    End Sub
End Module

[leonard_shelby]

thanks a entrambi!

[leonard_shelby]

ho provato a usare una dichiarazione di array di stringhe del tipo dim nomearray() as string
ma così facendo nel for ho dovuto usare un redim (ipotizzando di non sapere quanti cicli servano)

ci sono altri modi e non usare l'istruzione redim a ogni ciclo?


ecco il codice che funziona con il redim, nel ciclo cè una riga commentata che avevo provato senza usare il redim, ma senza l'array inizialmente era lungo niente e dava errore

Module Module1

    Sub Main()

        Dim str5_arr() As String = New String() {}
        'arraylist
        Dim str3_arr As New ArrayList
        Dim int1 As Integer = 0
        For int1 = 0 To 10
            str3_arr.Add(New String("prova"))
            'str5_arr(int1) = "n.: " & int1.ToString()
            ReDim str5_arr(int1)
            str5_arr(int1) = "n.: " & int1.ToString()
        Next int1

        Dim str2 As String
        str2 = str3_arr(1).ToString()
        str2 = str5_arr(str5_arr.GetUpperBound(0))

        MsgBox(str2)

    End Sub

End Module

[Il Totem]

In realtà quel codice non dovrebbe funzionare... mi sembra strano che ReDim non elimini tutti i membri dell'array... va beh. Comunque la dichiarazion di un array come variabile può essere esplicita:

Dim Str(10) As String

Usare ReDim è sconsigliabile poichè decrementa le prestazioni e è in questo caso inutile, poichè si sa a priori il numero di elemento dell'array, che rimane fisso e non cambia.

Module Module1
    Sub Main()
        Dim Str(10) As String
        
        For I As Byte = 0 To 10
            Str(I) = "n.: " & I
        Next

        Console.WriteLine(Str(Str.Length - 1))
        Console.ReadKey()
    End Sub
End Module

[leonard_shelby]

si ma in realtà nel codice che dovrò fare non so quanti elementi ho a da mettere dentro l'array quindi non posso mettere il numero di elementi

in effetti con il redim mi reinizializza a nulli gli elementi dell'array a ogni ciclo quindi è da scartare

ci sono soluzioni per il caso in cui non avessi info sul numero di elementi con cui riempire l'array e volessi usare un tipo di array di stringa del tipo dim arr5_str() as string ?

[Il Totem]

Basta usare una variabile anzichè un numero, non ti pare?

Dim Num As Int32
'...
Dim A(Num - 1) As String

[leonard_shelby]

ok , pensavo si potesse lasciare libero il parametro del numero di elementi dell'array
farò così come dici per gli array di string

Originariamente inviato da Il Totem
Basta usare una variabile anzichè un numero, non ti pare?

Dim Num As Int32
'...
Dim A(Num - 1) As String

[alka]

Originariamente inviato da leonard_shelby
si ma in realtà nel codice che dovrò fare non so quanti elementi ho a da mettere dentro l'array quindi non posso mettere il numero di elementi

La classe ArrayList è pensata appositamente per risolvere questo problema.
La stavi già utilizzando, perché mai l'hai abbandonata? :master:

Se stai usando il .NET Framework 2.0, puoi inoltre sfruttare le classi basate sui Generics, creando liste tipizzate.