#Область ПрограммныйИнтерфейс
// Функция - Сообщение HTML
// Заголовок - Строка - Строка, которая будет отображаться в шапке письма крупным шрифтом
// МассивБлоковHTMLСообщения - Массив Из Строка - Массив строк, сформированных функциями "БлокHMTLСообщения_..."
// ПараметрыОформления - Структура - см. ПараметрыОформленияHTMLСообщения. Если неопределено создаются параметры по умолчанию
// БлокОбъектов = Новый Массив;
// БлокОбъектов.Добавить(ОбработкаОбъект.БлокHTMLСообщения_Абзац("Скажи-ка, дядя, ведь<>%$"""" ' недаром, Москва..." + Символы.ПС + "tot;ladkflasdhkf;as"));
// // Абзац с гиперссылкой
// ПараметрыГиперссылки = Новый Соответствие;
// ПараметрыГиперссылки.Вставить("с гиперссылкой", "https://www.google.com");
// ПараметрыГиперссылки.Вставить("еще одной", "https://www.google.com");
// БлокОбъектов.Добавить(ОбработкаОбъект.БлокHTMLСообщения_АбзацСГиперссылками("Абзацы можно добавлять [с гиперссылкой] и, если хочется, [еще одной]. Количество не ограничено", ПараметрыГиперссылки));
// БлокОбъектов.Добавить(ОбработкаОбъект.БлокHTMLСообщения_Абзац("Так будет выглядеть список. Формируется из массива"));
// МассивПунктов = Новый Массив;
// МассивПунктов.Добавить("Пункт 1");
// МассивПунктов.Добавить("Пункт 2");
// МассивПодпунктов = Новый Массив;
// МассивПодпунктов.Добавить("Подпункт 1");
// МассивПодпунктов.Добавить("Подпункт 2");
// МассивПодпунктов1 = Новый Массив;
// МассивПодпунктов1.Добавить("Подпункт 1");
// МассивПодпунктов1.Добавить("Подпункт 2");
// МассивПодпунктов.Добавить(МассивПодпунктов1);
// МассивПунктов.Добавить(МассивПодпунктов);
// МассивПунктов.Добавить("Пункт 3");
// БлокОбъектов.Добавить(ОбработкаОбъект.БлокHTMLСообщения_СписокНенумерованный(МассивПунктов));
// // В результате такая структура
// ТЗ = Новый ТаблицаЗначений;
// ТЗ.Колонки.Добавить("НомерПоПорядку", , "№", 5); // ширину задаем, если нужна разная ширина колонок
// ТЗ.Колонки.Добавить("Номенклатура");
// ТЗ.Колонки.Добавить("Характеристика");
// ТЗ.Колонки.Добавить("Количество", , "Кол-во" , 10);
// НоваяСтрока = ТЗ.Добавить();
// НоваяСтрока.НомерПоПорядку = "1";
// НоваяСтрока.Номенклатура = "Номенклатура 1";
// НоваяСтрока.Характеристика = "";
// НоваяСтрока.Количество = 10;
// НоваяСтрока = ТЗ.Добавить();
// НоваяСтрока.НомерПоПорядку = "2";
// НоваяСтрока.Номенклатура = "Номенклатура 2";
// НоваяСтрока.Характеристика = "с характеристикой";
// НоваяСтрока.Количество = "15";
// БлокОбъектов.Добавить(ОбработкаОбъект.БлокHTMLСообщения_Таблица(ТЗ));
// БлокОбъектов.Добавить(ОбработкаОбъект.БлокHTMLСообщения_Цитата("Это цитата"));
// Результат = ОбработкаОбъект.СообщениеHTML("Добрый день", БлокОбъектов);
// Возвращаемое значение:
// Строка - сообщение, оформленное в HTML
Функция СообщениеHTML(Заголовок, МассивБлоковHTMLСообщения, ПараметрыОформления = Неопределено) Экспорт
Шаблон = ШаблонHTMLСообщения(ПараметрыОформления);
ПараметрыЗаполнения = Новый Структура("ТелоСообщения", СтрСоединить(МассивБлоковHTMLСообщения, Символы.ПС));
ПараметрыЗаполнения.Вставить("Заголовок", НормализованныйТекстДляHTML(Заголовок));
Результат = СтроковыеФункцииКлиентСервер.ВставитьПараметрыВСтроку(Шаблон, ПараметрыЗаполнения);
// Функция - Параметры оформления HTMLСообщения. Содержит значения плейсхолдеров инлайновых стилей CSS в шаблоне.
// Обязательны все для формирования работы метода СообщениеHTML.
// Возвращаемое значение:
// ТелоЦветЗаднегоФона - Строка - background. По умолчанию "rgb(245, 245, 245)"
// ТелоШрифт - Строка - font-family. По умолчанию "Arial, sans-serif"
// АбзацВнутреннийОтступ - Строка - padding. По умолчанию "2px"
// АбзацРазмерШрифта - Строка - font-size. По умолчанию "14px"
// АбзацМежстрочныйИнтервал - Строка - line-height. По умолчанию "1.6"
// АбзацЦветТекста - Строка - color. По умолчанию "rgb(51, 51, 51)"
// АбзацВнешнийОтступ - Строка - margin. По умолчанию "5px"
// КонтейнерВнешнийОтступ - Строка - margin. По умолчанию "40px"
// КонтейнерЦветФона - Строка - background. По умолчанию "rgb(255, 255, 255)"
// КонтейнерВнутреннийОтступ - Строка - padding. По умолчанию "20px"
// КонтейнерСкругление - Строка - border-radius. По умолчанию "6px"
// КонтейнерТень - Строка - box-shadow. По умолчанию "0 2px 4px rgba(0, 0, 0, 0.1)"
// ЗаголовокЦветТекста - Строка - color. По умолчанию "rgb(118, 34, 40)"
// ЗаголовокВнутреннийОтступ - Строка - padding. По умолчанию "0px"
// ЗаголовокВнешнийОтступ - Строка - margin. По умолчанию "10px"
// КонтентШирина - Строка - width. По умолчанию "1000"
// КонтентВнутреннийОтступ - Строка - padding. По умолчанию "5px"
// КонтентРазмерШрифта - Строка - font-size. По умолчанию "14px"
// КонтентМежстрочныйИнтервал - Строка - line-height. По умолчанию "1.6"
// КонтентЦветТекста - Строка - color. По умолчанию "rgb(51, 51, 51)"
// ТаблицаШирина - Строка - width. По умолчанию "960". ВНИМАНИЕ, Всегда указывайте как строковое представление числа, без "px, em" и пр.
// ТаблицаВнешнийОтступ - Строка - margin. По умолчанию "10px"
// ЯчейкаГраница - Строка - border. По умолчанию "1px solid rgb(204, 204, 204)"
// ТаблицаЦветФонаЗаголовка - Строка - background. По умолчанию "rgb(230, 230, 230)"
// ТаблицаЦветТекстаЗаголовка - Строка - color. По умолчанию "rgb(118, 34, 40)"
// СсылкаЦветТекста - Строка - color. По умолчанию "rgb(118, 34, 40)"
// СсылкаЦветФона - Строка - background. По умолчанию "rgb(249, 249, 249)"
// ЦитатаВнутреннийОтступ - Строка - padding. По умолчанию "10px"
// ЦитатаЦветФона - Строка - background. По умолчанию "rgb(249, 249, 249)"
// ЦитатаГраницаСлева - Строка - border-left. По умолчанию "4px solid rgb(118, 34, 40)"
// ПодвалОтступСверху - Строка - padding-top. По умолчанию "20px"
// ПодвалРазмерШрифта - Строка - font-size. По умолчанию "11px"
// ПодвалЦветТекста - Строка - color. По умолчанию "rgb(119, 119, 119)"
Функция ПараметрыОформленияHTMLСообщения() Экспорт
ПараметрыОформления = Новый Структура;
ПараметрыОформления.Вставить("ТелоЦветЗаднегоФона", "rgb(245, 245, 245)");
ПараметрыОформления.Вставить("ТелоШрифт", "Arial, sans-serif");
ПараметрыОформления.Вставить("АбзацВнутреннийОтступ", "2px");
ПараметрыОформления.Вставить("АбзацРазмерШрифта", "14px");
ПараметрыОформления.Вставить("АбзацМежстрочныйИнтервал", "1.6");
ПараметрыОформления.Вставить("АбзацЦветТекста", "rgb(51, 51, 51)");
ПараметрыОформления.Вставить("АбзацВнешнийОтступ", "5px");
ПараметрыОформления.Вставить("КонтейнерВнешнийОтступ", "40px");
ПараметрыОформления.Вставить("КонтейнерЦветФона", "rgb(255, 255, 255)");
ПараметрыОформления.Вставить("КонтейнерВнутреннийОтступ", "20px");
ПараметрыОформления.Вставить("КонтейнерСкругление", "6px");
ПараметрыОформления.Вставить("КонтейнерТень", "0 2px 4px rgba(0, 0, 0, 0.1)");
ПараметрыОформления.Вставить("ЗаголовокЦветТекста", "rgb(118, 34, 40)");
ПараметрыОформления.Вставить("ЗаголовокВнутреннийОтступ", "0px");
ПараметрыОформления.Вставить("ЗаголовокВнешнийОтступ", "10px");
ПараметрыОформления.Вставить("КонтентШирина", "1000");
ПараметрыОформления.Вставить("КонтентВнутреннийОтступ", "5px");
ПараметрыОформления.Вставить("КонтентРазмерШрифта", "14px");
ПараметрыОформления.Вставить("КонтентМежстрочныйИнтервал", "1.6");
ПараметрыОформления.Вставить("КонтентЦветТекста", "rgb(51, 51, 51)");
ПараметрыОформления.Вставить("ТаблицаШирина", "960");
ПараметрыОформления.Вставить("ТаблицаВнешнийОтступ", "10px auto");
ПараметрыОформления.Вставить("ЯчейкаГраница", "1px solid rgb(204, 204, 204)");
ПараметрыОформления.Вставить("ТаблицаЦветФонаЗаголовка", "rgb(230, 230, 230)");
ПараметрыОформления.Вставить("ТаблицаЦветТекстаЗаголовка", "rgb(118, 34, 40)");
ПараметрыОформления.Вставить("СсылкаЦветТекста", "rgb(118, 34, 40)");
ПараметрыОформления.Вставить("СсылкаЦветФона", "rgb(249, 249, 249)");
ПараметрыОформления.Вставить("ЦитатаВнутреннийОтступ", "10px");
ПараметрыОформления.Вставить("ЦитатаЦветФона", "rgb(249, 249, 249)");
ПараметрыОформления.Вставить("ЦитатаГраницаСлева", "4px solid rgb(118, 34, 40)");
ПараметрыОформления.Вставить("ПодвалОтступСверху", "20px");
ПараметрыОформления.Вставить("ПодвалРазмерШрифта", "11px");
ПараметрыОформления.Вставить("ПодвалЦветТекста", "rgb(119, 119, 119)");
Возврат ПараметрыОформления;
// Функция - Блок HTMLСообщения заголовок
// ТекстЗаголовка - Строка - Текст, выводимый в блоке
// Уровень - Число - уровень заголовка от 1 до 6. Рекомендуется использовать от 2 до 4.
// ПараметрыОформления - Структура - см. ПараметрыОформленияHTMLСообщения
// Возвращаемое значение:
// Строка - Блок вида <h1...></h...>
Функция БлокHTMLСообщения_Заголовок(ТекстЗаголовка, Уровень = 2, ПараметрыОформления = Неопределено) Экспорт
Если ПараметрыОформления = Неопределено Тогда
ПараметрыОформления = ПараметрыОформленияHTMLСообщения();
Если Уровень < 1 Или Уровень > 6 Тогда
ШаблонЗаголовка = "<h%1 style=""margin: [ЗаголовокВнешнийОтступ]; padding: [ЗаголовокВнутреннийОтступ]; font-family: [ТелоШрифт]; color: [ЗаголовокЦветТекста]"">%2</h%1>
Результат = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонЗаголовка,
Формат(Уровень, "ЧДЦ=0; ЧГ="),
НормализованныйТекстДляHTML(ТекстЗаголовка));
Возврат СтроковыеФункцииКлиентСервер.ВставитьПараметрыВСтроку(Результат, ПараметрыОформления);
// Функция - Блок HTMLСообщения абзац
// ТекстАбзаца - Строка - Текст, который будет выведен в абзаце
// ПараметрыОформления - Структура, Неопределено - см. ПараметрыОформленияHTMLСообщения().
// Нормализовать - Булево - Служебный, определяет необходимость экранирования спец.символов
// Возвращаемое значение:
// Строка - Блок вида <p style="">Текст</p>
Функция БлокHTMLСообщения_Абзац(ТекстАбзаца, ПараметрыОформления = Неопределено, Нормализовать = Истина) Экспорт
Если ПараметрыОформления = Неопределено Тогда
ПараметрыОформления = ПараметрыОформленияHTMLСообщения();
Результат = СтрШаблон("<p style=""margin: [АбзацВнешнийОтступ]; font-family: [ТелоШрифт]; padding: [АбзацВнутреннийОтступ]; font-size: [АбзацРазмерШрифта]; line-height: [АбзацМежстрочныйИнтервал]; color: [АбзацЦветТекста];"">%1</p>
?(Нормализовать, НормализованныйТекстДляHTML(ТекстАбзаца), ТекстАбзаца));
Возврат СтроковыеФункцииКлиентСервер.ВставитьПараметрыВСтроку(Результат, ПараметрыОформления);
// Функция - Абзац сообщения с гиперссылками
// ШаблонАбзаца - Строка - Шаблон вида "Нажмите [на эту ссылку], чтобы узнать больше". [на эту ссылку] - ключ соответствия СписокСсылок
// СписокСсылок - Соответствие -
// * Ключ - Строка - представление ссылки в письме. Т.е. ключ "на эту ссылку" заменит строку "[на эту ссылку]" в шаблоне
// * Значение - Строка - ссылка для вставки
// ПараметрыОформления - Структура, Неопределено - см. ПараметрыОформленияHTMLСообщения(). Если неопределено создаются параметры по умолчанию
// Возвращаемое значение:
// Строка - Блок вида <p style="">Текст до ссылки <a href="Ссылка" style="">Представление ссылки</a> Текст после ссылки</p>
Функция БлокHTMLСообщения_АбзацСГиперссылками(Знач ШаблонАбзаца, СписокСсылок, ПараметрыОформления = Неопределено) Экспорт
Если ПараметрыОформления = Неопределено Тогда
ПараметрыОформления = ПараметрыОформленияHTMLСообщения();
ШаблонАбзаца = НормализованныйТекстДляHTML(ШаблонАбзаца);
Для Каждого КлючЗначение Из СписокСсылок Цикл
Ключ = КлючЗначение.Ключ;
Значение = КлючЗначение.Значение;
СсылкаДляВставки = СтрШаблон("<a href=""%1"" style=""font-family: [ТелоШрифт]; color: [СсылкаЦветТекста]; background: [СсылкаЦветФона]; text-decoration: underline; padding: [КонтентВнутреннийОтступ]; font-size: [КонтентРазмерШрифта]; line-height: [КонтентМежстрочныйИнтервал];"">%2</a>",
ШаблонАбзаца = СтрЗаменить(ШаблонАбзаца,
СтроковыеФункцииКлиентСервер.ВставитьПараметрыВСтроку(СсылкаДляВставки, ПараметрыОформления));
Возврат БлокHTMLСообщения_Абзац(ШаблонАбзаца, ПараметрыОформления, Ложь);
// Функция - Список ненумерованный
// МассивЗначений - Массив Из Строка, Массив Из Массив - Список элементов. Если нужен иерархический список, то добавляем не строку, а новый массив строк
// Например, для массива [Привет, Вася, Как, Дела] будет сформирован список
// Если в этом массиве будет еще один, то список получится иерархический, Например
// для массива [Привет, Вася, Как, Дела, [Все, Хорошо]]
// Возвращаемое значение:
Функция БлокHTMLСообщения_СписокНенумерованный(МассивЗначений, ПараметрыОформления = Неопределено) Экспорт
Если ПараметрыОформления = Неопределено Тогда
ПараметрыОформления = ПараметрыОформленияHTMLСообщения();
СформироватьСписокНенумерованныйHTMLРекурсивно(МассивЗначений, Текст, ПараметрыОформления);
Возврат СтроковыеФункцииКлиентСервер.ВставитьПараметрыВСтроку(Текст, ПараметрыОформления);
// Функция - Блок HTMLСообщения цитата
// ТекстЦитаты - Строка - Выводимый текст
// ПараметрыОформления - Структура, Неопределено - см. ПараметрыОформленияHTMLСообщения(). Если неопределено создаются параметры по умолчанию
// Возвращаемое значение:
// Строка - Блок, оформленный в виде цитаты
Функция БлокHTMLСообщения_Цитата(ТекстЦитаты, ПараметрыОформления = Неопределено) Экспорт
Если ПараметрыОформления = Неопределено Тогда
ПараметрыОформления = ПараметрыОформленияHTMLСообщения();
Шаблон = "<table width=""100%"" cellpadding=""0"" cellspacing=""0"" border=""0"">
| <td style=""font-family: [ТелоШрифт]; padding: [ЦитатаВнутреннийОтступ]; background: [ЦитатаЦветФона]; border-left: [ЦитатаГраницаСлева]; font-style: italic;"">
Результат = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(Шаблон, НормализованныйТекстДляHTML(ТекстЦитаты));
Возврат СтроковыеФункцииКлиентСервер.ВставитьПараметрыВСтроку(Результат, ПараметрыОформления);
// Функция - Блок HTMLСообщения таблица
// ТаблицаЗначений - ТаблицаЗначений - Выводимая таблица. Если не заполнен заголовок, в шапке будет выведено имя,
// если не заполнена ширина, то устанавливается ширина по умолчанию
// Возвращаемое значение:
// Строка - Таблица в HTML
Функция БлокHTMLСообщения_Таблица(ТаблицаЗначений, ПараметрыОформления = Неопределено) Экспорт
Если ПараметрыОформления = Неопределено Тогда
ПараметрыОформления = ПараметрыОформленияHTMLСообщения();
ОбщаяШиринаТаблицыСтрокой = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(ПараметрыОформления, "ТаблицаШирина", "960");
ОбщаяШиринаТаблицы = Число(ОбщаяШиринаТаблицыСтрокой);
ЗначениеШириныКолонок = АбсолютнаяШиринаКолонок(ТаблицаЗначений, ОбщаяШиринаТаблицы);
// Устанавливаем абсолютные значения ширины колонок
Для Каждого ЗначениеШирины Из ЗначениеШириныКолонок Цикл
ТаблицаЗначений.Колонки[ЗначениеШирины.Колонка].Ширина = ЗначениеШирины.ШиринаПикселей;
// Подготавливаем заголовок таблицы
ДанныеЯчеекЗаголовкаТаблицы = Новый Массив;
Для Каждого Колонка Из ТаблицаЗначений.Колонки Цикл
ТекстЗаполнения = ?(ЗначениеЗаполнено(Колонка.Заголовок), Колонка.Заголовок, Колонка.Имя);
ДанныеЯчеекЗаголовкаТаблицы.Добавить(ЯчейкаЗаголовкаТаблицыHTML(ТекстЗаполнения, Колонка.Ширина));
Заголовок = ЗаголовокТаблицыHTML(ДанныеЯчеекЗаголовкаТаблицы);
ДанныеСтрокТаблицы = Новый Массив;
Для Каждого Строка Из ТаблицаЗначений Цикл
ДанныеЯчеекСтроки = Новый Массив;
Для Каждого Колонка Из ТаблицаЗначений.Колонки Цикл
ДанныеЯчеекСтроки.Добавить(ЯчейкаСтрокиОсновныхДанныхHTML(Строка[Колонка.Имя], Колонка.Ширина));
ДанныеСтрокТаблицы.Добавить(СтрокаТаблицыHTML(ДанныеЯчеекСтроки));
Таблица = ТаблицаHTML(Заголовок, ДанныеСтрокТаблицы);
Возврат СтроковыеФункцииКлиентСервер.ВставитьПараметрыВСтроку(Таблица, ПараметрыОформления);
#Область СлужебныйПрограммныйИнтерфейс
Функция ШаблонHTMLСообщения(ПараметрыОформления = Неопределено) Экспорт
Если ПараметрыОформления = Неопределено Тогда
ПараметрыОформления = ПараметрыОформленияHTMLСообщения();
| <meta charset=""UTF-8"">
| <title>HTML Email</title>
|<body style=""margin: 0; padding: 0; background: [ТелоЦветЗаднегоФона]; font-family: [ТелоШрифт];"">
| <table width=""100%"" cellpadding=""0"" cellspacing=""0"" border=""0"" style=""background: [ТелоЦветЗаднегоФона];"">
| <table cellpadding=""0"" cellspacing=""0"" border=""0"">
| <table width=""[КонтентШирина]"" cellpadding=""0"" cellspacing=""0"" border=""0"" style=""font-family: [ТелоШрифт]; background: [КонтейнерЦветФона]; padding: [КонтейнерВнутреннийОтступ]; border-radius: [КонтейнерСкругление]; box-shadow: [КонтейнерТень];"">
| <td style=""margin: 20px; font-family: [ТелоШрифт]; padding: [КонтентВнутреннийОтступ]; font-size: [КонтентРазмерШрифта]; line-height: [КонтентМежстрочныйИнтервал]; color: [КонтентЦветТекста];"">
| <h1 align=""center"" style=""margin: [ЗаголовокВнешнийОтступ]; padding: [ЗаголовокВнутреннийОтступ]; font-family: [ТелоШрифт]; color: [ЗаголовокЦветТекста]"">[Заголовок]</h1>
| <td height=""1"" style=""font-size: 1px; line-height: 1px; font-size: 0""> </td>
| <td style=""padding: 1px 0 0 0; border-top: 3px solid [ЗаголовокЦветТекста]; font-size: 0; line-height: 0;""> </td>
// Подпись и лого (insert base64 to src img)
| <td align=""center"" style=""font-family: [ТелоШрифт]; padding-top: [ПодвалОтступСверху]; font-size: [ПодвалРазмерШрифта]; color: [ПодвалЦветТекста];"">
| Это письмо сформировано автоматически. Пожалуйста, не отвечайте на него.
| <td align=""center"" style=""line-height: 0; padding: 0; margin: 0;"">
| style=""border: 0; display: block; margin: 0 auto;"">
Результат = СтроковыеФункцииКлиентСервер.ВставитьПараметрыВСтроку(Шаблон, ПараметрыОформления);
// Функция - Нормализованный текст для HTML. Исплользуется в методах "БлокHTMLСообщения_.."
// Возвращаемое значение:
// Строка - Текст с экранированными спец.символами
Функция НормализованныйТекстДляHTML(Знач Текст) Экспорт
Текст = СтрЗаменить(Текст, "&", "&");
Текст = СтрЗаменить(Текст, "<", "<");
Текст = СтрЗаменить(Текст, ">", ">");
Текст = СтрЗаменить(Текст, """", """);
Текст = СтрЗаменить(Текст, "'", "'");
Текст = СтрЗаменить(Текст, Символы.ПС, "<br>");
Текст = СтрЗаменить(Текст, Символы.ВК, "<br>");
Текст = СтрЗаменить(Текст, Символы.Таб, " ");
#Область СлужебныеПроцедурыИФункции
Процедура СформироватьСписокНенумерованныйHTMLРекурсивно(МассивЗначений, ТекстHTML = Неопределено, ПараметрыОформления = Неопределено)
Если ТекстHTML = Неопределено Тогда
Если ПараметрыОформления = Неопределено Тогда
ПараметрыОформления = ПараметрыОформленияHTMLСообщения();
+ СтроковыеФункцииКлиентСервер.ВставитьПараметрыВСтроку(НачалоНенумерованногоСпискаHTML(), ПараметрыОформления)
Для Каждого ЭлементМассива Из МассивЗначений Цикл
Если ТипЗнч(ЭлементМассива) = Тип("Массив") Тогда
СформироватьСписокНенумерованныйHTMLРекурсивно(ЭлементМассива, ТекстHTML, ПараметрыОформления);
ТекстHTML = ТекстHTML + ЭлементНенумерованногоСпискаHTML(ЭлементМассива) + Символы.ПС;
ТекстHTML = ТекстHTML + "</ul>" + Символы.ПС;
Функция НачалоНенумерованногоСпискаHTML()
Возврат "<ul style=""margin-left: 10px; padding-left: 10px; list-style-position: inside; font-family: [ТелоШрифт]; font-size: [КонтентРазмерШрифта]; line-height: [КонтентМежстрочныйИнтервал]; color: [КонтентЦветТекста];"">";
Функция ЭлементНенумерованногоСпискаHTML(ТекстЗаполнения)
Шаблон = "<li style=""font-family: [ТелоШрифт]; font-size: [КонтентРазмерШрифта]; line-height: [КонтентМежстрочныйИнтервал]; color: [КонтентЦветТекста];"">
НормализованныйТекст = НормализованныйТекстДляHTML(ТекстЗаполнения);
Возврат СтроковыеФункцииКлиентСервер.ВставитьПараметрыВСтроку(Шаблон, Новый Структура("ТекстЗаполнения", НормализованныйТекст));
Функция ТаблицаHTML(СтрокаЗаголовкаТаблицы, ДанныеСтрокТаблицы)
"<p style=""font-size: 5px; line-height: 5px; margin: 0;""> </p>
|<table width=""[ТаблицаШирина]"" align=""center"" cellpadding=""0"" cellspacing=""0"" border=""0"" style=""margin: [ТаблицаВнешнийОтступ]; border-collapse: collapse;"">
| [СтрокаЗаголовкаТаблицы]
|<p style=""font-size: 5px; line-height: 5px; margin: 0;""> </p>
ТекстЗаполненияСтрокТаблицы = СтрСоединить(ДанныеСтрокТаблицы, Символы.ПС);
ПараметрыЗаполнения = Новый Структура;
ПараметрыЗаполнения.Вставить("СтрокаЗаголовкаТаблицы", СтрокаЗаголовкаТаблицы);
ПараметрыЗаполнения.Вставить("ДанныеСтрокТаблицы", ТекстЗаполненияСтрокТаблицы);
Возврат СтроковыеФункцииКлиентСервер.ВставитьПараметрыВСтроку(Шаблон, ПараметрыЗаполнения);
Функция ЗаголовокТаблицыHTML(ДанныеЯчеекЗаголовка)
Шаблон = "<tr style=""background: [ТаблицаЦветФонаЗаголовка]; color: [ТаблицаЦветТекстаЗаголовка];"">
| [ДанныеЯчеекЗаголовкаТаблицы]
ДанныеЗаполнения = Новый Структура;
ДанныеЗаполнения.Вставить("ДанныеЯчеекЗаголовкаТаблицы", СтрСоединить(ДанныеЯчеекЗаголовка, Символы.ПС));
Возврат СтроковыеФункцииКлиентСервер.ВставитьПараметрыВСтроку(Шаблон, ДанныеЗаполнения);
Функция ЯчейкаЗаголовкаТаблицыHTML(ТекстЗаголовка, ШиринаКолонкиПикселей)
ТекстЗаполнения = НормализованныйТекстДляHTML(ТекстЗаголовка);
Шаблон = "<th style=""width: [ШиринаКолонкиПикселей]px; font-family: [ТелоШрифт]; border: [ЯчейкаГраница]; padding: [КонтентВнутреннийОтступ]; font-size: [КонтентРазмерШрифта]; line-height: [КонтентМежстрочныйИнтервал]; text-align: left;"">
ПараметрыЗаполнения = Новый Структура;
ПараметрыЗаполнения.Вставить("ШиринаКолонкиПикселей", Формат(ШиринаКолонкиПикселей, "ЧДЦ=0; ЧГ="));
ПараметрыЗаполнения.Вставить("ТекстЗаполнения", ТекстЗаполнения);
Возврат СтроковыеФункцииКлиентСервер.ВставитьПараметрыВСтроку(Шаблон, ПараметрыЗаполнения);
Функция СтрокаТаблицыHTML(ДанныеЯчеекСтрокиТаблицы)
Шаблон = "<tr style=""font-family: [ТелоШрифт]; border: [ЯчейкаГраница]; padding: [КонтентВнутреннийОтступ]; font-size: [КонтентРазмерШрифта]; line-height: [КонтентМежстрочныйИнтервал]; color: [КонтентЦветТекста];"">
| [ДанныеЯчеекСтрокиТаблицы]
ТекстЗаполнения = СтрСоединить(ДанныеЯчеекСтрокиТаблицы, Символы.ПС);
Результат = СтроковыеФункцииКлиентСервер.ВставитьПараметрыВСтроку(Шаблон, Новый Структура("ДанныеЯчеекСтрокиТаблицы", ТекстЗаполнения));
Функция ЯчейкаСтрокиОсновныхДанныхHTML(ТекстЯчейки, ШиринаКолонкиПикселей)
ТекстЗаполнения = НормализованныйТекстДляHTML(ТекстЯчейки);
Шаблон = "<td style=""width: [ШиринаКолонкиПикселей]px; font-family: [ТелоШрифт]; border: [ЯчейкаГраница]; padding: [КонтентВнутреннийОтступ]; font-size: [КонтентРазмерШрифта]; line-height: [КонтентМежстрочныйИнтервал]; color: [КонтентЦветТекста];"">
| [ЗначениеЯчейкиСтрокиТаблицы]
ПараметрыЗаполнения = Новый Структура;
ПараметрыЗаполнения.Вставить("ШиринаКолонкиПикселей", Формат(ШиринаКолонкиПикселей, "ЧДЦ=0; ЧГ="));
ПараметрыЗаполнения.Вставить("ЗначениеЯчейкиСтрокиТаблицы", ТекстЗаполнения);
Возврат СтроковыеФункцииКлиентСервер.ВставитьПараметрыВСтроку(Шаблон, ПараметрыЗаполнения);
Функция АбсолютнаяШиринаКолонок(ТаблицаЗначений, ОбщаяШирина)
Для Каждого Колонка Из ТаблицаЗначений.Колонки Цикл
Колонки.Добавить(Новый Структура("Колонка, Ширина", Колонка.Имя, Колонка.Ширина));
КоличествоНезаполненных = 0;
Для Каждого Колонка Из Колонки Цикл
Если Колонка.Ширина > 0 Тогда
СуммаЗаданных = СуммаЗаданных + Колонка.Ширина;
КоличествоНезаполненных = КоличествоНезаполненных + 1;
Если СуммаЗаданных = 0 Тогда
Для Каждого Колонка Из Колонки Цикл
Колонка.Вставить("ШиринаПроцентов", Окр(100 / Колонки.Количество(), 0));
ИначеЕсли СуммаЗаданных <= 100 Тогда
Свободно = 100 - СуммаЗаданных;
Средняя = ?(КоличествоНезаполненных > 0, Свободно / КоличествоНезаполненных, 0);
Для Каждого Колонка Из Колонки Цикл
Если Колонка.Ширина = 0 Тогда
Колонка.Вставить("ШиринаПроцентов", Окр(Средняя, 0));
Колонка.Вставить("ШиринаПроцентов", Окр(Колонка.Ширина, 0));
Для Каждого Колонка Из Колонки Цикл
Если Колонка.Ширина > 0 Тогда
Пропорция = Колонка.Ширина / СуммаЗаданных * 100;
Колонка.Вставить("ШиринаПроцентов", Окр(Пропорция, 0));
Колонка.Вставить("ШиринаПроцентов", 0);
// Заполнение оставшихся нулей
КоличествоНезаполненных = 0;
Для Каждого Колонка Из Колонки Цикл
Если Колонка.ШиринаПроцентов > 0 Тогда
НовыйСумма = НовыйСумма + Колонка.ШиринаПроцентов;
КоличествоНезаполненных = КоличествоНезаполненных + 1;
Остаток = 100 - НовыйСумма;
Средняя = ?(КоличествоНезаполненных > 0, Остаток / КоличествоНезаполненных, 0);
Для Каждого Колонка Из Колонки Цикл
Если Колонка.ШиринаПроцентов = 0 Тогда
Колонка.ШиринаПроцентов = Окр(Средняя, 0);
// Шаг 2: корректировка процентов
Для Каждого Колонка Из Колонки Цикл
ОбщаяСумма = ОбщаяСумма + Колонка.ШиринаПроцентов;
Ошибка = 100 - ОбщаяСумма;
Для Каждого Колонка Из Колонки Цикл
Изменение = ?(Ошибка > 0, 1, -1);
Колонка.ШиринаПроцентов = Колонка.ШиринаПроцентов + Изменение;
Ошибка = Ошибка - Изменение;
// Шаг 3: абсолютная ширина
Для Каждого Колонка Из Колонки Цикл
Пикселей = Окр(ОбщаяШирина * Колонка.ШиринаПроцентов / 100, 0);
Колонка.Вставить("ШиринаПикселей", Пикселей);
ОбщаяПикселей = ОбщаяПикселей + Пикселей;
// Шаг 4: корректировка до точной ширины
Остаток = ОбщаяШирина - ОбщаяПикселей;
Для Каждого Колонка Из Колонки Цикл
Изменение = ?(Остаток > 0, 1, -1);
Колонка.ШиринаПикселей = Колонка.ШиринаПикселей + Изменение;
Остаток = Остаток - Изменение;
#Область СлужебныеПроцедурыИФункции