Καλησπέρα έχω ένα πίνακα που έχει Strings.Θέλω να χωρίσω τον πίνακα με κόμματα και να τα βάλω σε ένα string.Αρχικά έχω ένα ArrayList.Κάνω το εξής :

 Dim list As New ArrayList
        list.Add("1")
        list.Add("2")
        list.Add("3")

    ' o pinakas   
   Dim values = list.ToArray()

Dim sep As String = ","

Dim s As String = String.Join(sep, values)

Label.Text=s

μου πετάει το error στην πωτελευταία γραμμή :

Specified cast is not valid.

Το πρόβλημα του error είναι ότι η μεταβλητή values δεν μπορεί να μετατραπεί σέ 1-dimensional array γι'αυτό κάνε το παρακάτω.



Dim list As New ArrayList()

list.Add("1")
list.Add("2")
list.Add("3")

' o pinakas

Dim values = list.ToArray()
Dim a() As String

ReDim a(values.Length - 1)

Dim i As Int32

For i = values.GetLowerBound(0) To values.GetUpperBound(0)
   a(i) = values(i).ToString
Next

Dim sep As String = ","

Dim s As String = String.Join(sep, a)

Label.Text=s



ή το ίδιο μπορεί να το κάνεις και μέ IEnumerator αντί τών GetLowerBound και GetUpperBound

---

Ιωάννης Μανουσάκης

imanos wrote:

For i = values.GetLowerBound(0) To values.GetUpperBound(0)    a(i) = values(i).ToString Next ή το ίδιο μπορεί να το κάνεις και μέ IEnumerator αντί τών GetLowerBound και GetUpperBound

Ή μπορείς να χρησιμοποιήσεις την ArrayList.CopyTo για να μη γράφεις μόνος σου το loop.

---

Νατάσα Μανουσοπούλου

Πολύ σωστά το έθεσε η mns .Μ' αυτό τον τρόπο μπορείς να χρησιμοποιήσεις το παρακάτω.

Αποτέλεσμα μειωμένος κώδικας.

Dim list As New ArrayList()

list.Add("1")

list.Add("2")

list.Add("3")



Dim a(2) As String



list.CopyTo(a)



Dim sep As String = ","

Dim s As String = String.Join(sep, a)

---

Ιωάννης Μανουσάκης