forum.boolean.name - Деление текста

forum.boolean.name (http://forum.boolean.name/index.php)

- 2D-программирование (http://forum.boolean.name/forumdisplay.php?f=13)

- - Деление текста (http://forum.boolean.name/showthread.php?t=13021)

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

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

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

Зарание спс.

Ответ: Деление текста

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

Код:

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

Ответ: Деление текста

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