Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
|
Вызов др файла VBS 21.08.02 23:02 Число просмотров: 1442
Автор: + <Mikhail> Статус: Elderman
|
Ideia takaia:
file1:
test.vbs
dim f, sz
Set f = CreateObject("Scripting.FileSystemObject")
set sz = f.OpenTextFile("foo.vbs")
execute sz.ReadAll()
---
file2:
foo.vbs
msgbox "from foo.vbs"
---
Nu a vse ostalnoe tvoe delo kak zamutit1 vyzov funkcii i t.d. , t.k ty imeesh code tam mozhesh iskat1 po imeni ili schitaesh linii v file i estestvenno znaesh gde kakai funkcia na kakoi linii nahoditsia, voobchem dal`she delo tehniki.
|
<programming>
|
Вызов др файла VBS 21.08.02 14:34
Автор: ASJinx Статус: Незарегистрированный пользователь
|
Можноли на vbs вызвать процедуру из другого файла vbs или исполнение другого файла vbs.
Например
123.vbs
----
какой то код
вызов 567.vbs
какой то код
---
567.vbs
-----
какой то код
----
Как сделать этот вызов и вообще это возможно?
|
|
Вызов др файла VBS 02.09.02 22:44
Автор: :-) <:-)> Статус: Elderman
|
Я так понимаю что с простым вызовом любого исполняемого/зарегистрированного в shell типа файла, в том числе и .vbs проблем возникнуть не должно :)
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run("script2.vbs")
---
А чтобы вызывать отдельные ф-ии из других .vbs/.js, можно сделать основной скрипт в формате .wsf:
-----main.wsf-----
<package>
<job id="Main">
<script language="VBScript" src ="subs.vbs">
WScript.Echo "Calling subs from subs.vbs"
Sub1
Sub2
</script>
</job>
</package>
---
-----subs.vbs-----
SUB Sub1
MsgBox "Hello from Sub 1"
END SUB
SUB Sub2
MsgBox "Hello from Sub 2"
END SUB
---
|
|
Вызов др файла VBS 21.08.02 23:02
Автор: + <Mikhail> Статус: Elderman
|
Ideia takaia:
file1:
test.vbs
dim f, sz
Set f = CreateObject("Scripting.FileSystemObject")
set sz = f.OpenTextFile("foo.vbs")
execute sz.ReadAll()
---
file2:
foo.vbs
msgbox "from foo.vbs"
---
Nu a vse ostalnoe tvoe delo kak zamutit1 vyzov funkcii i t.d. , t.k ty imeesh code tam mozhesh iskat1 po imeni ili schitaesh linii v file i estestvenno znaesh gde kakai funkcia na kakoi linii nahoditsia, voobchem dal`she delo tehniki.
|
| |
[Win32] гы 22.08.02 10:25
Автор: paganoid Статус: Member
|
Хыхых %) Интересный, конечно, подход, только вот маленький нюанс - функции execute в VBSCript не имеется ;)
|
| | |
[Win32] гы 22.08.02 21:56
Автор: + <Mikhail> Статус: Elderman Отредактировано 22.08.02 22:10 Количество правок: 3
|
> Хыхых %) Интересный, конечно, подход, только вот маленький > нюанс - функции execute в VBSCript не > имеется ;) 1. execute eto ne function eto statement
see link.
2. Ty by hot` poproboval snachalo, a potom vozmuchalsia.
P.S. kstati execute suchestvuet v VBScriptnachinaia s Version 1.
Execute Statement
|
| | | |
полностью признаю свою ошибку 23.08.02 10:22
Автор: paganoid Статус: Member
|
> > Хыхых %) Интересный, конечно, подход, только вот > маленький > > нюанс - функции execute в VBSCript > не > > имеется ;) > 1. execute eto ne function eto statement > see link. > 2. Ty by hot` poproboval snachalo, a potom vozmuchalsia. > > P.S. kstati execute suchestvuet v > VBScriptnachinaia s Version 1.
Слушай, действительно,я был не прав. А execute я в MSDN искал, не нашел :( (т.ч. я все же попытался проверить)
Спасибо огромное.
|
| | | | |
Проверим 23.08.02 15:06
Автор: ASJinx Статус: Незарегистрированный пользователь
|
Шас проверю. Если пашет то столько проблем решится. Сянкс.
|
|
Вызов др файла VBS 21.08.02 14:50
Автор: paganoid Статус: Member
|
> Как сделать этот вызов и вообще это возможно?
По ходу, нельзя (сам бьюсь над этой проблемой). Есть обходной способ - написать на VBScript COM компоненту 567.wsc и вызывать ее через CreateObject.
|
|
|