diff --git a/.github/workflows/convert.os b/.github/workflows/convert.os index 08e4ccedd9..1ec0cfed0f 100644 --- a/.github/workflows/convert.os +++ b/.github/workflows/convert.os @@ -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 @@ КонецПроцедуры -Процедура ОбработатьЗаменыМодуля(Модуль) +Процедура ОбработатьЗаменыМодуля(Знач ИмяМодуля, Модуль) - ВыводСообщенияПроцесса(ФайлМодуля.Имя, "Начало произведения замен"); + ВыводСообщенияПроцесса(ИмяМодуля, "Начало произведения замен"); СоответствиеЗамен = ПолучитьСоответствиеЗамен(); Для Каждого Замена Из СоответствиеЗамен Цикл - Модуль = СтрЗаменить(Замена.Ключ, Замена.Значение); + Модуль = СтрЗаменить(Модуль, Замена.Ключ, Замена.Значение); КонецЦикла; - ВыводСообщенияПроцесса(ФайлМодуля.Имя, "Окончание произведения замен"); + ВыводСообщенияПроцесса(ИмяМодуля, "Окончание произведения замен"); КонецПроцедуры