Psst.. new poll here.
Psst.. new forums here.
Microsoft is blocking us again (TY IP Reputation!) so just use oauth login instead. :)
Paste
Pasted as Bash by miha ( 14 years ago )
Функция РазобратьСтроку(Фстрока)
СтрокаПараметров = Фстрока;
Структура = Новый Структура("Артикул, Розница, Закуп, ЗакупСрочный,Наименование");
Поз = Найти(Фстрока, Символы.Таб);
сч = 0;
Пока Поз > 0 Цикл
сч = сч + 1;
Если сч = 1 Тогда
Структура.Артикул = СокрЛП(Лев(СтрокаПараметров, Поз - 1));
ИначеЕсли сч = 2 Тогда
Структура.Наименование = СокрЛП(Лев(СтрокаПараметров, Поз - 1));
//ИначеЕсли (сч = 5) И (НЕ СокрЛП(Лев(Фстрока, Поз - 1)) = "") Тогда
// Структура.Артикул = СокрЛП(Лев(Фстрока, Поз - 1));
ИначеЕсли сч = 6 Тогда
Структура.Розница = Число(СокрЛП(Лев(СтрокаПараметров, Поз - 1)));
ИначеЕсли сч = 7 Тогда
Структура.Закуп = Число(СокрЛП(Лев(СтрокаПараметров, Поз - 1)));
Прервать;
ИначеЕсли сч = 8 Тогда
Структура.ЗакупСрочный = Число(СокрЛП(Лев(СтрокаПараметров, Поз - 1)));
КонецЕсли;
СтрокаПараметров = Прав(Фстрока, СтрДлина(СтрокаПараметров) - Поз);
Поз = Найти(СтрокаПараметров, Символы.Таб);
КонецЦикла;
Возврат Структура;
КонецФункции
Revise this Paste