1c/OpenIntegrations
1
0
Fork 0
mirror of https://github.com/Bayselonarrend/OpenIntegrations.git synced 2025-03-21 21:27:27 +02:00
Code Issues Releases Activity

Обработка управляющих последовательностей для CLI

Browse Source
This commit is contained in:
Anton Titovets 2024-12-16 09:24:07 +03:00
parent 82750c9485
commit 5daa94d43b
3 changed files with 33 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/ru/OPI/src/CommonModules/OPI_TCP/Module.bsl
View File

@ -198,26 +198,19 @@
// Отправляет одиночный запрос на указанный адрес и получает ответ, используя стандартные настройки
//
// Параметры:
// Адрес - Строка - Адрес и порт для подключения - address
// Данные - Строка, ДвоичныеДанные - Данные или текст для отправки - data
// ОтветСтрокой - Булево - Признак получения ответа как строки - string
// Перенос - Булево - Завершить сообщение символом переноса строки - nl
// Адрес - Строка - Адрес и порт для подключения - address
// Данные - Строка, ДвоичныеДанные - Данные или текст для отправки - data
// ОтветСтрокой - Булево - Признак получения ответа как строки - string
//
// Возвращаемое значение:
// ДвоичныеДанные, Строка - Ответ на запрос
Функция ОбработатьЗапрос(Знач Адрес, Знач Данные = "", Знач ОтветСтрокой = Истина, Знач Перенос = Истина) Экспорт
Функция ОбработатьЗапрос(Знач Адрес, Знач Данные = "", Знач ОтветСтрокой = Истина) Экспорт
OPI_ПреобразованиеТипов.ПолучитьДвоичныеДанные(Данные, Истина);
OPI_ПреобразованиеТипов.ПолучитьБулево(ОтветСтрокой);
OPI_ПреобразованиеТипов.ПолучитьБулево(Перенос);
Соединение = ОткрытьСоединение(Адрес);
Если Перенос Тогда
Данные = OPI_Инструменты.СклеитьДанные(Данные, ПолучитьДвоичныеДанныеИзСтроки(Символы.ПС));
КонецЕсли;
Результат = ОтправитьДвоичныеДанные(Соединение, Данные);
Результат = ОтправитьДвоичныеДанные(Соединение, Данные);
Если Результат Тогда

17
src/ru/OPI/src/CommonModules/OPI_Инструменты/Module.bsl
View File

@ -973,6 +973,23 @@
КонецПроцедуры
Процедура ЗаменитьУправляющиеПоследовательности(Текст) Экспорт
СоответствиеСимволов = Новый Соответствие;
СоответствиеСимволов.Вставить("\n", Символы.ПС);
СоответствиеСимволов.Вставить("\r", Символы.ВК);
СоответствиеСимволов.Вставить("\f", Символы.ПФ);
СоответствиеСимволов.Вставить("\v", Символы.ВТаб);
Для Каждого Символ Из СоответствиеСимволов Цикл
Текст = СтрЗаменить(Текст, Символ.Ключ, Символ.Значение);
Текст = СтрЗаменить(Текст, "\" + Символ.Значение, Символ.Ключ);
КонецЦикла;
КонецПроцедуры
Функция ЧислоВСтроку(Знач Число) Экспорт
Возврат СтрЗаменить(Строка(Число), Символы.НПП, "");
КонецФункции

12
src/ru/cli/core/Classes/app.os
View File

@ -187,7 +187,17 @@
Если ЗначениеЗаполнено(ЗначениеПараметра) Тогда
ИмяПараметра = "Параметр" + СтрЗаменить(ИмяПараметра, "--", "_");
ИмяПараметра = "Параметр" + СтрЗаменить(ИмяПараметра, "--", "_");
ФайлПараметра = Новый Файл(ЗначениеПараметра);
ЗначениеПараметраСокр = СокрЛП(ЗначениеПараметра);
Если Не СтрНачинаетсяС(ЗначениеПараметраСокр, "{")
И Не СтрНачинаетсяС(ЗначениеПараметраСокр, "[")
И Не ФайлПараметра.Существует() Тогда
OPI_Инструменты.ЗаменитьУправляющиеПоследовательности(ЗначениеПараметра);
КонецЕсли;
ТекстВыполнения = ТекстВыполнения
+ Символы.ПС