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 минуты
разве это так сложно?
(кстати на рабочесть не проверял (блица нет на этом компе), если что я не виноват
)