Добрый вечер!

Может у кого есть функция разбивки строки между заданными символами. К примеру, надо разбить предложение на слова.

Заранее благодарен.

(0) если между 2 мя символами - то бредятину получишь ...

Ты о чем? Я ж говорю, типа предложения на слова.

Рекурсивная функция в пять-десять строк

(3)А слова то разные..)

Так ... Готов записывать.

Не у меня из 11 строк получилось.

Надо, например, разбить предложение (без грам. знаков) на составляющие его слова.

глРазложить() или глРазложитьСтроку() посмотри в любой типовой конфе

(6) Разбеймненасловаэтубредятинуеслиможешьконечно

Я это к чему. На VBA такое пишется легко. А вот в 1С не фига не выходит.

Процедура Слова(СписокСлов,Предложение)
Поз=найти(Предложение," ");
СписокСлов.ДобавитьЗначение(Сред(Предложение,1,Поз-1));
Предложение=СокрЛП(Предложение);
Слова(СписокСлов,Предложение);
КонецПроцедуры

// вызов
СписокСлов=СоздатьОбъект("СписокЗначений");
Слова(СписокСлов,СокрЛП(ПредложениеНачальное));
Для Ном=1 по СписокСлов.РазмерСписка() Цикл
Сообщить(СписокСлов.Получить(Ном));
КонецЦикла;

(9) ну не все же такую бредятину пишут

Это типа такого?
стр = СтрЗаменить(Источник," ",РазделительСтрок);

(7) Ха... про знаки препинания это ты вовремя ;))

Тогда ещё нужно добавить

СтрокаСимволов=" ,.!:;";

и вместо

Поз=найти(Предложение," ");

нужно найти любой из этих символов

СписокСлов = Новый СписокЗначений;
Вхождение = Найти(" ", Предложение);
Пока Вхождение > 0 Цикл
     Слово = Лев(Предложение, Вхождение - 1);
     СписокСлов.Добавить(Слово);
     Предложение = Прав(Предложение, СтрДлина(Предложение) - Вхождение);
     Вхождение = Найти(" ", Предложение);
КонецЦикла;
СписокСлов.Добавить(Предложение);

(13) прикольно....

(10) держите меня семь человек. Смешно. Скриптовый язык 1С - тот же ВБА.

Функция Split(Стр="",СимвПоиск=",") Экспорт
   Перем Значение;
   Стр=СтрЗаменить(Стр,СимвПоиск,РазделительСтрок);
   Сп=СоздатьОбъект("СписокЗначений");
   Для к=1 По СтрКоличествоСтрок(Стр) Цикл
       Значение=СтрПолучитьСтроку(Стр,к);
       Сп.Установить(""+Значение,Значение);
   КонецЦикла;
   Возврат Сп;
КонецФункции    // Split

Регулярные выражения доступны и в 1С...

На VBA это было бы так:
Public Sub Выделение_строк_между_символами(str1 As String, sym1 As String, el() As String, el_i)
' Нахождение массива строк el() (размером el_i), являющихся включениями в строку str1 между символами sym1
Dim inum()
   i = 1
   j = 1
   Do While i < Len(str1)
       If InStr(i, str1, sym1) <> 0 Then
           ReDim Preserve inum(j)
           inum(j) = InStr(i, str1, sym1)
           i = inum(j) + 1
           j = j + 1
       Else
           i = i + 1
       End If
   Loop
   
   el_i = j - 2
   For k = 1 To el_i
       ReDim Preserve el(k)
       el(k) = Mid(str1, inum(k) + 1, inum(k + 1) - inum(k) - 1)
MsgBox "-" & el(k) & "-"
   Next k
End Sub

А как это будет на 1С?

см. (15)

(20) Да, уж... В ВБА этт все просче даже...

+(22) ArrSLOV=split(stroka," ")

Может, так?

стр=СтрЗаменить(стр," ",""",""");
стр=""""+стр+"""";
сп.ИзСтрокиСРазделителями(стр);

(15) Не работает ...

(15) Я бы хотел на V7

(26) Вуаля:
СписокСлов = СоздатьОбъект("СписокЗначений");
Вхождение = Найти(" ", Предложение);
Пока Вхождение > 0 Цикл
     Слово = Лев(Предложение, Вхождение - 1);
     СписокСлов.Добавить(Слово);
     Предложение = Прав(Предложение, СтрДлина(Предложение) - Вхождение);
     Вхождение = Найти(" ", Предложение);
КонецЦикла;
СписокСлов.Добавить(Предложение);

(27) "Неправильно ты дядя Фёдор колбасу ешь" ©

Тогда уж

СписокСлов = СоздатьОбъект("СписокЗначений");
Вхождение = Найти(" ", Предложение);
Пока Вхождение > 0 Цикл
     Слово = Лев(Предложение, Вхождение - 1);
     СписокСлов.Добавить(Слово);
     Предложение = Прав(Предложение, СтрДлина(Предложение) - Вхождение);
     СписокСлов.Добавить(Предложение);
     Вхождение = Найти(" ", Предложение);
КонецЦикла;

Или так

СписокСлов.Добавить(Слово);

но опять же - со знаками припинания - попа

Андрюха - не умничай, все в (18)(тока установить на добавить сменить) и частный случай в (24) давно сьедено и выс...
Могу и короче код дать...И не только я...

СписокСлов = СоздатьОбъект("СписокЗначений");
   Предложение = "Ж БРЮКИ BASLER";
   Вхождение = Найти(" ", Предложение);
   Пока Вхождение > 0 Цикл
         Слово = Лев(Предложение, Вхождение - 1);
Сообщить(Слово);          
         СписокСлов.ДобавитьЗначение(Слово);
         Предложение = Прав(Предложение, СтрДлина(Предложение) - Вхождение);
         Вхождение = Найти(" ", Предложение);
   КонецЦикла;
   СписокСлов.ДобавитьЗначение(Предложение);

Вроде должно работать, попробуйте, но у меня не фиксирует ...

Я же чтобы человеку понятно было, ёлки-моталки

(32) Андрюха, спасибо тебе огромное! Понятно, как раз стало. Просто по факту не выходит.

(31) В смысле не фиксирует?

(20) неужели трудно этот код транслировать на 1С
Redim - на фиг.
InStr - Найти
Mid - Сред

Да не делит на три слова.

(32) Да я не против, пусть конечно...
(31) позырь (18) и (24)(тока это очень частный вариант)

(35) Кстати InStr и Найти гне совместимы ( см параметры)

(38) Ну дык надо совмещать!

Сложно что ли

(40) Вот пока ковыряюсь ... безуспешно ...

(18) Беспрекословно ... отработало.
Спасибо за функцию!

Всем СПАСИБА!

(42) Вот тебе один из самых идиотских вариантов
stroka="Ж БРЮКИ BASLER"
scr2=createobject("MSScriptControl.ScriptControl");
scr2.language="vbscript";
scr2.executestatement("a=split(""" & stroka & ""","" "")");
Сообщить(scr2.eval("a(1)"));

+(43) Поправочка
stroka="Ж БРЮКИ BASLER"
scr2=createobject("MSScriptControl.ScriptControl");
scr2.language="vbscript";
scr2.executestatement("a=split(""" + stroka + ""","" "")");
Сообщить(scr2.eval("a(1)"));