1c/OpenIntegrations
1
0
Fork 0
mirror of https://github.com/Bayselonarrend/OpenIntegrations.git synced 2025-08-13 20:05:19 +02:00
Code Issues Releases Activity

Фиксы workflow

Browse Source
This commit is contained in:
Anton Titovets
2024-03-14 14:40:01 +03:00
parent 44244d757f
commit 7f1f79f56c
1 changed files with 21 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
.github/workflows/convert.os vendored
View File

@@ -16,6 +16,7 @@
Сопоставление.Вставить("OPI\src\CommonModules\OPI_Инструменты\Module.bsl" , "OInt\tools\Modules\internal\Modules\OPI_Инструменты.os");
Сопоставление.Вставить("OPI\src\CommonModules\OPI_Криптография\Module.bsl" , "OInt\tools\Modules\internal\Modules\OPI_Криптография.os");
Возврат Сопоставление;
КонецФункции
Функция ПолучитьСоответствиеЗамен()
@@ -56,49 +57,50 @@
Процедура ПортироватьФайл(Знач Файл1С, Знач ФайлОС)
ФайлМодуля = Новый Файл(Файл1С);
ИмяМодуля = ФайлМодуля.Имя;
Если ФайлМодуля.Существует() Тогда
ВыводСообщенияПроцесса(ФайлМодуля.Имя, "Начало обработки файла");
ВыводСообщенияПроцесса(ИмяМодуля, "Начало обработки файла");
Иначе
ВыводСообщенияПроцесса(ФайлМодуля.Имя, "Файл не существует. Пропускаем");
ВыводСообщенияПроцесса(ИмяМодуля, "Файл не существует. Пропускаем");
Возврат;
КонецЕсли;
Модуль = ПрочитатьМодуль(Файл1С);
Модуль = ПрочитатьМодуль(Файл1С, ИмяМодуля);
Если СтрДлина(Модуль) = 0 Тогда
ВыводСообщенияПроцесса(ФайлМодуля.Имя, "Модуль пустой. Пропускаем");
ВыводСообщенияПроцесса(ИмяМодуля, "Модуль пустой. Пропускаем");
Возврат;
КонецЕсли;
ОбработатьЗаменыМодуля(Модуль);
ЗаписатьМодуль(ФайлОС, Модуль);
ОбработатьЗаменыМодуля(ИмяМодуля, Модуль);
ЗаписатьМодуль(ФайлОС, Модуль, ИмяМодуля);
КонецПроцедуры
Процедура ПрочитатьМодуль(Знач ФайлМодуля)
Функция ПрочитатьМодуль(Знач ФайлМодуля, Знач ИмяМодуля)
ВыводСообщенияПроцесса(ФайлМодуля.Имя, "Начало чтения текста модуля");
ВыводСообщенияПроцесса(ИмяМодуля, "Начало чтения текста модуля");
ЧтениеТекста = Новый ЧтениеТекста(ФайлМодуля);
Модуль = ЧтениеТекста.Прочитать();
ЧтениеТекста.Закрыть();
ВыводСообщенияПроцесса(ФайлМодуля.Имя, "Модуль прочитан. Длина - " + Строка(СтрДлина(Модуль)));
ВыводСообщенияПроцесса(ИмяМодуля, "Модуль прочитан. Длина - " + Строка(СтрДлина(Модуль)));
Возврат Модуль;
КонецПроцедуры
КонецФункции
Процедура ЗаписатьМодуль(Знач ФайлМодуля, Знач Модуль)
Процедура ЗаписатьМодуль(Знач ФайлМодуля, Знач Модуль, Знач ИмяМодуля)
ВыводСообщенияПроцесса(ФайлМодуля.Имя, "Начало записи модуля");
ВыводСообщенияПроцесса(ИмяМодуля, "Начало записи модуля");
ТекстовыйДокумент = Новый ТекстовыйДокумент();
ТекстовыйДокумент.УстановитьТекст(Модуль);
ТекстовыйДокумент.Записать(ФайлОС);
ТекстовыйДокумент.Записать(ФайлМодуля);
ВыводСообщенияПроцесса(ФайлМодуля.Имя, "Модуль записан");
ВыводСообщенияПроцесса(ИмяМодуля, "Модуль записан");
КонецПроцедуры
@@ -106,7 +108,7 @@
Длина = 30;
Пока СтрДлина(ИмяФайла) < 30 Цикл
Пока СтрДлина(ИмяФайла) < Длина Цикл
ИмяФайла = ИмяФайла + " ";
КонецЦикла;
@@ -114,17 +116,17 @@
КонецПроцедуры
Процедура ОбработатьЗаменыМодуля(Модуль)
Процедура ОбработатьЗаменыМодуля(Знач ИмяМодуля, Модуль)
ВыводСообщенияПроцесса(ФайлМодуля.Имя, "Начало произведения замен");
ВыводСообщенияПроцесса(ИмяМодуля, "Начало произведения замен");
СоответствиеЗамен = ПолучитьСоответствиеЗамен();
Для Каждого Замена Из СоответствиеЗамен Цикл
Модуль = СтрЗаменить(Замена.Ключ, Замена.Значение);
Модуль = СтрЗаменить(Модуль, Замена.Ключ, Замена.Значение);
КонецЦикла;
ВыводСообщенияПроцесса(ФайлМодуля.Имя, "Окончание произведения замен");
ВыводСообщенияПроцесса(ИмяМодуля, "Окончание произведения замен");
КонецПроцедуры