Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   www.boolean.name > Программирование игр для компьютеров > Blitz3D > 2D-программирование

2D-программирование Вопросы, касающиеся двумерного программирования

Ответ
 
Опции темы
Старый 28.07.2010, 09:13   #1
Bizzy
AnyKey`щик
 
Регистрация: 27.07.2010
Сообщений: 6
Написано одно полезное сообщение
(для 2 участников)
Деление текста

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

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


Зарание спс.
(Offline)
 
Ответить с цитированием
Старый 28.07.2010, 09:22   #2
HolyDel
 
Регистрация: 25.09.2006
Сообщений: 6,030
Написано 1,469 полезных сообщений
(для 2,690 пользователей)
Ответ: Деление текста

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

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
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
impersonalis (28.07.2010)
Старый 28.07.2010, 09:58   #3
impersonalis
Зануда с интернетом
 
Аватар для impersonalis
 
Регистрация: 03.09.2005
Сообщений: 14,014
Написано 6,795 полезных сообщений
(для 20,917 пользователей)
Ответ: Деление текста

http://forum.boolean.name/showthread.php?t=47
http://forum.boolean.name/showpost.p...81&postcount=4
ТЕМА, БАТОН, ПОДНИМАЕТСЯ КАЖДУЮ НЕДЕЛЮ!!!!1111
__________________
http://nabatchikov.com
Мир нужно делать лучше и чище. Иначе, зачем мы живем? tormoz
А я растила сына на преданьях
о принцах, троллях, потайных свиданьях,
погонях, похищениях невест.
Да кто же знал, что сказка душу съест?
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +1, время: 16:39.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com