VBScript, Имя массива из переменной

[serg28serg]

Скрипт в HTA файле

Создаю несколько одинаковых массивов

Код: Выделить всё

           ATmega16   =     Array ("1FF1", "1FF3", "1FF5", "1FFF")
           ATmega32   =     Array ("2FF1", "2FF3", "2FF5", "2FFF")
           ATmega64   =     Array ("3FF1", "3FF3", "3FF5", "3FFF")
           ATmega640  =     Array ("4FF1", "4FF3", "4FF5", "4FFF")

в зависимости от хода алгоритма надо брать данные из разных массивов, соответственно загоняю в переменную имя массива
например

Код: Выделить всё

strDevice = "ATmega32"

Теперь надо вытащить данные (под I-тым номером) из массива , имя которого сохранено в переменной
Как это сделать на VBScript ?

[dr.MIG]

А чем не устраивают двумерные массивы? Вместо четырёх одномерных можно создать один двумерный и обращаться к определённым элементам по индексам.

[serg28serg]

Так просто имена массивов я выбирал уже из существующих значений переменных, т.е. те которые все равно нужно иметь в командной строке для запуска экзешника для которого все это делалось.
так есть что нить такое в VBScript ??? , получается что то типа адресацией через указатели

[ALX_2002]

Ммм... А Scripting.Dictionary не пойдёт ? Он как коллекция работает. В элемент коллекции можно массив положить.

Код: Выделить всё


Dim Dictionary
Set Dictionary = CreateObject("Scripting.Dictionary")
Dictionary("Array1") = Array("1","2","3")
Dictionary("Array2") = Array("а","б","в")
Dictionary("Array3") = Array("a","b","c")

ArrayName = "Array2"

For Each Element in Dictionary(ArrayName)
   MsgBox Element
Next


[serg28serg]

ALX_2002
Спасибо за помощь.

И еще пара вопросов

1. Возможно ли из VBScript вызвать окно ”Save As” (сохранить как) ??? , не путать с ”Открыть”
Что бы юзер мог выбрать папку из существующих и вписать название нового файла, потом этот путь и введенное имя файла надо вернуть в скрипт.


2. Путь что из первого пункта может оказаться с длинными именами, как его обрезать до короткого формата ??? (экзешник не понимает когда ему даешь длинные пути), вроде есть какая-то стандартная функция в VBS

[Antonariy]

1)

Код: Выделить всё

    Set dlg = CreateObject("MSComDlg.CommonDialog")
    dlg.ShowSave

2) Понимает. Длинные пути передаются в кавычках.

[serg28serg]

1)

Код: Выделить всё

    Set dlg = CreateObject("MSComDlg.CommonDialog")
    dlg.ShowSave

.

Пробовал вставлять в HTA файл по всякому (с максимумом аргументов и без) , диалог "Save As" не всплывает

Все таки пошел через

Код: Выделить всё

set oDlg= createObject("safrcFileDlg.fileSave")
oDlg.fileName= "*.hex"
oDlg.fileType= "Файлы прошивки"
qSln= cbool(oDlg.openFileSaveDlg)
select case qSln
   case true
      wscript.echo oDlg.fileName
   case false
      wscript.echo "Dialog cancelled."
end select

strFilehex = oDlg.fileName

2) Понимает. Длинные пути передаются в кавычках.

Я по этому пути не экзешник запускаю, а отдаю экзешнику файл с путем как аргумент командной строки, а он ни каких кавычек и пробелов в пути не приемлет – не умеет фильтровать , как то нужно в формат 8.3 путь превратить

Вот нашел пример через

Код: Выделить всё

Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile("C:\autoexec.bat")
Str = vbNullString
Str = Str & "Путь в формате 8.3 - " & File.ShortPath & vbCrLf
MsgBox Str

Но как на место "C:\autoexec.bat", мне свою переменную с путем подставить ?

ЗЫ: после часа проб и ошибок в конце концев откопал

Код: Выделить всё

Set File = FSO.GetFile("" & strFilehex & "")

Кто-нибудь даст мне ссылку на подробное объяснение как использовать кавычки ??? , где ставят по две с каждой стороны, где по четыре с каждой, сколько копаюсь в VBScripte, до сих пор так и не понял, каждый раз на этом напарываюсь.

[Хакер]

Смешно прибавлять к строку пустую строчку справа и пустую строчку слева...

[Antonariy]

Пробовал вставлять в HTA файл по всякому (с максимумом аргументов и без) , диалог "Save As" не всплывает

Тогда юзай <object>.

как то нужно в формат 8.3 путь превратить

FSO.File.ShortPath

[alibek]

Set dlg = CreateObject("MSComDlg.CommonDialog")

А ты уверен, что это сработает?
MSComDlg.CommonDialog это ActiveX Control, который ставится и регистрируется в системе при установке VB. Стандартно его нет.
Я бы скорее диалоги офиса использовал.