Welcome, guest! Login / Register - Why register?
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

Your Name: Code Language: