helpf.pro
  Регистрация
Все категории » Работа с Массивом, Структурой, Соответствием Работа с Массивом, Структурой, Соответствием 
 +4 
 
 
Распечатать

Массив ~ Как удалить повторяющиеся элементы массива?

Код 1C v 8.х
 Функция УдалитьПовторяющиесяЭлементыМассива(Массив) Экспорт 

 ТекущийИндекс = 0; 

	ВсегоЭлементов = Массив.Количество(); 

	Пока ТекущийИндекс < ВсегоЭлементов Цикл 

		Индекс2 = ТекущийИндекс + 1; 

		Пока Индекс2 < ВсегоЭлементов Цикл 

			Если Массив[Индекс2] = Массив[ТекущийИндекс] Тогда 

				Массив.Удалить(Индекс2); 

				ВсегоЭлементов = ВсегоЭлементов - 1; 

			Иначе 

				Индекс2 = Индекс2 + 1; 

			КонецЕсли; 

		КонецЦикла; 

		ТекущийИндекс = ТекущийИндекс + 1; 

	КонецЦикла; 

Возврат Массив; 

КонецФункции
Разместил:   Версии: | 8.x | 8.2 УП |  Дата:   Прочитано: 57658
 +4 
 
 
Распечатать
Возможно, вас также заинтересует
1С Предприятие что это?  12
  Что такое 1С? 1С — это фирма , у которой одно из направлений деятельности — разработка программного обеспечения для автоматизации бизнес-процессов предприятий. « 1С:Предприятие » - конкретный продукт, который выпускает компания 1С . Что такое
COM-подключение к базе 7.7 из .NET, .NET Core  2
  Инсталяция: dotnet add package sabatex.V1C77 или добавить через NUGET пакет sabatex.V1C77. Добавить пространство имен: using sabatex.V1C77; пример использованя: ---C# static void Main(string args) { // создаем строку соединен
Google maps : вывод точек на карту и режим панорамы  9
  В отличие от яндекс карт в GMaps можно использовать панорамы - за что им большой плюс! Надеюсь в яндексе прочитают этот пост и тоже когда-нибудь это сделают! Для клиента нужно было сделать вывод объектов на карту С возможностью просмотра панора
Google maps, поиск оптимального маршрута  5
 В данном посте хочу коснуться основных аспектов построения оптимального маршрута с использованием API Google maps. Исходные данные для построения маршрута: * Географические координаты объектов, которые хранятся в базе; * Координаты начальной и коне
ZIP-архив Чтение  1
 Для того чтобы прочитать файлы из ZIP-архива необходимо выполнить несколько простых действий: - Открыть необходимый архив - Распаковать файлы Создание объекта ЧтениеZIPФайла можно осуществить двумя путями - создать инициализированный объект или
Посмотреть все результаты поиска похожих
Комментарии
all4cf
27.07.2016 01:14Комментарий: 2
all4cf

как Удалить дубли из массива

Код 1C v 8.х
 // Заполняет массив-приемник уникальными значениями из массива-источника.

 // Если элемент в массиве-приемнике уже существует, то добавления нового элемента не происходит.

 //

 // Параметры:

 //  МассивПриемник – Массив – массив, который заполняется уникальными значениями

 //  МассивИсточник – Массив – массив, из которого подбираются элементы в массив-приемник.

 // 

 Процедура ЗаполнитьМассивУникальнымиЗначениями(МассивПриемник, МассивИсточник) Экспорт

     Для Каждого Элемент Из МассивИсточник Цикл

        Если МассивПриемник.Найти(Элемент) = Неопределено Тогда

            МассивПриемник.Добавить(Элемент);

         КонецЕсли;

    КонецЦикла;    

КонецПроцедуры
TS_MAXIMUS
10.03.2012 13:41Комментарий: 1
TS_MAXIMUS
Ну ещё можно вот так:


Функция УдалитьПовтЭлМассива(Массив) Экспорт
индекс=0;
Пока индекс<=Массив.ВГраница() Цикл
Индекс1=Индекс + 1;
Пока Индекс1 <= Массив.ВГраница() Цикл
Если Массив[Индекс]=Массив[Индекс1] Тогда
Массив.Удалить(Индекс1);
Индекс1 = Индекс1 - 1;
КонецЕсли;
Индекс1 = индекс1 + 1;
КонецЦикла;
индекс = индекс + 1;
КонецЦикла;
Возврат Массив;

КонецФункции
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.