Stringsplit

[Lemures]

probly a dumb question.. how do i split a string into all the seperate parts? for example, i want to split "the word" into an array (length, "t", "h", "e", " ", "w", "o", "r", "d")

[Valik]

$phrase = "the word"
$length = StringLen($phrase)
If $length = 0 Then Exit

Dim $array[$length]

For $i = 0 TO $length - 1
    $array[$i] = StringMid($phrase, $i + 1, 1)
Next

For $i = 0 To $length -1
    MsgBox(4096, "", $array[$i])
Next

Edited January 30, 2004 by Valik