Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
virainf
Зарегистрирован: 15.01.2009 Сообщения: 58
|
Добавлено: Чт Окт 15, 2009 3:08 pm Заголовок сообщения: Вопрос по VBS |
|
|
Как прекратить выполнение кода?
Не функции, не процедуры, а всего кода целиком! |
|
Вернуться к началу |
|
|
olimp Site Admin
Зарегистрирован: 10.03.2005 Сообщения: 2661
|
Добавлено: Чт Окт 15, 2009 3:37 pm Заголовок сообщения: Re: Вопрос по VBS |
|
|
virainf писал(а): | Как прекратить выполнение кода?
Не функции, не процедуры, а всего кода целиком! |
Выдернуть шнур из розетки :)
Можно вопрос "развернуть" ? |
|
Вернуться к началу |
|
|
Юров Ю.С.
Зарегистрирован: 11.03.2005 Сообщения: 383 Откуда: Павлоград
|
Добавлено: Чт Окт 15, 2009 6:54 pm Заголовок сообщения: Re: Вопрос по VBS |
|
|
virainf писал(а): | Как прекратить выполнение кода?
Не функции, не процедуры, а всего кода целиком! |
Закрыть приложение, в котором этот скрипт выполняется.
Для Windows Script Host иногда очень удобно
Код: | Option Explicit
If wscript.Arguments.Count=0 Then MsgBox "Не передан аргумент" : wscript.Quit
Dim fpn : fpn=wscript.Arguments(0)
Call ChangeDateLMod(fpn)
Sub ChangeDateLMod(fpn)
......................
|
В Акценте такой подход (app.Quit) тоже работает, но действительно - что вилку из розетки вытащить, что приложение выполняющее код прекратить. |
|
Вернуться к началу |
|
|
virainf
Зарегистрирован: 15.01.2009 Сообщения: 58
|
Добавлено: Пт Окт 16, 2009 9:02 am Заголовок сообщения: |
|
|
Я так понял, что app.quit вырубает Акцент. Но мне не это надо.
Есть отчет, в котором есть процедуры, функции и т.д.
Вне процедур и функций по условию нужно остановить работу отчета.
Пока обошолся if then else.
Но просто для интереса.
Чтото типа Exit для Pascal. |
|
Вернуться к началу |
|
|
olimp Site Admin
Зарегистрирован: 10.03.2005 Сообщения: 2661
|
Добавлено: Пт Окт 16, 2009 10:54 am Заголовок сообщения: |
|
|
virainf писал(а): | Я так понял, что app.quit вырубает Акцент. Но мне не это надо.
Есть отчет, в котором есть процедуры, функции и т.д.
Вне процедур и функций по условию нужно остановить работу отчета.
Пока обошолся if then else.
Но просто для интереса.
Чтото типа Exit для Pascal. |
Если это отчет, то Close |
|
Вернуться к началу |
|
|
virainf
Зарегистрирован: 15.01.2009 Сообщения: 58
|
Добавлено: Пт Окт 16, 2009 3:12 pm Заголовок сообщения: |
|
|
Простите, не так сформулировал вопрос.
Отчет строится модулем и пишется в Excel. |
|
Вернуться к началу |
|
|
olimp Site Admin
Зарегистрирован: 10.03.2005 Сообщения: 2661
|
Добавлено: Пт Окт 16, 2009 4:36 pm Заголовок сообщения: |
|
|
virainf писал(а): | Простите, не так сформулировал вопрос.
Отчет строится модулем и пишется в Excel. |
Просто не получится. Нужно ставить семафор и его проверять после вызова процедур, если в цикле что-то обрабатывается.
А внутри процедур
Exit Sub
Exit Function |
|
Вернуться к началу |
|
|
|