Сегодня понадобилась функция разбиения строки:
Например имеем: 1,2,3,4,5,6,7,8,9,10
Нужно разбить по символу запятой и соответственно поместить всё в массив.
Function Split(mystring$, delimiter$)
Local StrLen = Len(mystring$)+1
Local start = 1
Local t
mystring = Trim(mystring)
delimiter = Mid( delimiter, 1, 1)
For t=1 To StrLen
If Mid(mystring$,t,1)=delimiter Or Mid(mystring$,t,1)="" Then
SplitResult(SplitCount)=Trim( Mid( mystring$, start, t-start ) )
SplitCount = SplitCount + 1
start=t+1
EndIf
Next
End Function
SplitResult - массив с результатами
SplitCount - количество результатов
Простенький примерчик:
test$="0,1,2,3,4,5,6,7,8,9,10,11,12,13"
Split(test$,", ")
Print SplitCount
For i = 0 To SplitCount
Print SplitResult(i)
Next
WaitKey
End
Если появится флуд на тему: зачем, почему, b3d гавно. Буду карать. Я выкладываю потому, что нахожу это полезным.