help: looping through listbox items to split string

[Gal1010]

hi experts!

i need some help to develop looping logic as the following:

when have a listbox say "list1" contains some lines of string as items.

actually, i need to loop through these items line by line, and then separate each of them into words.
my try was like this:

-------------------------------------------------------------------
Dim arrWords() As String
Dim i, x As Integer

Text1.Text = ""
For i = 0 To List1.ListCount
For x = 0 To 6
arrWords(x) = Split(Str(List1.List(i)))
If Text1.Text = "" Then
Text1.Text = arrWords(x)
Else
Text1.Text = Text1.Text & vbCrLf & arrWords(x)
End If
Next x

Next i
----------------------------------------------------------------------

any help would be highlly appreciated.. thnx in advance

[dglienna]

Please use CODE TAGS around your code

' Like this

What is the error message you're getting?

[Gal1010]

oh sorry, here is the code again:

Dim arrWords() As String
Dim i, x As Integer

Text1.Text = ""
For i = 0 To List1.ListCount
 For x = 0 To List1.ListCount
     arrWords(x) = Split(Str(List1.List(i)))
     If Text1.Text = "" Then
         Text1.Text = arrWords(x)
     Else
         Text1.Text = Text1.Text & vbCrLf & arrWords(x)
     End If
 Next x
Next i

and the error massege is "Run-time error '13': Type mismatch"

thanks

[Equx]

On which line do you get the error code?

[Gal1010]

on this line:

arrWords(x) = Split(Str(List1.List(i)))

thanks

[Gal1010]

hi guys

i am here again just to tell you that i got over the problem by using vb9, ".net" with code like the following structure:
"it may helps someone else"

        Dim i As Integer
        For i = 0 To ListBox1.Items.Count - 1
            Dim arrWords() As String = ListBox1.Items(i).Split(" ")
            For x = 0 To UBound(arrWords)
                ListBox2.Items.Add(arrWords.ElementAt(x))
            Next x
        Next i

so many thanks for all of you.

[WoF]

Maybe this is good for nothing at this point anymore, but:
I'd like to point out that the very same could have been achieved in VB6, too.

        Dim i As Integer
        Dim arrWords() as String
        For i = 0 To ListBox1.Items.Count - 1
            arrWords = Split(ListBox1.Items(i), " ")
            For x = 0 To UBound(arrWords)
                ListBox2.AddItem arrWords(x)
            Next x
        Next i

I think the previous type mismatch lied in this instruction: Split(Str(List1.List(i)))
The list elements are already strings, so using the Str() function is obsolete and produces the error: it expects anumeric argument.

[Gal1010]

yup, you are totally right..
it works Smoothly too
thanks a lot.

[galelo]

thank you so much !! it did help me!!

[galelo]

thank you sooo much man