VBS/WSH/JS - [решено] Динамическое построение двумерного массива

VBS/WSH/JS - [решено] Динамическое построение двумерного массива

McLotos

Старожил

Сообщения: 410
Благодарности: 21

Профиль | Отправить PM | Цитировать

Изменения

Автор: McLotos
Дата: 03-11-2013

Добрый вечер. Вытягивая данные из AD я получаю список компьютеров, но хотелось бы получать удобный массив. Весь вечер долбался, но нормально срабатывает только создание одномерного массива, а хотелось бы получить массив примерно такого типа
Computers(num,1)=1PC
Computers(num,2)=2PC
Computers(A,1)=Andrey
Computers(A,2)=ALex
и т.д. по алфавиту
Ну т.е. чтобы в дальнейшем можно было получать не весь массив а только какую-то его часть, например передавать первую букву и получать все компьютеры начинающиеся на эту букву.
В данный момент я остановился на таком варианте кода

Код:

If IsNumeric(Left(adoRecordset.Fields("name").Value,1)) Then 
    num=num+1
 Else
.......

А дальше стоит огромный Select Case со всеми возможными вариантами букв, при чем по 2 раза, потому-что функция StrComp() почему-то никак не хочет срабатывать. т.е. если я пишу что-то типа

Код:

StrComp(Left(adoRecordset.Fields("name").Value,1),"A")=1

, то компьютеры начинающиеся с маленькой буквы почему-то не попадают в этот список. и под каждую букву сначала создаётся переменная a=0, b=0 и т.д., потом они догоняются до a=количество машин на А
и дальше, такая же конструкция

Код:

If IsNumeric(Left(adoRecordset.Fields("name").Value,1)) Then 
   
 Else
.......

уже забивает полученные массивы с размерами нужными данными.
Подскажите как можно не создавая портянку из кода, грамотно создать двумерный массив по аналогии с тем, который я представил выше. Заранее спасибо.

-------
Старайтесь не решать свои проблемы по средствам личных сообщений, они могут быть решены очень не скоро.Не забывайте пользоваться поиском по форуму.Помните что уникальных проблем не бывает.Если всё-таки ответа не нашли, создайте тему, с подробным описанием проблемы.Спасибо за понимание.

Отправлено: 00:35, 03-11-2013