Πρώτα Βήματα - Web Development

Απ: Join Strings

imanos — Wed, 29 Mar 2006 16:30:14 GMT

Πολύ σωστά το έθεσε η 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)

Απ: Join Strings

Νατάσα Μανουσοπούλου — Wed, 29 Mar 2006 16:07:41 GMT

imanos wrote:

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

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

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

Απ: Join Strings

imanos — Wed, 29 Mar 2006 14:24:29 GMT

Το πρόβλημα του 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

Join Strings

fterotos — Wed, 29 Mar 2006 04:17:20 GMT

Καλησπέρα έχω ένα πίνακα που έχει 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.