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

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

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