Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
18 апр 2024, 15:11

Как изменить прописные буквы в строчные?

Автор hort, 08 авг 2011, 19:25

0 Пользователей и 1 гость просматривают эту тему.

hort

Здравствуйте!
Скажите пожалуйста, есть ли в 1С какие-либо стандартные способы изменить регистр букв? Есть готовый справочник, но в нём все буквы прописные. Данные из справочника должны выводиться на печать. Можно, конечно, так и оставить, но хочется сделать красиво, А НЕ ТАК.
Единственное, что вижу пока - написать процедуру и один раз поменять все буквы в справочнике, типа если буква равна "А", то заменить её на "а", исключая первые буквы. Но, может быть, уже есть решение?
Заранее спасибо.
С уважением, Владимир.

sergejK74

Напиши свою функцию, которая будет возвращать наименование в нужном регистре.
Простейший пример не требующий наверное комментариев
Функция НормализоватьНаименование(Слово)
Результат = "";
Слово = СокрЛП(Слово);
ДлинаСлова =СтрДлина(Слово);
Результат = Врег(Лев(Слово,1))+Нрег(Прав(Слово,ДлинаСлова-1));
Возврат Результат;
КонецФункции

Наименование = " QWERTY ЙЦУКЕН";
Сообщить(НормализоватьНаименование(Наименование));
// Результат = Qwerty йцукен

Сделай на ее примере свою.
Кнопочка Спасибо - слева!

hort

Цитата: sergejK74 от 08 авг 2011, 21:05
Напиши свою функцию, которая будет возвращать наименование в нужном регистре.
Простейший пример не требующий наверное комментариев
Функция НормализоватьНаименование(Слово)
Результат = "";
Слово = СокрЛП(Слово);
ДлинаСлова =СтрДлина(Слово);
Результат = Врег(Лев(Слово,1))+Нрег(Прав(Слово,ДлинаСлова-1));
Возврат Результат;
КонецФункции

Наименование = " QWERTY ЙЦУКЕН";
Сообщить(НормализоватьНаименование(Наименование));
// Результат = Qwerty йцукен

Сделай на ее примере свою.
Вот, Нрег и Врег, то, что нужно! Большое спасибо за подробный пример!
Надо не лениться мануалы читать...  :nhsrm:

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск