Виводить перупреждения если введений текст не на английском

@homeandriy · Регистрация: 06.07.2013

Author24 — интернет-сервис помощи студентам

Доброго времени суток. Есть такая проблема некая UserForm (с полем TextBox) принимает значения введенное Юзером (через штрих сканер). Данное значения обычный МАС-адрес устройства. Нужно придумать так, что когда Юзер нажимал на кнопку "Внести данные" запускалась процедура, которая проверяла текст введенный сканером, и если там присутствовали только английские символы, то тогда код обрабатывался дальше, а если нет то:

Visual Basic

1	MsgBox (" Переключи раскладку клавиатуры и введи по новой!")

Что то типа такого. Такое реально сделать?

@Igor_Tr · 06.09.2013, 15:34

Если чесно, как научить машину распознать что именно английским (а не немецким, например) не знаю, думаю можно, но ходов много нужно будет. Научить понимать шрифт (кирилица/английский) - это легче. В редакторе нажмите F1, в поиск загоните character set и откройте 0 - 127. Вот проверяйте текст по этим кодам (создайте сами функцию, или думаю, можна найти что-то в сети).

@homeandriy · 06.09.2013, 16:19 **[ТС]**

Идею я уже понял, но организовать особо представления нет.
насколько я понял нужно втаскивать по одному символу и проверять находится ли он в диапазоне от 0 до 127

@Igor_Tr · 06.09.2013, 16:36

Вы не смотрели внимательно. Коды больших латинских - от 65 до 90 (e.g. - chr(70)). Коды маленьких - от 97 до 122. Их надо проверять - в пределах, или нет. Лучше через функцию (я где-то встречал что-то уже готовое, но поиск ведите английским. И, думаю, все не нужно проверять. Тяжело представить, что кто-то, кому нужно ввести английским, вводит, потом переключает, вводит, опять переключает. Смотрите сами, по типу текста.

@Step_UA · 06.09.2013, 16:36

Visual Basic

1	If n Like "[!" + ChrW(0) + "-" + ChrW(127) + "]" Then MsgBox "Переключись" ' n - значение проверяемого поля

@Igor_Tr · 06.09.2013, 16:41

Быстро и просто.

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	06.09.2013, 15:34	2
	Если чесно, как научить машину распознать что именно английским (а не немецким, например) не знаю, думаю можно, но ходов много нужно будет. Научить понимать шрифт (кирилица/английский) - это легче. В редакторе нажмите F1, в поиск загоните character set и откройте 0 - 127. Вот проверяйте текст по этим кодам (создайте сами функцию, или думаю, можна найти что-то в сети). 0

@homeandriy 0 / 0 / 0 Регистрация: 06.07.2013 Сообщений: 13
	06.09.2013, 16:19 [ТС]	3
	Идею я уже понял, но организовать особо представления нет. насколько я понял нужно втаскивать по одному символу и проверять находится ли он в диапазоне от 0 до 127 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	06.09.2013, 16:36	4
	Вы не смотрели внимательно. Коды больших латинских - от 65 до 90 (e.g. - chr(70)). Коды маленьких - от 97 до 122. Их надо проверять - в пределах, или нет. Лучше через функцию (я где-то встречал что-то уже готовое, но поиск ведите английским. И, думаю, все не нужно проверять. Тяжело представить, что кто-то, кому нужно ввести английским, вводит, потом переключает, вводит, опять переключает. Смотрите сами, по типу текста. 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	06.09.2013, 16:41	6
	Быстро и просто. 0

Виводить перупреждения если введений текст не на английском

Решение