Удаление повторяющихся чисел из массива

@silver100182 · Регистрация: 15.10.2013

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста с такой задачкой на VBScript.
Есть массив, в котором находятся например 8, 5, 6, 7, 5, 10, 6 числа.
Мне нужно убрать из него повторяющиеся числа. То есть в итоге должно получиться 8, 5, 6, 7, 10
Спасибо за помощь.

@Dmitrii · 16.10.2013, 00:05

silver100182, помощь предполагает наличие каких-либо результатов вашего труда. Каковы они?

@silver100182 · 16.10.2013, 00:48 **[ТС]**

Никакие =)
То есть здесь баш на баш? Я думал можно обратиться =)

@Joeymax · 16.10.2013, 01:22

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Dim d: Set d = CreateObject("Scripting.Dictionary")
Dim a: a = Array(8,5,6,7,5,10,6)
 
For i = 0 To UBound(a)
    If Not d.Exists(a(i)) Then d.Add a(i), i    
Next
 
a = d.Keys
For i = 0 To d.Count -1
    WScript.Echo a(i)
Next

@silver100182 · 16.10.2013, 02:03 **[ТС]**

Спасибо, но уже справился =)
Но всё равно спасибо, я тоже реализовал через Scripting.Dictionary но используя CompareMode vbTextCompare

@Dmitrii · 16.10.2013, 07:56

Не по теме:

Сообщение от silver100182

... Я думал можно обратиться...

Обратиться-то можно. Однако не на всякое обращение последует ответ.
Далеко не у всех и не всегда есть желание писать тривиальный сценарий за спрашивающего, который не только не представил своего (пусть и не работающего) варианта кода, но даже не потрудился поискать по форуму аналогичные темы. Помните поговорку: "Под лежачий камень вода не течёт"?
Показать результаты своего труда - в ваших же интересах. Вероятность получения ответа на такой вопрос существенно выше.

Dragokas · 17.10.2013, 16:42

Не по теме:

Сообщение от silver100182

То есть здесь баш на баш?

И в чем заключается Ваш баш?

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@silver100182 0 / 0 / 0 Регистрация: 15.10.2013 Сообщений: 3

	Удаление повторяющихся чисел из массива 15.10.2013, 22:48. Показов 3284. Ответов 6 Метки нет (Все метки) Помогите пожалуйста с такой задачкой на VBScript. Есть массив, в котором находятся например 8, 5, 6, 7, 5, 10, 6 числа. Мне нужно убрать из него повторяющиеся числа. То есть в итоге должно получиться 8, 5, 6, 7, 10 Спасибо за помощь. 0

@Dmitrii 2619 / 549 / 109 Регистрация: 21.03.2012 Сообщений: 1,051
	16.10.2013, 00:05
	silver100182, помощь предполагает наличие каких-либо результатов вашего труда. Каковы они? 0

@silver100182 0 / 0 / 0 Регистрация: 15.10.2013 Сообщений: 3
	16.10.2013, 00:48 [ТС]
	Никакие =) То есть здесь баш на баш? Я думал можно обратиться =) 0

@silver100182 0 / 0 / 0 Регистрация: 15.10.2013 Сообщений: 3
	16.10.2013, 02:03 [ТС]
	Спасибо, но уже справился =) Но всё равно спасибо, я тоже реализовал через Scripting.Dictionary но используя CompareMode vbTextCompare 0