Деление текста

[Bizzy]

Вопросик, есть строка "Вася Игорь Маша Витя" , как ее разделить на отдельные слова?

allname$ = "Вася Игорь Маша Витя" => name1$ = "Вася"
name2$ = "Игорь"
name3$ = "Маша"
name4$ = "Витя"


Зарание спс.

[HolyDel]

пишу в браузере, да и синтаксис блица уже подзабыл, могут быть ошибки.

Dim names$(100)
for i=0 to 99
names(i) = ""
next
global cnt_names = 0

function parse(s$,parserchar$ = " ")
cnt_names = 0
l = leght(s)
for i = 0 to l
cur_char = mid(a,i,1)
if cur_char=parser_char
cnt_names = cnt_names + cur_char
else
names(cnt_names) = names(cnt_names) + curchar
next 

end function

пользоваться так:

Dim names$(100)
for i=0 to 99
names(i) = ""
next
global cnt_names = 0

function parse(s$,parserchar$ = " ")
cnt_names = 0
l = leght(s)
for i = 0 to l
cur_char = mid(a,i,1)
if cur_char=parser_char
cnt_names = cnt_names + cur_char
else
names(cnt_names) = names(cnt_names) + curchar
next 

end function

allname$ = "Вася Игорь Маша Витя"
parse(allnames)

for i=0 to cnt_names-1
print "name"+(i+1)+" :"+names(i)
next

[impersonalis]

http://forum.boolean.name/showthread.php?t=47
http://forum.boolean.name/showpost.p...81&postcount=4
ТЕМА, БАТОН, ПОДНИМАЕТСЯ КАЖДУЮ НЕДЕЛЮ!!!!1111