Наверно для кого-то не станет открытием (для меня стало), что интерпретатор VBScript работает быстрее интерпретатора 1С 7.7. Например, простейшая операция A=(2+5)/10 прокрученная в цикле 1000000 раз, выполняется в 1С в 4.5 раза дольше. Соответственно возникает мысль определенные участки кода писать на VBScript, а не на 1С. Как я это делаю сейчас:

	ТекстСкрипта="
	|Sub Main
	|I=0
	|Do
	|   A=(2+5)/10
	|   I=I+1
	|Loop While I<1000001
	|End Sub
	|";
	VBS=СоздатьОбъект("MSScriptControl.ScriptControl");
	VBS.Language="vbscript";
	VBS.AddCode(ТекстСкрипта);
	VBS.Run("Main");
 

Но у меня возник вопрос: как (не извращаясь со встраиванием строковых значений в модуль скрипта) передать в скрипт несколько параметров из 1С и вернуть из скрипта несколько результатов. Можно конечно через файл, но это уже явный изврат. И кроме того вопрос: если можно передать в скрипт значения, то только простых типов (дата, число, строка) или все-таки можно передавать сложные (типа массивов) и агрегатные типы?

Конечно, именно в те участки.
Играюсь с библиотекой GfFlAx, оказывается с ее помощью можно такие обалденные графики строить прямо на форме! Вот только методов для рисования в этой библиотечке маловато - круг, прямоугольник, точка, линия... Но имея даже только метод вывода точки, можно делать красивые графики, например рэйтрэйсингом. А уж всякие там градиенты и т.п. делаются на раз. Начал вспоминать что такое синусы с косинусами и операции над матрицами (для создания 3D-графиков с произвольной конструкцией, положением и освещением). Вот только объем подобных вычислений уж очень большой, и разница VBScript с 1С может достигать двух порядков. Но красиво блин...
Ну так подскажет кто-нибудь как параметры в скрипт загонять/получать?

Цитата:

Загонять как обычно.
МойСкрипт.vbs -Первый -Второй

Внутри
If WScript.Arguments(1) и т.д.

maljaev писал(а) 19. Марта 2008 :: 13:44:

А... Не дочитал.
Тогда вообще непонятно. Ну формируй текст скрипта средствами 1С. Надеюсь, не самые большие потери при этом будут.

maljaev писал(а) 19. Марта 2008 :: 13:58:

ХЗ. А что, в WSH есть специальные методы для обработки именно массивов?

Nick писал(а) 19. Марта 2008 :: 14:09:

Будь добр, поподробнее на этот счет. Можно в виде участка кода (ну с десяток значений загнать).

При попытке засунуть в скрипт встроенный в 1С объект (типа ТЗ, СЗ и др.) через AddObject получишь ошибку "плохой тип переменной".
Обходится с помощью ObjRef-сериализации.
пример кода:

	e=СоздатьОбъект("Addin.EventProxy");
	Scr=СоздатьОбъект("MSScriptControl.ScriptControl");
	scr.Language="vbscript";
	т=СоздатьОбъект("ТаблицаЗначений");
	Т.НоваяКолонка("t1");
	Т.НоваяСтрока();
	Т.t1 = 111;
	Scr.AddCode("
	|Function TestVT
	|Set v=GetObject("""+e.Сериализовать(т)+""")
	|v.SelectLines()
	|v.GetLine()
	|TestVT=v.t1
	|End Function");
	Сообщить(Scr.Eval("TestVT()"));
 

в строке сообщений выводится "111", как и ожидаемо

artbear писал(а) 21. Марта 2008 :: 07:58:


А в 1с++ этот функционал перенести нельзя?