Может кто-то знает, как из "ЕдиницаИзмерения" получить строку "Единица измерения". Так, как это делает 1с штатными механизмами.

метод РазбитьСоставноеСлитноеСлово()

(1) +100500

делов то на 10 минут

СтрЗаменить(ТРег("Единица измерения")," ","") --> ЕдиницаИзмерения

Я знаю, тебе нужно с тичностью наоборот,, но решил просто отметиться в теме.

(3) Да знаю, что не долго, мало ли кто-то недавно делал, 10 минут тоже сэкономить неплохо)

(5) Поздно, ты 7 уже потратил

(5) 7 минут на мисте ты уже потерял. :)))

(7) Ты 7 минут потерял

(8) - (5)

(6),(7) Поскольку осталось 3 минуты, а за 3 он не напишет, остается биться до последнего и ждать результата здесь (чтобы 7 минут не были потрачены зря)

(0) Ладно уж, помогу:
Если Стр = "ЕдиницаИзмерения" Тогда
  Стр = "Единица измерения";
КонецЕсли;

время вышло

в минус работы ушли

(0) Нужно искать все заглавные буквы и заменять их на пробел и маленькую букву.

(14) не нужно их искать

(14) там хитрее (у 1С)

(15) Иначе никак
(16) Там с некоторыми дополнениями и условиями.

(17) уверен? что иначе никак? за 5000 я тебе покажу как делается иначе и проще

regexp?)

(18) 5000 за такое не дам. Если понадобится, мне за 200 сделают более сложным способом чем даже я написал.

(19) как 1С делает, подскажу.

У реквизита есть имя "ЕдиницаИзмерения", а есть синоним "Единица измерения". Поэтому вам по уму надо взять синоним из метаданных этого реквизита.

Представление()

для метаданных

(21) ТС привел как пример и не факт что он по метаданным идет

(21) Ну млин а если синоним отсутствует? мало ли
(18) заинтриговал+)

(21) Оно не имеет метаданных

(26) Строка чёли?

(27) Да

(28) ну тогда элементарно: иди по тексту и меняй каждый большой символ на пробел+маленький символ. Детская задача, а ты уже почти час паришься.

(28) Циклом пройди по каждому символу в строке, и если символ заглавный, но меняй его на пробел+строчный

(30) у тя ошибка в алгоритме

хотя вру )

но надо проверить на две заглавные пордяд )

(30) и начинать надо со 2го символа

(33) а что тут не так? МетрыИКилограммы должны превратиться в "Метры и килограммы", исключений для 2 подряд заглавных нет.

(20) ну как тебе решение в (29)? без поиска

(29) Так он и не парится. Сидит с покорном и ждет, когда напишут.

(36) Что значит без поиска? условие на то, что заглавная и есть поиск при обходе..

(36) он это и имел ввиду

Всё спорите и спорите, а правильный ответ на (0) был ещё в (11) :))))

(40) Там не по феншую. По феншую должна быть еще
Иначе
ВызыватьИсключение "Такая строка не поддреживается"

тогда решение будет законченным

(41) Согласен, только вместо ВызватьИсключение я бы использовал ЗавершитьРаботуСистемы(Ложь) :)))

вход="МетрыИКилограммы";
   стр=Прав(вход,СтрДлина(вход)-1);
   разница=КодСимвола("а")-КодСимвола("А");
   Для с=КодСимвола("А") по КодСимвола("Я") цикл
       стр=СтрЗаменить(стр,Символ(с)," "+Символ(с+разница));
   КонецЦикла;
   стр=СокрЛП(стр);
   выход=Лев(вход,1)+стр;
   Сообщить(выход);

вход="МетрыИКилограммы";
   стр=Прав(вход,СтрДлина(вход)-1);
   разница=КодСимвола("а")-КодСимвола("А");
   Для с=КодСимвола("А") по КодСимвола("Я") цикл
       стр=СтрЗаменить(стр,Символ(с)," "+Символ(с+разница));
   КонецЦикла;
//    стр=СокрЛП(стр);
   выход=Лев(вход,1)+стр;
   Сообщить(выход);

оно лишнее :)

(44) Можно написать Гораздо лучше по методу из (29), код будет в 3 раза короче, при этом поддерживать также латиницу и знаки препинания. Слабо?

+(45) плюс грубо в 5-10 раз быстрее

(36) То же самое что я предложил. Это и было решение за 5000?

Для i=1 По СтрДлина(ТвояСтрока) Цикл
   ПроверяемыйСимвол = Сред(ТвояСтрока, i, 1);
   Если ПроверяемыйСимвол = ВРег(ПроверяемыйСимвол) Тогда
       СтрЗаменить(ПроверяемыйСимвол, " " + НРег(ПроверяемыйСимвол);    
   КонецЕсли;
КонецЦикла;

P.S. Не проверял =))

(48) +1, так по моему и надо

о надо в цикле еще i=i+1, тк на два символа меняем

Только потом СокрЛ () сделать

(49) После драки? кулаками? Дада, ты точно то же и имел в виду.

ТС кстати грац - дождался (ну почти)
Сейчас еще ошибки исправят, подрихтуют)

вход="ВМетрыИКилограммы";
   стр=Лев(вход,1);
   разница=КодСимвола("а")-КодСимвола("А");
   Для н=2 по СтрДлина(вход) цикл
       тек=КодСимвола(вход,н);
       Если (тек>=КодСимвола("А"))И(тек<=КодСимвола("Я")) Тогда
           стр=стр+" "+Символ(тек+разница);
       иначе
           стр=стр+Символ(тек);
       КонецЕсли;
   КонецЦикла;
   Сообщить(стр);

(52) В каком смысле дада? На самом деле, я именно это и говорил. Смотри (14)

i = 2;
Пока Сред(ТвояСтрока, i) <> "" Цикл
ПроверяемыйСимвол = Сред(ТвояСтрока, i, 1);
Если ПроверяемыйСимвол = ВРег(ПроверяемыйСимвол) Тогда
 СтрокаЗамены = " " + НРег(ПроверяемыйСимвол);
 ТвояСтрока = СтрЗаменить(ТвояСтрока, ПроверяемыйСимвол, СтрокаЗамены);    
КонецЕсли;
i = i + 1;
КонецЦикла;

(55) Неверно. КоличествоКолбасы => количество колбасы

(54) В том, что когда кто-то решит, сказать, "я хотел так же, я тоже умный, даже раньше".
В (14) - некая формализация условия из (0), а не предложение. Причем неточно сформулированное. Ничего "искать" не нужно. Впрочем, я думаю, мы с тобой на разных языках говорим.

(56) i=2 МБ???!!

+(55) хотя вообще не отработает по причине (50)

(56) Че ты врешь тестер=)))

(59) Не вводи людей в заблуждение.

(59) Я проверил=)

(47) поиск и перебор разные вещи если что

(60) Если в строке будут 2 одинаковые заглавные буквы и одна из них первая, то код заменит обе, что не по условию в (0). А вообще твой код в (55) не может работать

(58) ТвояСтрока = СтрЗаменить(ТвояСтрока, ПроверяемыйСимвол, СтрокаЗамены);  заменяет все вхождения подстроки, независимо от твоего i2

(65) Ладно, не проверял, ибо нах=)))

(66) ну и вдогонку: i = i + 1 надо внутрь условия добавить, чтоб вообще заработало

Можно и без программирования решить задачку... Добавить кнопку командной панели "ВМетрыИКилограммы", не указывая текст. Тогда в ее свойстве "Текст" будет значение "В метры и килограммы". :)

(67) Да тут кароче надо просто новую строку формировать, а не в старой пытаться заменить ибо (65)

Исходная="ВесИОбъемToBeOrNotToBe";
Конечная=Лев(Исходная,1);
Для Индекс=2 по СтрДлина(Исходная) цикл
   Символ=Сред(Исходная,Индекс,1);
   Конечная=Конечная+?(ВРег(Символ)=Символ," "+НРег(Символ),Символ);
КонецЦикла;

(чтоб за сотку не перевалило)

(71) гыгы, к 70 посту родили-таки работающее решение

(70) "ВПроизводныеИзСИ" -> "В производные из СИ" получится?

(57) Я не говорю что я "хотел" так же, я говорю что я предложил так же.
Как это ничего не нужно искать? А как ты определишь в какой позиции нужно заменять букву, телепатией чтоли? Я согласен с тобой в том что ты меня не понял.