разсортировать переменные

[SoFuWa]

Есть допустим такие переменные содержащие числа
X= 7
Y= 4
V= 9
B= 2

Так вот мне нужно рассортировать эти переменные по возрастанию, не просто числа, это просто, а присвоить каждой переменной порядковый номер.

Например так, сделав вот такие переменные:
XX=3
YY=2
VV=4
BB=1

Что бы у меня была информация о том как эти переменные между собой относятся по их значениям, это нужно для скрипта. Что то не могу придумать как сделать.

Просто занести всё в массив и методом пузырька отсортировать, мне не надо =)), это будет просто безсмысленый набор чисел.

[R Dmitry]

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

Есть допустим такие переменные содержащие числа
X= 7
Y= 4
V= 9
B= 2

Так вот мне нужно рассортировать эти переменные по возрастанию, не просто числа, это просто, а присвоить каждой переменной порядковый номер.

Например так, сделав вот такие переменные:
XX=3
YY=2
VV=4
BB=1

Что бы у меня была информация о том как эти переменные между собой относятся по их значениям, это нужно для скрипта. Что то не могу придумать как сделать.

Просто занести всё в массив и методом пузырька отсортировать, мне не надо =)), это будет просто безсмысленый набор чисел.

Вам поможет словарь или коллекция

[SoFuWa]

Что то я в яндаксе не нашёл что такое словарь, это тоже самое что коллекция?
Вообще то это и есть уже коллекция VBScript Regular Expressions - MatchCollection использую это библиотеку для поиска с помощью регулярных выражений, вот такой доступ к данным aMatch.SubMatches(0) и всё равно не знаю как =) Как то использовать ключи? Наверное надо ещё одну коллекцию создать, свою.

[R Dmitry]

тынц

смотрим и изучаем

[SoFuWa]

спасибо посмотрим

[Казанский]

Можно выложить переменные на лист, отсортировать и найти порядковые номера:

Sub vvq()
x = 7
y = 4
v = 9
b = 2

With Worksheets.Add
    [A1] = x
    [A2] = y
    [A3] = v
    [A4] = b
    [A1].Sort [A1], xlAscending, header:=xlNo
    XX = WorksheetFunction.Match(x, [A1:A4], 0)
    YY = WorksheetFunction.Match(y, [A1:A4], 0)
    vv = WorksheetFunction.Match(v, [A1:A4], 0)
    bb = WorksheetFunction.Match(b, [A1:A4], 0)
    Application.DisplayAlerts = False
    .Delete
    Application.DisplayAlerts = True
End With
End Sub