Архив форумов ЦИТФорума

[=WTF=]

Народ помогите кто может...
У меня есть стринг его надо разбить на части каждая часть ограничивается -- ","
И записать каждую часть в эррай
Вот экземпляр стринга

5703,tlbKarel_ButtonClick_move,No File,,My Ser No,006008AB4512,I Am User,A15,9/07/2001 ,11:10:25

Сенькс большой

[AndreyZ]

' Считаем число вхождений слова "кол" в строке
Dim stroka As String ' строчка для подсчета
Dim retval ' возвращаемое значение
stroka = "Шит колпак не по-колпаковски. Ливерная колбаса."
retval = Split(stroka, "кол")
MsgBox "'кол' встречается в строке'" & stroka _
& "' " & UBound(retval) & " раза"