День добрый!
Есть нечто подобное в стандарте (порылась - не нашла): есть строка, в ней несколько слов (может быть и одно), слова разделены - пробел, точка, тире и т. д. (то есть не только пробелом) - все слова в строке сделать с большой буквы.
Заранее спасибо.

несколько раз разложить строку в массив (с каждым разделителем).
сделать Врег на первый символ каждой подстроки и собрать обратно с разделителем.
повторить для каждого разделителя.

ну и сначала наверное Нрег для всей строки, если заранее неизвестно какие символы, и требуется чтобы только первая буква большая.

(0) Откуда у вас такие задачи-то берутся? :))
Ща до магазина схожу, если не решишь самостоятельно подсоблю кодом

(1) То есть стандарта нет?
(3) Ой! Я такая ... противная :)))

кисло-сладкий - одно слово?)

(5) Два. Должно получиться - Кисло-Сладкий.

(1) Я бы зашел не со стороны разделителей, а со стороны русских букв. Всё остальное можно считать разделителем.

(7) Хорошая идея...

регуляркой разбиваешь на слова и дальше всё просто

Кстати, а условие:
ВРег(Символ) = Нрег(Символ)
наверняка будет выдавать Истину только в случае небукв.

можно и примитив - цикл по символу и Врег

Примитив быстрее com-регулярки

(11) имхо кода будет больше чтобы ловить первый символ слова...

А в 8 есть )))

(9) Какой "регуляркой"?

(14) И что?

(12) ну не знаю, не проверял,  для большого текста, не знаю... мерить надо :)

(15) регулярными выражениями

(18) Через разделитель?

(17) У меня в проведении документа было. Перепроведение замедлялось хорошо так.

(19) Делай циклом. Дольше будешь изучать регулярки

(21) Мне очень нравится идея из (7). Кстати - спасибо :)

Пожалуйста

На вот на скорую руку:

ЭтоБуквы="абвгдеёжзийклмнопрстуфхцчшщьыъэюя";
    ДС=СтрДлина(МояСтрока);
    ГотоваяСтрока="";ПерваяБуква=0;
    Для Л=1 по ДС Цикл
        Символ=Сред(МояСтрока,Л,1);
        ПерваяБуква=?(Найти(ЭтоБуквы,Нрег(Символ))>0,ПерваяБуква+1,0);
        ГотоваяСтрока=ГотоваяСтрока+?(ПерваяБуква=1,Врег(Символ),Символ);
    КонецЦикла;

БольшаяБ = 1;  
     строкаитог = "";
    стр = СОКРЛП(СТР1);
        Для а=1 По Стрдлина(Стр) Цикл    
            тексимв = Лев(стр,а)  ;
            тексимв = Прав(тексимв,1);
          
            Если а=1 Тогда
            тексимв =    Врег( тексимв);
                БольшаяБ = 0;
                КонецЕсли;
                  
            Если    БольшаяБ = 1 Тогда          
                тексимв =    Врег( тексимв);
                БольшаяБ = 0;
                КонецЕсли;    
        
                 Сообщить(КодСимв(тексимв));
                Если ((КодСимв(тексимв) > 96) и (КодСимв(тексимв) < 123) ) Тогда  
                Иначе
                    БольшаяБ = 1;
                    КонецЕсли;
                
            строкаитог = строкаитог + тексимв;
        
            КонецЦикла;
            Сообщить( строкаитог);


(КодСимв(тексимв) < 123) сами коды надо исправить

(24) Одновременно

+ (24) Кстати, если нужно чтобы гарантировано заглавными были только первые буквы, то так:

ДС=СтрДлина(МояСтрока);
    ГотоваяСтрока="";ПерваяБуква=0;
    Для Л=1 по ДС Цикл
        Символ=Нрег(Сред(МояСтрока,Л,1));
        ПерваяБуква=?(Найти(ЭтоБуквы,Символ)>0,ПерваяБуква+1,0);
        ГотоваяСтрока=ГотоваяСтрока+?(ПерваяБуква=1,Врег(Символ),Символ);
    КонецЦикла;

Спасибо пацаны!
Чмоки не будет - я свой ваяю :)
Все равно - спасибо!!!!

(26) Ничего личного, но я бы за такой код руки бы оторвал, хотя... работает не трожь :)))))

Особенно порадовало:

тексимв = Лев(стр,а)  ;
тексимв = Прав(тексимв,1);

(28) Ну наваяешь - поделись, так сказать для расширения нашего кругозора :)

Кто первым напишет решение в одну строку?

(31) Ну барин, тут помощник нужен :))))

(30) Ага! Чтобы вы тут ... раскритиковали по полной программе?

(33) Чтобы мы порадовались и похвалили.

Я не могу найти - по какой таблице эска коды берет?
"р" = 238

(35) Слющяй, зачэм тебе эти коды-шмоды. Держи супер-разработку:
ВРег(Символ)=НРег(Символ)

(33) см. (34)  + привели его к (31)
(35) *не претендуя на уникальность* - а мой вариант не пробовала? Глядишь и с кодами возиться не надо будет...


Функция ПервыеБуквыВСловахСделатьЗаглавными(ИсходнаяСтрока)
    ПервыйСимвол = Лев(ИсходнаяСтрока, 1);
    Если ПервыйСимвол = "" Тогда
        Возврат "";
    ИначеЕсли Не ЭтоБуква(ИсходнаяСтрока) Тогда
        Возврат ПервыйСимвол + Врег(Сред(ИсходнаяСтрока,2,1)) + ПервыеБуквыВСловахСделатьЗаглавными(Сред(ИсходнаяСтрока,3));
    Иначе
        Возврат ПервыйСимвол + ПервыеБуквыВСловахСделатьЗаглавными(Сред(ИсходнаяСтрока,2));
    КонецЕсли;
КонецФункции


Проверьте кто-нибудь, а то проверить негде. Первый символ не делается заглавным (если вообще это работает).
Не судите строго, сегодня пятница ))

(36) Да видела я.
Попробую...

(35) там коды для латиницы!
для кирилицы >128

(37) Я не знаю как 31 сделать. Наверно, никак. Ну, разве что, не пользоваться Enter'ом при написании кода.

+ (36) кстати, да - сам не пробовал, но раз человек говорит, значит что-то в этом есть...

(38) Рекурсия рулит. Зачёт. Хз работает или нет.

(42) Я тоже не пробовал, но выглядит забавно

Всё... Голова квадратная... До понедельника...
Всем - спасибо и (уговорили) ЧМОКИ! :)))

Вау, как темка то развилась, уже и  с рекурсией примеры пошли...
Хотя то ли дело - пятница же :))))

(38) Эта строка такая должна быть


Возврат ПервыйСимвол + ПервыеБуквыВСловахСделатьЗаглавными(Врег(Сред(ИсходнаяСтрока,2,1)) + Сред(ИсходнаяСтрока,3));


+ (46)  Кстаааааааааааати а в нонешнем году пятничные темы отменились чтоль, а то с этими годовыми/квартальными что-то совсем не до этого было, а щас по поиску смотрю - последняя пятничная тема аж в начале января была, или меня уже глючит вместе с поиском???

(29) Наоборот, критика даже очень хорошо

Чем, конкретно не понравилось
И чем убило
тексимв = Лев(стр,а)  ;
            тексимв = Прав(тексимв,1);


PS да, я студент и в жизни рабочего никогда ничего не делал.
Поэтому я за критику что б дров не навалять

ОбщегоНазначения.СделатьПервыеБуквыВСловахЗаглавными()
)))

(48) кризис - пятницы сократили.

(49) Просто есть функция Сред(), которой можно заметить 2 этих оператора

(52) Знаешь, не знал спасибо.

(50) Кстати, есть функция:
СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивСлов()
в частных случаях может помочь

(49) Ну это хорошо, что так воспринимаешь. Я уж опосля нажатия Ctrl+Enter подумал - а не погорячился ли я?
Значит нет :)))
P.S. Все мы когда-то студентами были - это нормально, тем более профессионализм это такая штука, что чем больше ты познаешь, чем чаще тебе кажется, что ты нихрена не знаешь :)))

Давайте - критикуйте :(

    ДлинаСлова = СтрДлина(мСтрока);
    мСтрока = НРег(мСтрока);
    // первый символ - всегда заглавная
    ПервыйСимвол = Сред(мСтрока, 1, 1);
    мНоваяСтрока = Врег(ПервыйСимвол);
    
    Для й = 2 По ДлинаСлова Цикл
        ТекСимвол = Сред(мСтрока, й, 1);
        СледСимвол = Сред(мСтрока, й + 1, 1);
        Буква = ?(врег(ТекСимвол) = нрег(ТекСимвол),1,0);

        Если (Буква = 1) Тогда
            мНоваяСтрока = мНоваяСтрока + ТекСимвол + Врег(СледСимвол);
            й = й + 1;
        Иначе
            мНоваяСтрока = мНоваяСтрока + ТекСимвол;
        КонецЕсли;
    КонецЦикла;

    Возврат мНоваяСтрока;

(10) неа, есть грузинский алфавит

(57) Слюшай, дарагой! (с) Мы же не в Грузии :)

(56) Согласно заданию, надо сделать "Первые буквы в словах сделать заглавными", про нижний регистр ничего не сказано.

Для ".иванов" не работает...

(59) "." первой в строке быть не может.

список или строка, после которых нужно балшую букву.
и поехали по исходной строке

список или строка, после которых нужно балшую букву.

список или строка символов, после которых нужно балшую букву.

В типовой 77 вроде бы есть функция глРазделить, на выходе сз
Дальше к каждому элементу врег(лев(слово, 1)) + нрег(сред(слово,2))

вместо глРазделить можно заменить пробелы на РазделительСтроки, а потом обходить многострочную строку, использую функции СтрКоличество и СтрПолучить

Пусть так


    с = "";
    СловоНачалось = Ложь;
    Для ч = 1 По СтрДлина(ИсходнаяСтрока) Цикл
        Символ = Сред(ИсходнаяСтрока, ч, 1);
        ЭтоБуква = ВРег(Символ) <> НРег(Символ);
        Если Не СловоНачалось и ЭтоБуква Тогда
            СловоНачалось = Истина;
            Символ = Врег(Символ);
        ИначеЕсли Не ЭтоБуква Тогда
            СловоНачалось = Ложь;
        КонецЕсли;
        с = с + Символ;
    КонецЦикла;
    
    Сообщить(с, СтатусСообщения.Информация);


Результ = "";
Для Сч = 1 По СтрДлина(ИсходнаяСтрока) Цикл
    Результ = Результ + ?(Сч = 1 ИЛИ Сред(ИсходнаяСтрока, Сч-1,1) = " ", ВРЕГ(Сред(ИсходнаяСтрока, Сч,1)), Сред(ИсходнаяСтрока, Сч,1))
КонецЦикла;

(65) Хрень же.. если разделитель не пробел ?
А Бахши-Заде ?

(66)
Если не пробел, то условие Сред(ИсходнаяСтрока, Сч-1,1) = " " меняется на Найти(" ;,.?-", Сред(ИсходнаяСтрока, Сч-1,1)) >0

(64) Плюет в душу... :(
Истина, ложь - "это ж бубль-гум" (С) (в смысле семерка).
Ну, и "ЭтоБуква = ВРег(Символ) <> НРег(Символ)" - тоже не работает. :(
(67) Издеваешься?!

(68)
В смысле?
Ты не в курсе, какие могут быть разделители?

Результ = "";
Для Сч = 1 По СтрДлина(ИсходнаяСтрока) Цикл
    Результ = Результ + ?(Сч = 1 ИЛИ Найти(" ;,.?-", Сред(ИсходнаяСтрока, Сч-1,1)) >0, ВРЕГ(Сред(ИсходнаяСтрока, Сч,1)), Сред(ИсходнаяСтрока, Сч,1))
КонецЦикла;

(69) Не-а.

(70)
Строка пра?5кадр как должна в результате выглядеть?

ТРег(<Строка>)  не предлагать?

Если "слова" - это исключительно буквы, тогда
Результ = "";
Для Сч = 1 По СтрДлина(ИсходнаяСтрока) Цикл
    Результ = Результ + ?(Сч = 1 ИЛИ Найти("абвгдеёжзийклмнопрстуфкцчшщэюя", Нрег(Сред(ИсходнаяСтрока, Сч-1,1))) =0, ВРЕГ(Сред(ИсходнаяСтрока, Сч,1)), Сред(ИсходнаяСтрока, Сч,1))
КонецЦикла;

(71) Пра?5Кадр
(72) Нет :)
(73) "Не исключительно" буквы.

(74)
А что кроме букв?
На каком примере тебе код из (73) (это кстати аналог ТРЕГ) не подходит

пля ну список разделителей возможных
пошли по символам по исходной строке
если очередной символ в исх строке входит в список возможных разделителей, то следующий символ ВРЕГ

возможных разделителей могет сколько хочешь

(76)
Да вот пытаюсь то же самое донести. Но мне говорят, что бред

(68) Млин а мой код из (24) не работает чтоль?
Как и писал в (3) - с магазина пришел - накидал, а проверять лень было, но по идее работать то должно...
Или (28) принципиально? Т.е. спросить спрошу, но делать буду сама

(79) Я же говорила, что я "противная" ;)))))
Всегда интересно - сделай сам (С)

(80) Ну мучайся, чо :)))
Но может все-таки проверишь, заодно и моё самолюбие потешится вдруг ;)

(81) Мда... А ты - противнее меня :)))
Завтра - попробую.

Нее я просто немного настойчивый...:))) ну или неугомонный, там уж кому как больше нравится ;)

Цикл перебрать все разделители
Цикл перебрать все буквы алфавита
                .. опять В исходной строке заменить (разделитель+БОЛЬШАЯ БУКВА) на (разделитель+маленькая буква)
Конец Цикла
Конец Цикла

// при количестве разделителей 10, а букв 31  = 310 раз операция замены, т.е. эффективно использовать, только при строках более 300 символов - "больших строках".

(83) Сам себя не похвалишь... (С)
Работает :))