ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / как исключить из ввода цифры, знаки препеминая, т.е. все кроме букв
11 сообщений из 11, страница 1 из 1
как исключить из ввода цифры, знаки препеминая, т.е. все кроме букв
    #33557318
Урал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Урал
Гость
вот такой вот вопрос, хотелось бы чтоб при этом первая буква всегда была заглавной, а остальные маленькие.
...
Рейтинг: 0 / 0
21.02.2006, 08:35
| Ответить | Цитировать | Написать  
как исключить из ввода цифры, знаки препеминая, т.е. все кроме букв
    #33557387
nfp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nfp
Гость
Как я понял ты вводишь какие-то символы в поле text1 и нужно убрать все символы кроме букв. Можно попробовать следующим образом
1 Все ненужные символы заменяем () на пробелы
CLvrem=CHRTRAN(alltrim(Thisform.text1.value),'123456789!@#$ ........', space(100))
2 k=len(CLvrem) && длина введенного поля
3 В переменную CLvrem1 перепишем все символы отличные от пробела
CLvrem1=''
for i=1 to k
if substr(CLvrem,i,1)#space(1)
CLvrem1=CLvrem1+substr(CLvrem,i,1)
endif
endfor
4 Thisform.text1.value=Upper(substr(CLvrem1,i,1)) +substr(CLvrem1,2) && Переведем 1-ю букву в заглавную
Thisform.text1.refresh
Это примерный алгоритм не проверенный .
...
Рейтинг: 0 / 0
21.02.2006, 09:14
| Ответить | Цитировать | Написать  
как исключить из ввода цифры, знаки препеминая, т.е. все кроме букв
    #33557410
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksey-K
Участник
Я такие операции выполняю в событии KeyPress объекта.
Вот пример кода, который меняет при вводе в textbox запятую на точку и апостроф на двойную кавычку:
KeyPress:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
LPARAMETERS nKeyCode, nShiftAltCtrl
DO CASE
	CASE TYPE("THIS.Value") == "C" AND nKeyCode =  39 
		*-- Замена ' на "
		DODEFAULT(34, nShiftAltCtrl)
		NODEFAULT
	CASE TYPE("THIS.Value") == "N" AND nKeyCode = 44
		*-- Замена , на .
		DODEFAULT( 46 , nShiftAltCtrl)
		NODEFAULT
ENDCASE
С уважением, Алексей
...
Рейтинг: 0 / 0
21.02.2006, 09:25
| Ответить | Цитировать | Написать  
как исключить из ввода цифры, знаки препеминая, т.е. все кроме букв
    #33557422
Фотография Hel!Riser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hel!Riser
Участник
txt.Format="A" - ввод тока букф
и где-нить в txt.Valid() пропиши
this.Value=PROPER(this.Value) - начать с заглавной
...
Рейтинг: 0 / 0
21.02.2006, 09:32
| Ответить | Цитировать | Написать  
как исключить из ввода цифры, знаки препеминая, т.е. все кроме букв
    #33557423
nfp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nfp
Гость
Пардон! Вам нужна первая большая, а остальные маленькие.Тогда последняя команда будет такая
Thisform.text1.value=Upper(substr(CLvrem1,i,1)) +Lower(substr(CLvrem1,2))

А еще можно посмотреть ANSI значения для букв. Они же располагаются группами . И проверить попадает ли код введенного символа в один из "буквенных" интервалов (cм. команду ANSI ).
...
Рейтинг: 0 / 0
21.02.2006, 09:33
| Ответить | Цитировать | Написать  
как исключить из ввода цифры, знаки препеминая, т.е. все кроме букв
    #33559452
Doktor Gradus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Doktor Gradus
Участник
А для чего именно вам это надо? Ввод фамилии? И что вы будете делать с образчиками типа "Склодовская-Кюри", "Бонч-Бруевич"? Аналогичная проблема с именами и отчествами, причём последнее вообще может отсутствовать.

Поэтому свойство format = A, конечно, не подходит. Тогда в событии keypress проверяйте, что было нажато и не пускайте в строку если нажато не то что нужно.
...
Рейтинг: 0 / 0
21.02.2006, 21:41
| Ответить | Цитировать | Написать  
как исключить из ввода цифры, знаки препеминая, т.е. все кроме букв
    #33559711
Урал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Урал
Гость
Doktor GradusА для чего именно вам это надо? Ввод фамилии? И что вы будете делать с образчиками типа "Склодовская-Кюри", "Бонч-Бруевич"? Аналогичная проблема с именами и отчествами, причём последнее вообще может отсутствовать.

Поэтому свойство format = A, конечно, не подходит. Тогда в событии keypress проверяйте, что было нажато и не пускайте в строку если нажато не то что нужно.

Понял, спасибо.
...
Рейтинг: 0 / 0
22.02.2006, 06:48
| Ответить | Цитировать | Написать  
как исключить из ввода цифры, знаки препеминая, т.е. все кроме букв
    #33559714
Урал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Урал
Гость
Doktor GradusА для чего именно вам это надо? Ввод фамилии? И что вы будете делать с образчиками типа "Склодовская-Кюри", "Бонч-Бруевич"? Аналогичная проблема с именами и отчествами, причём последнее вообще может отсутствовать.

Поэтому свойство format = A, конечно, не подходит. Тогда в событии keypress проверяйте, что было нажато и не пускайте в строку если нажато не то что нужно.

Понял, спасибо.
...
Рейтинг: 0 / 0
22.02.2006, 06:50
| Ответить | Цитировать | Написать  
как исключить из ввода цифры, знаки препеминая, т.е. все кроме букв
    #33559765
Урал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Урал
Гость
кто нибудь может привести все свойства FORMAT? Т.е. все маски, только на русском.
...
Рейтинг: 0 / 0
22.02.2006, 08:09
| Ответить | Цитировать | Написать  
как исключить из ввода цифры, знаки препеминая, т.е. все кроме букв
    #33560139
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Уралкто нибудь может привести все свойства FORMAT? Т.е. все маски, только на русском.
Существует официальный (от Microsoft) перевод HELP к VFP3 на русском языке. Скачать можно, например, вот здесь

http://vfp.narod.ru/Briefcase/Briefcase.htm

В очень многих случаях - этого вполне достаточно. В том числе и по свойствам Format и InputMask.

Правда, там "выпало" описание формата для InputMask "N" - это ввод только букв и цифр.
...
Рейтинг: 0 / 0
22.02.2006, 11:01
| Ответить | Цитировать | Написать  
как исключить из ввода цифры, знаки препеминая, т.е. все кроме букв
    #33562426
Doktor Gradus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Doktor Gradus
Участник
Урал
В 3-ей версии свойство InputMask используется для объектов: Spinner, TextBox , в 6-ой для Column, ComboBox, Spinner, TextBox , а вот значения одинаковые, и что они означают, можно смотреть в хелпе для трёшки, а вот со свойством Format уже больше проблем:

1. Часть настроек/значений не используется для некоторых объектов, то есть в хелпе для 6-ки чётко написано, что для EditBox используется только значение "K", а другие в нём использовать нельзя. Самый большой набор значений идёт для TextBox и Column. А вот из хелпа для VFP3 не всегда ясно, что где можно использовать, т.к. написано, что свойство используется для 3-х объектов, а описание настроек идёт на примере TextBox.

2. Значение "M", подробно описанное в хелпе 3-ки, в 6-ой версии объявлено как for backward compatibility

Хелпы для более поздних( как и для других ) версий я так подробно не разглядывал, поскольку в работе использую только 3 и 6.
...
Рейтинг: 0 / 0
23.02.2006, 12:35
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / как исключить из ввода цифры, знаки препеминая, т.е. все кроме букв
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=33557423&tid=1592262]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 161ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 232ms
total:  462ms
созд. / загр.: 462ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]