Разбить строку

[Mika_89]

Необходимо разбить строку на подстроки, т.е. например у меня имеется строка : "default/profiles/about"
надо получить 3 отдельных строки default, profiles, about
Подскажите пожалуйста с помощью каких функций Lotus Scripta можно это сделать?

[Alla Makshanova]

Функция split, она возвращает массив строк

Sub Initialize
   Dim ret As Variant
   dim teststr as string
   Dim delim As String
   teststr = "default/profiles/about"
   delim = "/"
   ret = split(teststr, delim)
   For x = 0 to 2
      Print ret(x)
   Next
End Sub