all-in-one-seo-pack domain was triggered too early. This is usually an indicator for some code in the plugin or theme running too early. Translations should be loaded at the init action or later. Please see Debugging in WordPress for more information. (This message was added in version 6.7.0.) in /home/hwor/blagovest.org.ru/wp-includes/functions.php on line 6114kirki была запущена слишком рано. Обычно это индикатор того, что какой-то код в плагине или теме запускается слишком рано. Переводы должны загружаться при выполнении действия init или позже. Дополнительную информацию можно найти на странице «Отладка в WordPress». (Это сообщение было добавлено в версии 6.7.0.) in /home/hwor/blagovest.org.ru/wp-includes/functions.php on line 6114shamrock была запущена слишком рано. Обычно это индикатор того, что какой-то код в плагине или теме запускается слишком рано. Переводы должны загружаться при выполнении действия init или позже. Дополнительную информацию можно найти на странице «Отладка в WordPress». (Это сообщение было добавлено в версии 6.7.0.) in /home/hwor/blagovest.org.ru/wp-includes/functions.php on line 6114Задайте вопрос и получите ответ
VBScript.
есть переменная temp
temp=InputBox("Введите данные","Ввод данных")
надо чтобы юзер ввел туда числа
но без проверки он может ввести туда символы типа "char" или "string" и скрипт завершится ошибкой (про On Error Resume Next не напоминайте)
вопрос: как проверить в строке наличие любых остальных типов данных, кроме "integer"? тоесть чтобы допускались только цифры!
intemp=InStr(temp,*буква*) — это слишком большая для меня морока перечислять все буквы всех алфавитов;)
к сожалению, InputBox всегда возвращает строку 🙂
можно проверять введенные данные ф-циями IsNumeric, либо Val, во второй может быть засада — например, если в региональных установках точка будет как разделить целой и дробной частей, то значение 555,99 просто молча обрежется до 555. А также Val("строка") вернет ноль.
Поэтому с IsNumeric работать предпочтительнее.
То есть делать что-то такое:
Dim ss
ss = "xx"
While Not IsNumeric(ss)
ss = InputBox("Введите число", "Ввод данных") ‘ Не выпускаем пользователя, пока не введет число
Wend