Разбить строку и занести в массив.

[ArtemkA]

Доброго времени суток

Допустим у меня есть строка "select1|select2|select3" мне надо разбить ее на Части и занести в массив. Разделителем будет символ | . Должно получиться типа этого:
opt[0]=select1
opt[1]=select2
opt[2]=select3

Как это можно сделать?

[ABTOMAT]

source$="select1|select2|select3"
limitator$ = "|"
dim opt$(100500)

for i=1 to len(source)
s$ = mid(source,i,1)
if (s = limitator) then
j=j+1
else
opt(j) = opt(j) + s
end if
next
for i=0 to j
print opt(i)
next

о госпаде я написал это в браузере за 2 минуты
разве это так сложно?
(кстати на рабочесть не проверял (блица нет на этом компе), если что я не виноват )

[impersonalis]

йоптель - тема поднимается каждый месяц
http://forum.boolean.name/showthread.php?t=47

[ABTOMAT]

Ну дык дык

[ArtemkA]

спaсибо ) извeнтиляюсь зa нубский вопрос )