VBS/JS: перенос массива между языками

alexii, я создаю массив на vbs, обрабатываю его в js через SC и возвращаю обратно в vbs, чтобы дальше обрабатывать.

alexii
В vbs основной код. Не вижу смысла wsf притягивать.
Так есть возможность?

Каким образом?

alexii
Хорошо, а как правильно в addcode переменную с массивом экспортировать?

Mass = Array(1,2,3)
...
.addcode "var a = new VBArray(Mass); var b = a.toArray();"

alexii, так тоже пробовал, ругается..

Японцы написали в 2004 году

arr=Array("п","р","я","а","g")
Set SC = CreateObject("ScriptControl")
SC.Language = "JScript"
SC.AddCode("function VBArraySort(vbarray){" & _
"return(new VBArray(vbarray).toArray().sort());}")
Set js=SC.Run("VBArraySort",arr)
WScript.Echo js ''
WScript.Echo TypeName(js) 'JScriptTypeInfo
WScript.Echo js.length '5
For Each item In js
WScript.Echo item
Next

Поиск Google:"ScriptControl WSH VBArray"

badik, вполне себе вариант.

alexii, объект вроде бы имеет подтип String, но его уже можно обрабатывать в цикле как массив/коллекцию, а это дорогого стоит.

alexii
Первое, что я сделал - это проверил Split. Никаких проблем.
По индексу - понятно. Хотя можно ещё поковырять. Есть length, может ещё есть что-то вроде item.

alexii
Недосып?
Split по умолчанию имеет пробел в качестве разделителя, а не запятую, как в указанном выше коде. К тому же нельзя выводить в окно массив. Как минимум нужно было приписать индекс в скобках.

WScript.Echo Split(js, ",")(1)

И да, я сперва подумал, что речь о заданном массиве:
arr = Split("п,р,я,а,g", ",")

alexii, а Join тут зачем? я же написал, что js имеет подтип String.

Прошу прощения влез в Вашу тему не могу понять как запустить данный код. Потому что задача схожая нужно из VBS -> JS -> VBS. Это скрипт VBS ? Если Вас не затруднит можно пару комментов по коду.

Копирую данный код, и переименовываю расширение файла на VBS вылетает ошибка:

строка 2 символ 1 Невозможно создание объекта контейнером ActiveX: 'ScriptControl'

Такое ощущение что необходима какая-то установка дополнительная?
Запуск произвожу на Windows 7.

Непонятна вот эта строка:

"SC.AddCode("function VBArraySort(vbarray){" & "return(new VBArray(vbarray).toArray().sort());}")"

wildwolf007
По строке:
AddCode - метод ScriptControl, куда и прописывается код указанного языка.
В коде, как видно, записана функция с параметром vbarray, который и будет в качестве переменной передаваться через метод Run, который в свою очередь вернёт результат этой функции для дальнейшей обработки в VBScript.
В коде js создаётся объект через new VBArray с преобразованием переменной из VBS в массив JS с последующим выполнением метода сортировки.

Дословно несколько иначе говорилось. Но, судя по тому, что предложил Rumata, дело может быть не в наличии библиотеки.

Понимаю, что вопрос многократно обсуждался, но добавлю пару слов. Я нахожу размещение проверки архитектуры в коде скрипта более универсальным решением - он заработает даже у тех, кто не знает о существовании папки SysWOW64. Например так:

CheckOSx86x64Args()

Rem основной код начинается здесь
Rem примеры некоторых ActiveX, не имеющих 64x реализации
Set SC = CreateObject("ScriptControl")
Set JRO = CreateObject("JRO.JetEngine")
Set DAO = CreateObject("DAO.DBEngine.36")
CreateObject("ADOX.Catalog").Create "Provider = Microsoft.Jet.OLEDB.4.0;Data Source='C:\test.mdb';"
CreateObject("ADODB.Connection").Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\test.mdb';"

Sub CheckOSx86x64Args()
    Dim CmdLn, Arg
    With CreateObject("WScript.Shell")
        If Replace(LCase(WScript.Path), LCase(.ExpandEnvironmentStrings("%windir%\")), "") = "system32" Then
            CmdLn = Replace(LCase(WScript.FullName), "system32", "syswow64")
            If CreateObject("Scripting.FileSystemObject").FileExists(CmdLn) Then
                CmdLn = CmdLn & " """ & WScript.ScriptFullName & """"
                For Each Arg In WScript.Arguments
                    CmdLn = CmdLn & " """ & Arg & """"
                Next
                .Run CmdLn
                WScript.Quit
                End If
        End If
    End With
End Sub

Скорее всего, проблема была в попытке запуска несуществующей x64 версии ScriptControl. А x32 ScriptControl вроде вполне себе нативен в Win.

Так и есть у меня windows 7 64 разрядная значит тогда этого компонента нет под 64 разрядную ОС?

wildwolf007
Зачем оверквотить? Некрасиво..
Компонент должен быть под x32. Читайте внимательно, что пишут. Задача задействовать 32-битный интерпретатор. 8-й пост вообще никаким боком не касается решения проблемы вызова, там указан метод преобразования, который и задействован в примере badik.

wildwolf007
Ладно бы дело состояло в мире VBS. Читать-то будете, что пишут?
1. Вы похоже не понимаете, что такое избыточное цитирование.
2. Ещё раз по 8-му посту. Там ссылка на метод. С этим понятно? Альтернативы же коснулось в ранних постах, предлагалось использование wsf. Примеров wsf на форуме хватает.
3. Если у Вас что-то не работает, то пишите об этом на основании выше предложенных выходов из ситуации с описанием ошибок.

Да выполняется без ошибок создает на диске C:\ файл акцесса