Функция Преобразование строки без пробелов (СтрокаБезПробелов)

15.08.13

Разработка - Универсальные функции

Функция ПреобразованиеСтрокиБезПробелов в Строку с пробелами с разделением по Заглавным буквам. ОКОНЧАТЕЛЬНАЯ ВЕРСИЯ! Теперь с воможностью добавления исключений, которые не надо преобразовывать в нижний регистр (НДС, ГТД...). Вы можете добавить свои исключения в массив исключений. В строке без пробелов может быть неорганиченное количество РАЗНЫХ Исключений (если, нпример, НДС повторяется в строке 2 раза функция преобразует вторую НДС в нижний регистр).

Скачать файлы

Наименование Файл Версия Размер
Функция ПреобразованиеСтрокиБезПробелов(СтрокаБезПробелов)-final.txt
.txt 2,00Kb
7
.txt 2,00Kb 7 Скачать

Эта функция будет полезна при создании элементов формы программно.

 

Например, нужно при открытии обработки в какой-либо конфигурации создать в форме обработки элементы всех реквизитов справочника "Номенклатура". Названия реквизитов справочника указаны строками без пробелов, а в форме хотелось бы видеть заголовки элементов "нормально" с пробелами.

Не реализована ещё в этой функции проблема исключений. таких , как например, НДС или ГТД, которые не надо преобразовывать в нижний регистр. Позже доработаю.

/////////////////////////

&НаСервере
Функция ПреобразованиеСтрокиБезПробелов(СтрокаБезПробелов)
 
 СтрокаСПробелами = Лев(СтрокаБезПробелов,1);
 
 Для к = 2 По СтрДлина(СтрокаБезПробелов) Цикл
  ТекущийЗнак = Сред(СтрокаБезПробелов,к,1);
  КодСимвола = КодСимвола(ТекущийЗнак);
  Если (КодСимвола > 64 И КодСимвола < 91) Или (КодСимвола > 1039 И КодСимвола < 1072)  Тогда
   СтрокаСПробелами = СтрокаСПробелами + " " + НРег(ТекущийЗнак);
  Иначе
   СтрокаСПробелами = СтрокаСПробелами + ТекущийЗнак;
  КонецЕсли;
  
 КонецЦикла;
 
 Возврат  СтрокаСПробелами;
 
КонецФункции 

&НаСервере
Процедура ДобавитьЭлемент()
 
 РеквизитыНоменклатуры = Метаданные.Справочники.Номенклатура.Реквизиты;
 КоличествоРеквизитов = РеквизитыНоменклатуры.Количество();
 мРекв = Новый Массив;
 
 Для Каждого РеквизитНоменклатуры Из РеквизитыНоменклатуры Цикл
  РеквизитИмя = РеквизитНоменклатуры.Имя;
  РевизитТип = РеквизитНоменклатуры.Тип;
  НовыйРеквизит = Новый РеквизитФормы(РеквизитИмя,РевизитТип,,РеквизитИмя);
  мРекв.Добавить(НовыйРеквизит);
  КонецЕсли;
 КонецЦикла;
 
 ЭтаФорма.ИзменитьРеквизиты(мРекв);
 
 Для каждого Элемент Из мРекв Цикл
   НовыйЭлемент = Элементы.Добавить("Поле"+Элемент.Имя,Тип("ПолеФормы"), Элементы.Группа);
   НовыйЭлемент.Вид = ВидПоляФормы.ПолеВвода; 
   НовыйЭлемент.ПутьКДанным = Элемент.Имя;
   НовыйЭлемент.Доступность = Истина;
   НовыйЭлемент.Заголовок = ПреобразованиеСтрокиБезПробелов(Элемент.Имя);

 КонецЦикла;
 
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
 
  ДобавитьЭлемент();


КонецПроцедуры

 ////////////////////////

 

См. также

Вставляем картинку из буфера обмена (платформа 1С 8.3.24)

Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024    2684    1    John_d    8    

55

GUID в 1С 8.3 - как с ними быть

Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024    4620    atdonya    22    

45

Переоткрытие внешних обработок

Универсальные функции Платформа 1С v8.3 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023    3965    ke.92@mail.ru    16    

61

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023    8850    YA_418728146    6    

141

Печать непроведенных документов для УТ, КА, ERP. Настройка печати по пользователям, документам и печатным формам

Пакетная печать Печатные формы Адаптация типовых решений Универсальные функции Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

Расширение для программ 1С:Управление торговлей, 1С:Комплексная автоматизация, 1С:ERP, которое позволяет распечатывать печатные формы для непроведенных документов. Можно настроить, каким пользователям, какие конкретные формы документов разрешено печатать без проведения документа.

2 стартмани

22.08.2023    2078    21    progmaster    7    

3

Расширение: Быстрые отборы через буфер [Alt+C] Копировать список, [Alt+V] Вставить список, [Ctrl+C] Копировать из файлов

Инструментарий разработчика Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 1С:Розница 2 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Абонемент ($m)

Копирует в буфер значения из списков, из ячеек отчетов, таблиц, настроек списков, других отборов и вставляет в выбранную настройку отбора. Работает с Объект не найден. Работает как в одной так и между разными базами 1С. Использует комбинации [Alt+C] Копировать список, [Alt+V] Вставить список. Также для копирования данных используется стандартная [Ctrl+C] (например из открытого xls, mxl, doc и т.п. файла скопировать список наименований)

1 стартмани

13.10.2022    16157    133    sapervodichka    112    

129

Система контроля ведения учета [БСП]

Универсальные функции Механизмы типовых конфигураций БСП (Библиотека стандартных подсистем) Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

В данном материале рассмотрим типовой алгоритм подсистемы контроля учета БСП в конфигурациях на примерах.

18.07.2022    7244    quazare    8    

109
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. v.l. 434 13.08.13 06:22 Сейчас в теме
2. vovant 42 13.08.13 09:54 Сейчас в теме
Здравствуйте!

Спасибо за Ваше мнение. Интересно было посмотреть другие варианты.

Эту функцию я писал не видя до этого других вариантов. Писал обработку загрузки справочника Номенклатуры из Excel, захотелось преобразовать наименования. Вот так через две попытки пришел к окончательной версии.
3. nick-max 249 13.08.13 16:17 Сейчас в теме
проверьте вашу обработку на строках:

ТипДокументовРасчета
Сумма
ДокументыДляЕНВД
СуммаСНДС
СуммаБезНДС
ДляФНСЗаКвартал
ПФРДляОтчетности
суммаВзноса
ПередачаВПФР
ПередачаВ_ПФР
Отчет3НДФЛ
КнигаПокупок1137
4. vovant 42 13.08.13 16:52 Сейчас в теме
Добавьте свои исключения!

мИсключения = Новый Массив(); //Добавьте свои исключения
мИсключения.Добавить("НДС");
мИсключения.Добавить("ГТД");
мИсключения.Добавить("HTML");
мИсключения.Добавить("XML");
мИсключения.Добавить("ЕНВД");
мИсключения.Добавить("ФНС");
мИсключения.Добавить("ПФР");
мИсключения.Добавить("3НДФЛ");

----------------------------- получается так:

ТипДокументовРасчета [ b] тип документов расчета
Сумма Сумма
ДокументыДляЕНВД Документы для ЕНВД
СуммаСНДС Сумма с НДС
СуммаБезНДС Сумма без НДС
ДляФНСЗаКвартал Для ФНС за квартал
ПФРДляОтчетности ПФР для отчетности
суммаВзноса сумма взноса
ПередачаВПФР Передача в ПФР
ПередачаВ_ПФР Передача в_ ПФР
Отчет3НДФЛ Отчет 3НДФЛ
КнигаПокупок1137
Книга покупок1137[/ b]
5. e-rogov 10 23.02.23 19:39 Сейчас в теме
немного проще

//&НаКлиентеНаСервереБезКонтекста
Функция СтрРазделитьПоЗаглавнымБуквам(СтрокаБезПробелов) Экспорт // ПреобразованиеСтрокиБезПробелов
	МассБукофф = Новый Массив();
	Для НомБукфы = 1 По СтрДлина(СтрокаБезПробелов) Цикл
		ЗнчБукфы = Сред(СтрокаБезПробелов, НомБукфы, 1);
		Если ЗнчБукфы = ТРег(ЗнчБукфы) И МассБукофф.Количество() И МассБукофф[МассБукофф.ВГраница()] <> ВРег(МассБукофф[МассБукофф.ВГраница()]) Тогда
			МассБукофф.Добавить(" ");
		КонецЕсли;
		МассБукофф.Добавить(ЗнчБукфы);
	КонецЦикла;
	Возврат СтрЗаменить(СтрСоединить(МассБукофф, ""), "  ", " ");
КонецФункции // СтрРазделитьПоЗаглавнымБуквам
Показать
Оставьте свое сообщение