87
РезультатОбработки.ТекстОшибки = "Неправильный
формат данных.";
КонецЕсли;
ИначеЕсли (Весы.Тип =
Перечисления.ЮИ_ТипыВесов.ТензоМ_6_43) Тогда
Если (СтрДлина(Данные) = 9) Тогда
РезультатОбработки.Стабильно = (Прав(Данные, 1) =
"$");
Если НЕ РезультатОбработки.Стабильно Тогда
РезультатОбработки.Стабильно = НЕ
(Прав(Данные, 1) = СимволASCII(5));
КонецЕсли;
Попытка
РезультатОбработки.Вес =
Число(СтрЗаменить(Сред(Данные, 2, 7), " ", ""));
Исключение
РезультатОбработки.ТекстОшибки =
"Неправильный формат данных.";
КонецПопытки;
Иначе
РезультатОбработки.ТекстОшибки = "Неправильный
формат данных.";
КонецЕсли;
88
ИначеЕсли (Весы.Тип = Перечисления.ЮИ_ТипыВесов.ТензоМ)
Тогда
Если (Лев(Данные, 3) = (СимволASCII(1) +
СимволASCII(198) + СимволASCII(1))) Тогда
Длина = КодASCIIСимвола(Сред(Данные, 4, 1)) - 1;
РезультатОбработки.Стабильно = (Сред(Данные, 5 +
Длина, 1) = "$");
Попытка
РезультатОбработки.Вес =
Число(СтрЗаменить(Сред(Данные, 5, Длина), " ", ""));
Исключение
РезультатОбработки.ТекстОшибки =
"Неправильный формат данных.";
КонецПопытки;
Иначе
РезультатОбработки.ТекстОшибки = "Неправильный
формат данных."
КонецЕсли;
ИначеЕсли (Весы.Тип = Перечисления.ЮИ_ТипыВесов.EDH)
ИЛИ (Весы.Тип = Перечисления.ЮИ_ТипыВесов.AD) Тогда
Если (СтрДлина(Данные) = 14) Тогда
РезультатОбработки.Стабильно = (Сред(Данные, 3, 1) =
"S");
89
Попытка
РезультатОбработки.Вес =
Число(СтрЗаменить(Сред(Данные, 4, 8), " ", ""));
Исключение
РезультатОбработки.ТекстОшибки =
"Неправильный формат данных.";
КонецПопытки;
Иначе
РезультатОбработки.ТекстОшибки = "Неправильный
формат данных.";
КонецЕсли;
ИначеЕсли (Весы.Тип = Перечисления.ЮИ_ТипыВесов.ADH)
Тогда
Если (СтрДлина(Данные) = 13) Тогда
РезультатОбработки.Стабильно = (Сред(Данные, 3, 1) = "S");
Попытка
РезультатОбработки.Вес = Число(СтрЗаменить(Сред(Данные, 4, 7), " ",
""));
Исключение
РезультатОбработки.ТекстОшибки = "Неправильный формат данных.";
КонецПопытки;
Иначе
90
РезультатОбработки.ТекстОшибки = "Неправильный формат данных.";
КонецЕсли;
ИначеЕсли (Весы.Тип = Перечисления.ЮИ_ТипыВесов.AXIS) Тогда
// Протокол LonG.
Если (СтрДлина(Данные) = 14) Тогда
РезультатОбработки.Стабильно = Истина; // весы
отправляют вес, только когда уравновешены
Попытка
РезультатОбработки.Вес =
Число(СтрЗаменить(Сред(Данные, 1, 10), " ", ""));
Исключение
РезультатОбработки.ТекстОшибки = "Неправильный формат данных.";
КонецПопытки;
Иначе
РезультатОбработки.ТекстОшибки = "Неправильный формат данных.";
КонецЕсли;
КонецЕсли;
Возврат РезультатОбработки;
КонецФункции // ОбработатьДанныеОтВесов()