Работа со строками

[Sirik]

У меня проблемма весьма бональная:
есть строка и из неё надо "вытащить" параметры. Формат строки такой:
1)Machine: Mic
2)Machine: Mic , Dupa
3)Machine: Mic , Dupa , Ser
...
(Это все варианты строки)

Мне надо вытащить из строк соответственно:
1)Mic
2)Mic и Dupa
3)Mic и Dupa и Ser

Целый день потратил, но не нашёл закономерности.
Помогите кто чем может.

[Евген]

Split() тебе поможет...
или посимвольным перебором - Mid()

[Sirik]

Поправочка:
я упростил задачу, теперь строки:
1)Mic
2)Mic , Dupa
3)Mic , Dupa , Ser
...

[GSerg]

Код: Выделить всё

function Parameters (s as string) as string()
  parameters=split(mid$(s,instr(1,s,":")+1),",")
end function

[GSerg]

Тогда и я упрощу...

Код: Выделить всё

function Parameters (s as string) as string()
  parameters=split(s,",")
end function

[Sirik]

Тогда и я упрощу...

Код: Выделить всё

function Parameters (s as string) as string()
  parameters=split(s,",")
end function

что у меня вызов твоей функции даёт ошибку!
может, при объявлении функции надо писать function Parameters (s as string) as string "без скобок"

[GSerg]

Нет, со скобками.
А поскольку ты всё упростил, зачем тебе функция? Сразу пиши split.

[Sirik]

Вот мой код

Код: Выделить всё

Private Sub Command1_Click()
    Dim st() As String
    st = Split("Mic , Dupa", ",")
    MsgBox st(1)
    MsgBox st(2)
   
End Sub


Почему только "вытащить" можно 'Dupa'?

[GSerg]

Потому что с нуля массив индексируется.

[Sirik]

Всё,я разобрался: первый елемент массива 0!!!