Вызов процедуры с произвольным колличеством параметров

[Edhunter]

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

[Antonariy]

Проще сделать так, чтобы процедуры принимали коллекцию и брали необходимые параметры из нее.

[GSerg]

sub asdf(paramarray p)
end sub

[Antonariy]

GSerg
Не то.

[Edhunter]

Я сейчас работаю с VBS и неочень представляю как ему передать коллекцию

[Edhunter]

На самом деле мне нужно что то вроде парсинга вызова процедуры. Мне как то не хочется переписывать все процедуры, что бы они принимали на вход коллекцию. Опять же метод нужен унифицированный. Будет тяжело заставить людей писать процедуры так как я считаю нужным

[Antonariy]

Воспользуйся Scripting.Dictionary
Хотя на твоем месте я бы не стал заморачиваться с подобной унификацией. Тем более в VBS.

[Antonariy]

На самом деле мне нужно что то вроде парсинга вызова процедуры. Мне как то не хочется переписывать все процедуры, что бы они принимали на вход коллекцию. Опять же метод нужен унифицированный. Будет тяжело заставить людей писать процедуры так как я считаю нужным

Отсюда поподробнее. VBS? Через скрипт контрол? Как вызываются процедуры? Что значит какие-то люди пишут процедуры?

[GSerg]

GSerg
Не то.

Обоснуй.

[Edhunter]

У меня есть приложение со встроенным языком програмирования VBS. Мне нужно извне (например из Офиса) звать процедуры написаные в этом приложении. Вызов звучит примерно так:
tdms.ExecuteScript "Имя команды", "Имя процедуры", параметры через запятую

[Antonariy]

Тогда, действительно, примерно так, как сказал GSerg

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

Function ExecuteScript(CmdName as String, ProcName as String, ParamArray Params())
    Select case LCase(ProcName)
        Case "somefunc"
            ExecuteScript=SomeFunc(Params(0), Params(1))
            'Не знаю уж что значит "Имя команды"...
....
End Function

[Edhunter]

Мде... При использовании Case его ведь придётся "учить" каждой новой процедуре, что не есть гуд. Хотя и как вариант...
Вобщем буду ещё думать

[Antonariy]

Советую все-таки подумать о переписании вызова собственных процедур - можно будет объединить их в класс и сделать так:

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

Function ExecuteScript(ProcName as String, ParamArray Params())
    ExecuteScript=CallByName(FuncClass, ProcName, VbMethod, Params)
End Function

'А процедуры изменить - всего лишь:
Function SomeFunc(Param1, Param2)
'на
Function SomeFunc(Params())
Dim Param1, Param2
Param1 = Params(0)
Param2 = Params(1)