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");
Сопоставление.Вставить("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С);
ИмяМодуля = ФайлМодуля.Имя;
Если ФайлМодуля.Существует() Тогда Если ФайлМодуля.Существует() Тогда
ВыводСообщенияПроцесса(ФайлМодуля.Имя, "Начало обработки файла"); ВыводСообщенияПроцесса(ИмяМодуля, "Начало обработки файла");
Иначе Иначе
ВыводСообщенияПроцесса(ФайлМодуля.Имя, "Файл не существует. Пропускаем"); ВыводСообщенияПроцесса(ИмяМодуля, "Файл не существует. Пропускаем");
Возврат; Возврат;
КонецЕсли; КонецЕсли;
Модуль = ПрочитатьМодуль(Файл1С); Модуль = ПрочитатьМодуль(Файл1С, ИмяМодуля);
Если СтрДлина(Модуль) = 0 Тогда Если СтрДлина(Модуль) = 0 Тогда
ВыводСообщенияПроцесса(ФайлМодуля.Имя, "Модуль пустой. Пропускаем"); ВыводСообщенияПроцесса(ИмяМодуля, "Модуль пустой. Пропускаем");
Возврат; Возврат;
КонецЕсли; КонецЕсли;
ОбработатьЗаменыМодуля(Модуль); ОбработатьЗаменыМодуля(ИмяМодуля, Модуль);
ЗаписатьМодуль(ФайлОС, Модуль); ЗаписатьМодуль(ФайлОС, Модуль, ИмяМодуля);
КонецПроцедуры КонецПроцедуры
Процедура ПрочитатьМодуль(Знач ФайлМодуля) Функция ПрочитатьМодуль(Знач ФайлМодуля, Знач ИмяМодуля)
ВыводСообщенияПроцесса(ФайлМодуля.Имя, "Начало чтения текста модуля"); ВыводСообщенияПроцесса(ИмяМодуля, "Начало чтения текста модуля");
ЧтениеТекста = Новый ЧтениеТекста(ФайлМодуля); ЧтениеТекста = Новый ЧтениеТекста(ФайлМодуля);
Модуль = ЧтениеТекста.Прочитать(); Модуль = ЧтениеТекста.Прочитать();
ЧтениеТекста.Закрыть(); ЧтениеТекста.Закрыть();
ВыводСообщенияПроцесса(ФайлМодуля.Имя, "Модуль прочитан. Длина - " + Строка(СтрДлина(Модуль))); ВыводСообщенияПроцесса(ИмяМодуля, "Модуль прочитан. Длина - " + Строка(СтрДлина(Модуль)));
Возврат Модуль; Возврат Модуль;
КонецПроцедуры КонецФункции
Процедура ЗаписатьМодуль(Знач ФайлМодуля, Знач Модуль) Процедура ЗаписатьМодуль(Знач ФайлМодуля, Знач Модуль, Знач ИмяМодуля)
ВыводСообщенияПроцесса(ФайлМодуля.Имя, "Начало записи модуля"); ВыводСообщенияПроцесса(ИмяМодуля, "Начало записи модуля");
ТекстовыйДокумент = Новый ТекстовыйДокумент(); ТекстовыйДокумент = Новый ТекстовыйДокумент();
ТекстовыйДокумент.УстановитьТекст(Модуль); ТекстовыйДокумент.УстановитьТекст(Модуль);
ТекстовыйДокумент.Записать(ФайлОС); ТекстовыйДокумент.Записать(ФайлМодуля);
ВыводСообщенияПроцесса(ФайлМодуля.Имя, "Модуль записан"); ВыводСообщенияПроцесса(ИмяМодуля, "Модуль записан");
КонецПроцедуры КонецПроцедуры
@@ -106,7 +108,7 @@
Длина = 30; Длина = 30;
Пока СтрДлина(ИмяФайла) < 30 Цикл Пока СтрДлина(ИмяФайла) < Длина Цикл
ИмяФайла = ИмяФайла + " "; ИмяФайла = ИмяФайла + " ";
КонецЦикла; КонецЦикла;
@@ -114,17 +116,17 @@
КонецПроцедуры КонецПроцедуры
Процедура ОбработатьЗаменыМодуля(Модуль) Процедура ОбработатьЗаменыМодуля(Знач ИмяМодуля, Модуль)
ВыводСообщенияПроцесса(ФайлМодуля.Имя, "Начало произведения замен"); ВыводСообщенияПроцесса(ИмяМодуля, "Начало произведения замен");
СоответствиеЗамен = ПолучитьСоответствиеЗамен(); СоответствиеЗамен = ПолучитьСоответствиеЗамен();
Для Каждого Замена Из СоответствиеЗамен Цикл Для Каждого Замена Из СоответствиеЗамен Цикл
Модуль = СтрЗаменить(Замена.Ключ, Замена.Значение); Модуль = СтрЗаменить(Модуль, Замена.Ключ, Замена.Значение);
КонецЦикла; КонецЦикла;
ВыводСообщенияПроцесса(ФайлМодуля.Имя, "Окончание произведения замен"); ВыводСообщенияПроцесса(ИмяМодуля, "Окончание произведения замен");
КонецПроцедуры КонецПроцедуры