please help me with parsing this right!!

[Scorpionz]

no one has given me a positive answer on how to parse this:

373 3 3 113 "hello there" "sup all" 4 4

into a listbox like this:

373
3
3
113
hello there
sup all
4
4

please help!!

[kedaman]

Well here you go, the idea is to parse out the stuff between the " "s and add it in the listbox while splitting up the rest.

    Dim x&, x2&, n, text$
        
        text = "373 3 3 113 ""hello there"" ""sup all"" 4 4 "
    Do
        x = InStr(x2 + 1, text, """")
        If x = 0 Then x = Len(text) + 1
            For Each n In Split(Mid(text, x2 + 1, x - x2 - 1), " ")
                If Len(n) Then List1.AddItem n
            Next n
        x2 = InStr(x + 1, text, """")
        If x2 Then List1.AddItem Mid(text, x + 1, x2 - x - 1)
    Loop While x2

[Scorpionz]

FINALLY!!!!!!!!

thank you thank you thank you thank you!!!

your the man keda

ooxoxoxoxox

=P