пишу в браузере, да и синтаксис блица уже подзабыл, могут быть ошибки.
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