546 lines
28 KiB
Plaintext
546 lines
28 KiB
Plaintext
|
Перем Коллекция;
|
|||
|
Перем Контекст;
|
|||
|
Перем ТекИндекс;
|
|||
|
Перем ИтерацияНачата;
|
|||
|
|
|||
|
#Область Служебные
|
|||
|
Функция __ВыполнитьФрагмент(Знач Код, Знач Вход, Знач ИмяВход = "Вход", Знач ИмяВыход = "Выход", Знач Инициализировать = Ложь, Знач _ = Неопределено)
|
|||
|
Выход = ?(Инициализировать, Вход, Неопределено);
|
|||
|
|
|||
|
Если НЕ "Вход" = ИмяВход Тогда
|
|||
|
Код = СтрШаблон("%1=Вход;%2", ИмяВход, Код);
|
|||
|
КонецЕсли;
|
|||
|
Если НЕ "Выход" = ИмяВыход Тогда
|
|||
|
Код = СтрШаблон("%1;Выход=%2", Код, ИмяВыход);
|
|||
|
КонецЕсли;
|
|||
|
|
|||
|
Выполнить(Код);
|
|||
|
|
|||
|
Возврат Выход;
|
|||
|
КонецФункции
|
|||
|
Функция __Мап(Знач Код, Знач Коллекция, Знач _ = Неопределено)
|
|||
|
Результат = Новый Массив;
|
|||
|
|
|||
|
Для Каждого Элемент Из Коллекция Цикл
|
|||
|
НовыйЭлемент = __ВыполнитьФрагмент(Код, Элемент, "Элемент", "Результат", Истина, _);
|
|||
|
Результат.Добавить(НовыйЭлемент);
|
|||
|
КонецЦикла;
|
|||
|
|
|||
|
Возврат Результат;
|
|||
|
КонецФункции
|
|||
|
Функция __Фильтр(Знач КодУсловия, Знач Коллекция, Знач _ = Неопределено)
|
|||
|
Результат = Новый Массив;
|
|||
|
|
|||
|
Для Каждого Элемент Из Коллекция Цикл
|
|||
|
Условие = __ВыполнитьФрагмент(КодУсловия, Элемент, "Элемент", "Условие", , _);
|
|||
|
Если Условие Тогда
|
|||
|
Результат.Добавить(Элемент);
|
|||
|
КонецЕсли;
|
|||
|
КонецЦикла;
|
|||
|
|
|||
|
Возврат Результат;
|
|||
|
КонецФункции
|
|||
|
Функция __ВыполнитьФрагмент_ДляСвертки(Знач Код, Знач Элемент, Знач Результат, Знач _ = Неопределено)
|
|||
|
Выполнить(Код);
|
|||
|
Возврат Результат;
|
|||
|
КонецФункции
|
|||
|
Функция __Свернуть(Знач Код, Знач Коллекция, Знач Результат = Неопределено, Знач _ = Неопределено)
|
|||
|
Для Каждого Элемент Из Коллекция Цикл
|
|||
|
Результат = __ВыполнитьФрагмент_ДляСвертки(Код, Элемент, Результат, _);
|
|||
|
КонецЦикла;
|
|||
|
|
|||
|
Возврат Результат;
|
|||
|
КонецФункции
|
|||
|
|
|||
|
Функция __ВзятьНеБольше(Знач Коллекция, Знач Количество)
|
|||
|
Результат = Новый Массив;
|
|||
|
Для Каждого ТекСтр Из Коллекция Цикл
|
|||
|
Если 1 > Количество Тогда
|
|||
|
Прервать;
|
|||
|
КонецЕсли;
|
|||
|
|
|||
|
Результат.Добавить(ТекСтр);
|
|||
|
|
|||
|
Количество = Количество - 1;
|
|||
|
КонецЦикла;
|
|||
|
Возврат Результат;
|
|||
|
КонецФункции
|
|||
|
Функция __Пропустить(Знач Коллекция, Знач Количество)
|
|||
|
Результат = Новый Массив;
|
|||
|
Для Каждого ТекСтр Из Коллекция Цикл
|
|||
|
Если 0 < Количество Тогда
|
|||
|
Количество = Количество - 1;
|
|||
|
Продолжить;
|
|||
|
КонецЕсли;
|
|||
|
|
|||
|
Результат.Добавить(ТекСтр);
|
|||
|
КонецЦикла;
|
|||
|
Возврат Результат;
|
|||
|
КонецФункции
|
|||
|
Функция __Обратить(Знач Коллекция)
|
|||
|
Если 0 = Коллекция.Количество() Тогда
|
|||
|
Возврат Коллекция;
|
|||
|
КонецЕсли;
|
|||
|
Результат = Новый Массив;
|
|||
|
Для Смещение = 1 По Коллекция.Количество() Цикл
|
|||
|
ТекИндекс = Коллекция.Количество() - Смещение;
|
|||
|
Результат.Добавить(Коллекция[ТекИндекс]);
|
|||
|
КонецЦикла;
|
|||
|
Возврат Результат;
|
|||
|
КонецФункции
|
|||
|
|
|||
|
Функция __СимволыВСтроке(Знач Стр) Экспорт
|
|||
|
Результат = Новый Массив;
|
|||
|
Для Сч = 1 По СтрДлина(Стр) Цикл
|
|||
|
Результат.Добавить(Сред(Стр, Сч, 1));
|
|||
|
КонецЦикла;
|
|||
|
Возврат Результат;
|
|||
|
КонецФункции
|
|||
|
Функция __МассивПоДиапазонуЧисел(Число_С, Число_По) Экспорт
|
|||
|
Результат = Новый Массив;
|
|||
|
Для ТекЧисло = Число_С По Число_По Цикл
|
|||
|
Результат.Добавить(ТекЧисло);
|
|||
|
КонецЦикла;
|
|||
|
Возврат Результат;
|
|||
|
КонецФункции
|
|||
|
Функция __ЭтоКоллекция(ЧтоТо) Экспорт
|
|||
|
Результат = Ложь;
|
|||
|
Если Неопределено = ЧтоТо Тогда
|
|||
|
Возврат Результат;
|
|||
|
Конецесли;
|
|||
|
|
|||
|
Попытка
|
|||
|
Для Каждого ТекСтр Из ЧтоТо Цикл
|
|||
|
Прервать;
|
|||
|
КонецЦикла;
|
|||
|
Результат = Истина;
|
|||
|
Исключение
|
|||
|
;
|
|||
|
КонецПопытки;
|
|||
|
Возврат Результат;
|
|||
|
КонецФункции
|
|||
|
Функция __ОбходДерева(Дерево, Знач КодПолученияСтрок = "", Знач ВШирину = Ложь) Экспорт
|
|||
|
Результат = Новый Массив;
|
|||
|
Если ПустаяСтрока(КодПолученияСтрок) Тогда
|
|||
|
Если Тип("ДеревоЗначений") = ТипЗнч(Дерево) Тогда
|
|||
|
КодПолученияСтрок = "Строки = Узел.Строки";
|
|||
|
КонецЕсли;
|
|||
|
КонецЕсли;
|
|||
|
|
|||
|
Очередь = Новый Массив;
|
|||
|
Очередь.Добавить(Дерево);
|
|||
|
Пока Очередь.Количество() > 0 Цикл
|
|||
|
Следующий = ?(ВШирину, 0, Очередь.ВГраница());
|
|||
|
Узел = Очередь.Получить(Следующий);
|
|||
|
Очередь.Удалить(Следующий);
|
|||
|
|
|||
|
Результат.Добавить(Узел);
|
|||
|
|
|||
|
Строки = Неопределено;
|
|||
|
Если ПустаяСтрока(КодПолученияСтрок) Тогда
|
|||
|
// для массива массивов не нужно определять свойство где лежат строки
|
|||
|
Строки = Узел;
|
|||
|
Иначе
|
|||
|
Строки = __ВыполнитьФрагмент(КодПолученияСтрок, Узел, "Узел", "Строки", Истина);
|
|||
|
КонецЕсли;
|
|||
|
|
|||
|
Если НЕ __ЭтоКоллекция(Строки) Тогда
|
|||
|
Продолжить;
|
|||
|
КонецЕсли;
|
|||
|
|
|||
|
Для Каждого ТекСтр Из Строки Цикл
|
|||
|
Очередь.Добавить(ТекСтр);
|
|||
|
КонецЦикла;
|
|||
|
КонецЦикла;
|
|||
|
Возврат Результат;
|
|||
|
КонецФункции
|
|||
|
Функция __Транспонировать(МассивМассивов)
|
|||
|
Результат = Новый Массив;
|
|||
|
МинКоличество = Неопределено;
|
|||
|
|
|||
|
Для Каждого ТекМассив Из МассивМассивов Цикл
|
|||
|
Если Неопределено = МинКоличество Тогда
|
|||
|
МинКоличество = ТекМассив.Количество();
|
|||
|
Продолжить;
|
|||
|
КонецЕсли;
|
|||
|
МинКоличество = Мин(МинКоличество, ТекМассив.Количество());
|
|||
|
КонецЦикла;
|
|||
|
|
|||
|
Если 0 = МинКоличество Тогда
|
|||
|
Возврат Результат;
|
|||
|
КонецЕсли;
|
|||
|
|
|||
|
Для Индекс = 0 По МинКоличество - 1 Цикл
|
|||
|
Элемент = Новый Массив;
|
|||
|
|
|||
|
Для Каждого ТекМассив Из МассивМассивов Цикл
|
|||
|
Элемент.Добавить(ТекМассив[Индекс]);
|
|||
|
КонецЦикла;
|
|||
|
|
|||
|
Результат.Добавить(Элемент);
|
|||
|
КонецЦикла;
|
|||
|
|
|||
|
Возврат Результат;
|
|||
|
КонецФункции
|
|||
|
#КонецОбласти
|
|||
|
|
|||
|
Функция ЗагрузитьКоллекцию(_Значение)
|
|||
|
Результат = Неопределено;
|
|||
|
Если Тип("Строка") = ТипЗнч(_Значение) Тогда
|
|||
|
Результат = __СимволыВСтроке(_Значение);
|
|||
|
ИначеЕсли Тип("Массив") = ТипЗнч(_Значение) Тогда
|
|||
|
Результат = _Значение;
|
|||
|
ИначеЕсли Тип("ФиксированныйМассив") = ТипЗнч(_Значение) Тогда
|
|||
|
Результат = Новый Массив(_Значение);
|
|||
|
ИначеЕсли Тип("ДеревоЗначений") = ТипЗнч(_Значение) Тогда
|
|||
|
Результат = __ОбходДерева(_Значение);
|
|||
|
ИначеЕсли Тип("ВнешниеОбработкиОбъект.Итератор") = ТипЗнч(_Значение) Тогда
|
|||
|
Результат = _Значение.Собрать();
|
|||
|
ИначеЕсли __ЭтоКоллекция(_Значение) Тогда
|
|||
|
Результат = Новый Массив;
|
|||
|
Для Каждого ТекСтр Из _Значение Цикл
|
|||
|
Результат.Добавить(ТекСтр);
|
|||
|
КонецЦикла;
|
|||
|
Иначе ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(_Значение);
|
|||
|
КонецЕсли;
|
|||
|
|
|||
|
Возврат Результат;
|
|||
|
Конецфункции
|
|||
|
|
|||
|
Функция СоздатьНовый() Экспорт
|
|||
|
Возврат ВнешниеОбработки.Иттератор.Создать();
|
|||
|
КонецФункции
|
|||
|
Функция Клонировать() Экспорт
|
|||
|
НоваяКоллекция = Новый ФиксированныйМассив(Коллекция);
|
|||
|
НоваяКоллекция = Новый Массив(НоваяКоллекция);
|
|||
|
Возврат ЭтотОбъект.СоздатьНовый().ВзятьИз(НоваяКоллекция);
|
|||
|
КонецФункции
|
|||
|
|
|||
|
Функция Начать() Экспорт
|
|||
|
Коллекция = Новый Массив;
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
Конецфункции
|
|||
|
Функция НачатьС(_Значение) Экспорт
|
|||
|
Возврат ЭтотОбъект.Начать().Добавить(_Значение);
|
|||
|
Конецфункции
|
|||
|
Функция ВзятьИз(_Значение) Экспорт
|
|||
|
Коллекция = ЗагрузитьКоллекцию(_Значение);
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
Конецфункции
|
|||
|
Функция РазделитьСтроку(Знач Стр, Знач Разделитель, Знач ВключатьПустые=Ложь) Экспорт
|
|||
|
Коллекция = СтрРазделить(Стр, Разделитель, ВключатьПустые);
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
Конецфункции
|
|||
|
Функция ПоДиапазону(Число_С, Число_По) Экспорт
|
|||
|
Коллекция = __МассивПоДиапазонуЧисел(Число_С, Число_По);
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
Функция УстановитьКонтекст(_Контекст) Экспорт
|
|||
|
Контекст = _Контекст;
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
|
|||
|
Функция Собрать() Экспорт
|
|||
|
Если Неопределено = Коллекция Тогда
|
|||
|
Коллекция = Новый Массив;
|
|||
|
КонецЕсли;
|
|||
|
Возврат Коллекция;
|
|||
|
КонецФункции
|
|||
|
Функция СобратьСтроку(Знач Разделитель) Экспорт
|
|||
|
Если Неопределено = Коллекция Тогда
|
|||
|
Коллекция = Новый Массив;
|
|||
|
КонецЕсли;
|
|||
|
Возврат СтрСоединить(Коллекция, Разделитель);
|
|||
|
КонецФункции
|
|||
|
Функция Контекст() Экспорт
|
|||
|
Возврат Контекст;
|
|||
|
КонецФункции
|
|||
|
|
|||
|
Функция Карта(Знач Код) Экспорт
|
|||
|
Коллекция = __Мап(Код, Коллекция, Контекст);
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
Функция Фильтр(Знач Код) Экспорт
|
|||
|
Коллекция = __Фильтр(Код, Коллекция, Контекст);
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
Функция Свернуть(Знач Код, Знач Результат = Неопределено) Экспорт
|
|||
|
Возврат __Свернуть(Код, Коллекция, Результат, Контекст);
|
|||
|
КонецФункции
|
|||
|
Функция ВзятьНеБольше(Знач Количество) Экспорт
|
|||
|
Коллекция = __ВзятьНеБольше(Коллекция, Количество);
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
Функция Пропустить(Знач Количество) Экспорт
|
|||
|
Коллекция = __Пропустить(Коллекция, Количество);
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
Функция Обратить() Экспорт
|
|||
|
Коллекция = __Обратить(Коллекция);
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
Функция Транспонировать() Экспорт
|
|||
|
Коллекция = __Транспонировать(Коллекция);
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
Функция Сортировать(Знач Направление=Неопределено) Экспорт
|
|||
|
Если Неопределено = Направление Тогда
|
|||
|
Направление = НаправлениеСортировки.Возр;
|
|||
|
КонецЕсли;
|
|||
|
|
|||
|
мСписокЗнч = Новый СписокЗначений;
|
|||
|
мСписокЗнч.ЗагрузитьЗначения(Коллекция);
|
|||
|
мСписокЗнч.СортироватьПоЗначению(Направление);
|
|||
|
|
|||
|
Коллекция = мСписокЗнч.ВыгрузитьЗначения();
|
|||
|
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
Функция Перемешать() Экспорт
|
|||
|
НоваяКоллекция = Новый Массив;
|
|||
|
ГСЧ = Новый ГенераторСлучайныхЧисел;
|
|||
|
|
|||
|
Копия = ЭтотОбъект.Клонировать();
|
|||
|
|
|||
|
Для Сч=1 По ЭтотОбъект.Количество() Цикл
|
|||
|
Индекс = ГСЧ.СлучайноеЧисло(0, Копия.ВГраница());
|
|||
|
НоваяКоллекция.Добавить(Копия.Получить(Индекс));
|
|||
|
Копия.Удалить(Индекс);
|
|||
|
КонецЦикла;
|
|||
|
|
|||
|
Коллекция = НоваяКоллекция;
|
|||
|
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
|
|||
|
Функция ВГраница() Экспорт
|
|||
|
Возврат Коллекция.ВГраница();
|
|||
|
КонецФункции
|
|||
|
Функция Количество() Экспорт
|
|||
|
Возврат Коллекция.Количество();
|
|||
|
КонецФункции
|
|||
|
Функция Вставить(Знач Индекс, Знач Значение) Экспорт
|
|||
|
Коллекция.Вставить(Индекс, Значение);
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
Функция Добавить(Знач Значение) Экспорт
|
|||
|
Коллекция.Добавить(Значение);
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
Функция _Найти(Знач Значение) Экспорт
|
|||
|
Возврат Коллекция.Найти(Значение);
|
|||
|
КонецФункции
|
|||
|
Функция Очистить() Экспорт
|
|||
|
Коллекция.Очистить();
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
Функция Получить(Индекс) Экспорт
|
|||
|
Возврат Коллекция.Получить(Индекс);
|
|||
|
КонецФункции
|
|||
|
Функция Удалить(Индекс) Экспорт
|
|||
|
Коллекция.Удалить(Индекс);
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
Функция Установить(Индекс, Знач Значение) Экспорт
|
|||
|
Коллекция.Установить(Индекс, Значение);
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
|
|||
|
Функция Пустой() Экспорт
|
|||
|
Возврат 0 = ЭтотОбъект.Количество();
|
|||
|
КонецФункции
|
|||
|
Функция Содержит(Знач Значение) Экспорт
|
|||
|
Возврат НЕ Неопределено = ЭтотОбъект._Найти(Значение);
|
|||
|
КонецФункции
|
|||
|
Функция Первый() Экспорт
|
|||
|
Если ЭтотОбъект.Пустой() Тогда
|
|||
|
Возврат Неопределено;
|
|||
|
КонецЕсли;
|
|||
|
Возврат ЭтотОбъект.Получить(0);
|
|||
|
КонецФункции
|
|||
|
Функция Последний() Экспорт
|
|||
|
Если ЭтотОбъект.Пустой() Тогда
|
|||
|
Возврат Неопределено;
|
|||
|
КонецЕсли;
|
|||
|
Возврат ЭтотОбъект.Получить(ЭтотОбъект.ВГраница());
|
|||
|
КонецФункции
|
|||
|
Функция СнятьПервый() Экспорт
|
|||
|
Если ЭтотОбъект.Пустой() Тогда
|
|||
|
Возврат Неопределено;
|
|||
|
КонецЕсли;
|
|||
|
Значение = ЭтотОбъект.Получить(0);
|
|||
|
ЭтотОбъект.Удалить(0);
|
|||
|
Возврат Значение;
|
|||
|
КонецФункции
|
|||
|
Функция СнятьПоследний() Экспорт
|
|||
|
Если ЭтотОбъект.Пустой() Тогда
|
|||
|
Возврат Неопределено;
|
|||
|
КонецЕсли;
|
|||
|
Индекс = ЭтотОбъект.ВГраница();
|
|||
|
Значение = ЭтотОбъект.Получить(Индекс);
|
|||
|
ЭтотОбъект.Удалить(Индекс);
|
|||
|
Возврат Значение;
|
|||
|
КонецФункции
|
|||
|
|
|||
|
Функция Дополнить(Источник, ТолькоУникальныеЗначения=Ложь) Экспорт
|
|||
|
ОбщегоНазначенияКлиентСервер.ДополнитьМассив(Коллекция, ЗагрузитьКоллекцию(Источник), ТолькоУникальныеЗначения);
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
Функция ТолькоУникальные() Экспорт
|
|||
|
Коллекция = ОбщегоНазначенияКлиентСервер.СвернутьМассив(Коллекция);
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
Функция РазностьС(ВычитаемаяКоллекция) Экспорт
|
|||
|
НоваяКоллекция = ОбщегоНазначенияКлиентСервер.РазностьМассивов(Коллекция, ЗагрузитьКоллекцию(ВычитаемаяКоллекция));
|
|||
|
Возврат ЭтотОбъект.СоздатьНовый().ВзятьИз(НоваяКоллекция);
|
|||
|
КонецФункции
|
|||
|
Функция УдалитьЗначение(Знач _Значение) Экспорт
|
|||
|
Индекс = ЭтотОбъект._Найти(_Значение);
|
|||
|
Если Индекс <> Неопределено Тогда
|
|||
|
ЭтотОбъект.Удалить(Индекс);
|
|||
|
КонецЕсли;
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
Функция УдалитьВсеВхождения(Знач _Значение) Экспорт
|
|||
|
ОбщегоНазначенияКлиентСервер.УдалитьВсеВхожденияЗначенияИзМассива(Коллекция, _Значение);
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
Функция УдалитьВсеВхожденияТипа(Знач Тип) Экспорт
|
|||
|
ОбщегоНазначенияКлиентСервер.УдалитьВсеВхожденияТипаИзМассива(Коллекция, Тип);
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
|
|||
|
Функция СделатьПлоским() Экспорт
|
|||
|
КоллекцияРезультат = Новый Массив;
|
|||
|
|
|||
|
Очередь = Новый Массив;
|
|||
|
Очередь.Добавить(Коллекция);
|
|||
|
Пока Очередь.Количество() > 0 Цикл
|
|||
|
Следующий = 0;
|
|||
|
ТекЭлемент = Очередь.Получить(Следующий);
|
|||
|
Очередь.Удалить(Следующий);
|
|||
|
|
|||
|
ЭтоКоллекция = Ложь;
|
|||
|
Если ТипЗнч(ЭтотОбъект) = ТипЗнч(ТекЭлемент) Тогда
|
|||
|
ТекЭлемент = ТекЭлемент.Собрать();
|
|||
|
ЭтоКоллекция = Истина;
|
|||
|
ИначеЕсли __ЭтоКоллекция(ТекЭлемент) Тогда
|
|||
|
ЭтоКоллекция = Истина;
|
|||
|
КонецЕсли;
|
|||
|
|
|||
|
Если ЭтоКоллекция Тогда
|
|||
|
Для Каждого НовЭлемент Из ТекЭлемент Цикл
|
|||
|
Очередь.Добавить(НовЭлемент);
|
|||
|
КонецЦикла;
|
|||
|
Иначе
|
|||
|
КоллекцияРезультат.Добавить(ТекЭлемент);
|
|||
|
КонецЕсли;
|
|||
|
КонецЦикла;
|
|||
|
|
|||
|
Коллекция = КоллекцияРезультат;
|
|||
|
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
|
|||
|
Функция СброситьПозицию() Экспорт
|
|||
|
ТекИндекс = 0;
|
|||
|
ИтерацияНачата = Неопределено;
|
|||
|
КонецФункции
|
|||
|
Функция Следующий() Экспорт
|
|||
|
Если ЭтотОбъект.Пустой() Тогда
|
|||
|
Возврат Ложь;
|
|||
|
КонецЕсли;
|
|||
|
|
|||
|
Если Неопределено = ТекИндекс Тогда
|
|||
|
ЭтотОбъект.СброситьПозицию()
|
|||
|
КонецЕсли;
|
|||
|
|
|||
|
Если Неопределено = ИтерацияНачата Тогда
|
|||
|
ИтерацияНачата = Истина;
|
|||
|
Возврат ТекИндекс < ЭтотОбъект.ВГраница();
|
|||
|
КонецЕсли;
|
|||
|
|
|||
|
Если ТекИндекс + 1 > ЭтотОбъект.ВГраница() Тогда
|
|||
|
Возврат Ложь;
|
|||
|
КонецЕсли;
|
|||
|
|
|||
|
ТекИндекс = 1 + ТекИндекс;
|
|||
|
Возврат Истина;
|
|||
|
КонецФункции
|
|||
|
Функция ТекущийИндекс() Экспорт
|
|||
|
Если Неопределено = ТекИндекс Тогда
|
|||
|
ЭтотОбъект.СброситьПозицию()
|
|||
|
КонецЕсли;
|
|||
|
Возврат ТекИндекс;
|
|||
|
КонецФункции
|
|||
|
Функция ТекущийЭлемент() Экспорт
|
|||
|
Если НЕ ЭтотОбъект.ИндексКорректен() Тогда
|
|||
|
Возврат Неопределено;
|
|||
|
КонецЕсли;
|
|||
|
|
|||
|
Возврат ЭтотОбъект.Получить(ЭтотОбъект.ТекущийИндекс());
|
|||
|
КонецФункции
|
|||
|
Функция СледующийЭлемент() Экспорт
|
|||
|
Если НЕ ЭтотОбъект.Следующий() Тогда
|
|||
|
Возврат Неопределено;
|
|||
|
КонецЕсли;
|
|||
|
|
|||
|
Возврат ЭтотОбъект.ТекущийЭлемент();
|
|||
|
КонецФункции
|
|||
|
Функция УстановитьИндекс(_Индекс) Экспорт
|
|||
|
ИтерацияНачата = Истина;
|
|||
|
ТекИндекс = _Индекс;
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
Функция Продвинуть(НаСколько=1) Экспорт
|
|||
|
ИтерацияНачата = Истина;
|
|||
|
ЭтотОбъект.УстановитьИндекс(ЭтотОбъект.ТекущийИндекс() + НаСколько);
|
|||
|
Возврат ЭтотОбъект;
|
|||
|
КонецФункции
|
|||
|
Функция ИндексКорректен() Экспорт
|
|||
|
Возврат ЭтотОбъект.ТекущийИндекс() <= ЭтотОбъект.ВГраница() И 0 <= ЭтотОбъект.ТекущийИндекс();
|
|||
|
КонецФункции
|
|||
|
|
|||
|
Функция Максимум() Экспорт
|
|||
|
Результат = ЭтотОбъект.Первый();
|
|||
|
Результат = ЭтотОбъект.Свернуть("Результат = Макс(Результат,Элемент)", Результат);
|
|||
|
Возврат Результат;
|
|||
|
КонецФункции
|
|||
|
Функция Минимум() Экспорт
|
|||
|
Результат = ЭтотОбъект.Первый();
|
|||
|
Результат = ЭтотОбъект.Свернуть("Результат = Мин(Результат,Элемент)", Результат);
|
|||
|
Возврат Результат;
|
|||
|
КонецФункции
|
|||
|
Функция Сумма() Экспорт
|
|||
|
Результат = 0;
|
|||
|
Результат = ЭтотОбъект.Свернуть("Результат = Результат + Элемент", Результат);
|
|||
|
Возврат Результат;
|
|||
|
КонецФункции
|
|||
|
Функция Среднее() Экспорт
|
|||
|
Результат = ЭтотОбъект.Сумма() / ЭтотОбъект.Количество();
|
|||
|
Возврат Результат;
|
|||
|
КонецФункции
|
|||
|
Функция Медиана() Экспорт
|
|||
|
Результат = ЭтотОбъект.Первый();
|
|||
|
|
|||
|
мСорт = ЭтотОбъект.Клонировать().Сортировать();
|
|||
|
Если 0 < мСорт.Количество() % 2 Тогда
|
|||
|
Возврат мСорт.Получить(мСорт.ВГраница() / 2);
|
|||
|
КонецЕсли;
|
|||
|
|
|||
|
Индекс1 = Окр(мСорт.ВГраница() / 2, 0, РежимОкругления.Окр15как10);
|
|||
|
Индекс2 = Окр(мСорт.ВГраница() / 2, 0, РежимОкругления.Окр15как20);
|
|||
|
|
|||
|
Если Индекс1 <= мСорт.ВГраница() И Индекс2 <= мСорт.ВГраница() Тогда
|
|||
|
Значение1 = мСорт.Получить(Индекс1);
|
|||
|
Значение2 = мСорт.Получить(Индекс2);
|
|||
|
Если Тип("Число") = ТипЗнч(Значение1) Тогда
|
|||
|
Результат = (Значение1 + Значение2) / 2;
|
|||
|
Иначе
|
|||
|
Результат = Значение1;
|
|||
|
КонецЕсли;
|
|||
|
КонецЕсли;
|
|||
|
|
|||
|
Возврат Результат;
|
|||
|
КонецФункции
|