|
This routine should do it:
Break on
Color w/n
Dim $string
Dim $array[0]
$string = "all_people_seem_to_need_data_processing"
$array = splity($string)
For $i=0 to Ubound($array)-1
? $array[$i] + " -> " + $i
Next
Sleep 5
Function splity($s)
Dim $l, $i, $j
Dim $str[0]
$j = 1
$l = Len($s)
ReDim $str[$l]
For $i=0 to $l-1
$str[$i] = Left($s,1)
$s = Right($s,$l-$j)
$j = $j + 1
Next
$splity = $str
EndFunction
[ 06. October 2002, 11:48: Message edited by: m_a_x_y ]
| 
![[Smile]](images/icons/smile.gif){kind=icon}
