Программы "Простой софт" www.prostoysoft.ru

ВНИМАНИЕ! РЕКЛАМНЫЕ СООБЩЕНИЯ И ГИПЕРССЫЛКИ В ФОРУМЕ ЗАПРЕЩЕНЫ (посты удаляются автоматически часто с пользователем)
Текущее время: 14.12.2017 19:13

Часовой пояс: UTC + 4 часа




Начать новую тему Ответить на тему  [ Сообщений: 7 ] 
Автор Сообщение
СообщениеДобавлено: 18.05.2016 09:07 
Не в сети

Зарегистрирован: 30.07.2014 14:11
Сообщения: 18
Есть конструкция для InputFromList

If Left(sMoveTo, 2) = "Ok" Then
sMoveTo = Mid(sMoveTo, 4)
Else
MsgBox('Cancel')
WScript.Quit

End If

В блоке Else надо завершить скрипт чтобы не выполнялись команды после End If
какой командой можно это сделать?


Попутные вопросы, чтобы темы не плодить:
Странное поведение MSGBox

Dim sVariable, sAllowed
sVariable = 'Переменная'
MsgBox ("Warning")
sAllowed = MsgBox("Перемещение: " & sVariable, 1, "Перемещение")
MsgBox ("Allow:" & sAllowed)

1.Первый выскакивает как и положено с кнопкой ok, Второй тоже нормально - с двумя кнопками.
Третий как будто запомнил параметры последнего и вылазит с заголовком "Перемещение" и кнопками Ok/Cancel

2. Если чуть изменить строку sAllowed = MsgBox("Перемещение: " & sVariable & " уверены?", 1, "Перемещение")
то есть строка сообщения оканчивается на текст в кавчках "...", а не переменной
то в сообщении MSGBox вместо значений переменных будут имена переменных.


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: 27.09.2016 22:24 
Не в сети
Администратор

Зарегистрирован: 15.02.2006 20:16
Сообщения: 3560
Откуда: Санкт-Петербург
WScript.Quit должно работать.
Странное поведение MsgBox не обнаружили.
Наверное, вы используете старую версию.

_________________
2B OR NOT 2B = TRUE


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: 28.09.2016 06:06 
Не в сети

Зарегистрирован: 30.07.2014 14:11
Сообщения: 18
Dim InputNumber
InputNumber = InputBox('Введите номер')
If InputNumber = NULL Then
MsgBox ("Не найден")
WScript.Quit
End If
MsgBox ("Введено:" & InputNumber)

Если ввести число отрабатывает нормально
Если ничего не ввести - выходит "не найден" и скрипт продолжается - выходит "Введено:"
Может я чтото не так пишу?
Версия 2.537


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: 28.09.2016 07:15 
Не в сети

Зарегистрирован: 30.07.2014 14:11
Сообщения: 18
[про кавычки удалено, разобрался в новом восприятии программы]
Wscript.Quit все так же не работает =(


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: 28.09.2016 20:32 
Не в сети
Администратор

Зарегистрирован: 15.02.2006 20:16
Сообщения: 3560
Откуда: Санкт-Петербург
Доработали кое-что. Можно обновиться.
Вот эта строчка не верна
If InputNumber = NULL Then

Любая операция с NULL-ом будет NULL.
Есть спец. функция IsNull
Но в данном случае нужно просто с пустой строкой сравнивать:
If InputNumber = "" Then

_________________
2B OR NOT 2B = TRUE


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: 29.09.2016 13:08 
Не в сети

Зарегистрирован: 30.07.2014 14:11
Сообщения: 18
Теперь работает, благодарю!


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 7 ] 

Часовой пояс: UTC + 4 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 7


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB