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

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

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

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

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

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

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

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

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

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

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

			Иначе 

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

			КонецЕсли; 

		КонецЦикла; 

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

	КонецЦикла; 

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

КонецФункции
Разместил:   Версии: | 8.x | 8.2 УП |  Дата:   Прочитано: 54014
 +4 
 
 
Распечатать
Возможно, вас также заинтересует
1С Предприятие что это?  12
  Что такое 1С? 1С — это фирма , у которой одно из направлений деятельности — разработка программного обеспечения для автоматизации бизнес-процессов предприятий. « 1С:Предприятие » - конкретный продукт, который выпускает компания 1С . Что такое
Google maps : вывод точек на карту и режим панорамы  9
  В отличие от яндекс карт в GMaps можно использовать панорамы - за что им большой плюс! Надеюсь в яндексе прочитают этот пост и тоже когда-нибудь это сделают! Для клиента нужно было сделать вывод объектов на карту С возможностью просмотра панора
Google maps, поиск оптимального маршрута  5
 В данном посте хочу коснуться основных аспектов построения оптимального маршрута с использованием API Google maps. Исходные данные для построения маршрута: * Географические координаты объектов, которые хранятся в базе; * Координаты начальной и коне
ZIP-архив Чтение  0
 Для того чтобы прочитать файлы из ZIP-архива необходимо выполнить несколько простых действий: - Открыть необходимый архив - Распаковать файлы Создание объекта ЧтениеZIPФайла можно осуществить двумя путями - создать инициализированный объект или
Автоматизация обмена данных используя обработку "Универсальный обмен данными в формате XML"  10
  Автоматизация обмена между базами используя обработку " Универсальный обмен данными в формате XML" В основу данной публикации положены найденные мною материалы по cозданию обмена между двумя базами с использованием обработки " Универсальный обме
Посмотреть все результаты поиска похожих
Комментарии
mclay88
24.02.2016 13:13Комментарий: 1
mclay88
Код 1C v 8.3
 ВТ = Новый ТаблицаЗначений;

ВТ.Колонки.Добавить("К1");





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

	СтрокаВТ = Вт.Добавить();

	СтрокаВТ.К1 = Элемент;

КонецЦикла;





ВТ.Свернуть("К1");





Массив = ВТ.ВыгрузитьКолонку("К1");
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.