ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Легкая амнезия:)
19 сообщений из 19, страница 1 из 1
Легкая амнезия:)
    #32512686
lesha_spb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lesha_spb
Гость
Случилось страшное - видимо я теряю память. вопрос вот в чем: как узнать является ли символьная строка числом? Никак не могу вспомнить подходящую функцию. Неужели через isdigit делать? Подскажите кто знает.
...
Рейтинг: 0 / 0
11.05.2004, 10:36
| Ответить | Цитировать | Написать  
Легкая амнезия:)
    #32512710
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
В общем случае задача достаточно нетривиальная. Например, является ли числом следующая строка:

"000 123 456-70"

В простейшем случае, можно сделать такую проверку

Код: plaintext
1.
2.
3.
4.
IF AllTrim(m.MyVar) == TRANSFORM(VAL(m.MyVar))
* переменная m.MyVar содержит число
ELSE
* переменная m.MyVar - не есть число в стандартном написании
ENDIF
Такая проверка не учитывает возможные ведущие и концевые нули (концевые в дробной части), нестандартный символ разделитель целой и дробной части, возможную разрядку троек цифр.

Кроме того, точность расчета FoxPro ограничивается 14 значащими цифрами. Т.е. если речь идет о числах, содержащих более 14 цифр, то такая проверка может не сработать.
...
Рейтинг: 0 / 0
11.05.2004, 10:51
| Ответить | Цитировать | Написать  
Легкая амнезия:)
    #32512715
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Да, можно еще проверить так:

Код: plaintext
1.
2.
IF TYPE("EVALUATE(m.MyVar)")="N"
* Переменная m.MyVar - это число в стандартном написании
ENDIF
...
Рейтинг: 0 / 0
11.05.2004, 10:54
| Ответить | Цитировать | Написать  
Легкая амнезия:)
    #32512719
lesha_spb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lesha_spb
Гость
Я немного неточно выразился, когда я писал "число", имелось ввиду число в месяце, т.е. целое число в диапозоне 1-31
...
Рейтинг: 0 / 0
11.05.2004, 10:55
| Ответить | Цитировать | Написать  
Легкая амнезия:)
    #32512759
Dik76
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dik76
Участник
BETWEEN('aa123', '1', '31') - .F.
BETWEEN('23', '1', '31') - .T.
BETWEEN('32', '1', '31') - .F.
...
Рейтинг: 0 / 0
11.05.2004, 11:11
| Ответить | Цитировать | Написать  
Легкая амнезия:)
    #32512769
lesha_spb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lesha_spb
Гость
Все гениальное просто. Спасибо
...
Рейтинг: 0 / 0
11.05.2004, 11:16
| Ответить | Цитировать | Написать  
Легкая амнезия:)
    #32512794
lesha_spb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lesha_spb
Гость
Да заодно вопрос вдогонку. Не раз замечал что кавычки в фоксе вещь важная, так вот чем по сути в данном случае отличаются эти команды
BETWEEN('aa123', '1', '31')
BETWEEN('aa123', 1, 31)
...
Рейтинг: 0 / 0
11.05.2004, 11:26
| Ответить | Цитировать | Написать  
Легкая амнезия:)
    #32512827
Dik76
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dik76
Участник
Типами данных
...
Рейтинг: 0 / 0
11.05.2004, 11:41
| Ответить | Цитировать | Написать  
Легкая амнезия:)
    #32512830
lesha_spb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lesha_spb
Гость
Вот и баги проявились:
BETWEEN( '1f' ,'1' , '31') - .T.
Это не есть хорошо. Есть предложения?
...
Рейтинг: 0 / 0
11.05.2004, 11:41
| Ответить | Цитировать | Написать  
Легкая амнезия:)
    #32512852
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Это число вводится с клавиатуры? Тогда задай для TextBox.InputMask="99" в этом случае просто в принципе не смогут ничего ввести кроме цифр и знака "-".

Ну, а в самом общем случае:

Код: plaintext
1.
2.
IF TYPE("EVALUATE(m.MyVar)")="N" AND BETWEEN(EVALUATE(m.MyVar), 1 , 31 )
* То, что нужно
ENDIF
...
Рейтинг: 0 / 0
11.05.2004, 11:51
| Ответить | Цитировать | Написать  
Легкая амнезия:)
    #32512856
Dik76
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dik76
Участник
В связи с чем все это делаешь? Если интерфейсное решение, то пользуй маски ввода. Или это принципиальный вопрос?
...
Рейтинг: 0 / 0
11.05.2004, 11:52
| Ответить | Цитировать | Написать  
Легкая амнезия:)
    #32512869
lesha_spb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lesha_spb
Гость
Во-первых BETWEEN('5', '1', '31')-.F. - это я вообще не понял, как такое может быть или у меня фокс глючит?
По поводу ввода: есть текстбокс куда вводятся числа в формате дд;дд... или дд-дд;дд-дд Как тут поставить маску ума не приложу, подскажите буду рад
...
Рейтинг: 0 / 0
11.05.2004, 11:59
| Ответить | Цитировать | Написать  
Легкая амнезия:)
    #32512881
lesha_spb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lesha_spb
Гость
еще одна неприятность BETWEEN('03', '1', '31') - F Похоже и это вручную надо прописывать
...
Рейтинг: 0 / 0
11.05.2004, 12:07
| Ответить | Цитировать | Написать  
Легкая амнезия:)
    #32512910
lesha_spb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lesha_spb
Гость
Все заработало, спасибо Владимиру. Твой вариант и 05 нормально воспринимает, одним словом все ок.
Остался только один вопрос, просто так из интереса, почему
BETWEEN('5', '1', '31')-.F.
BETWEEN('2', '1', '31')-.T.
...
Рейтинг: 0 / 0
11.05.2004, 12:20
| Ответить | Цитировать | Написать  
Легкая амнезия:)
    #32512916
Dik76
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dik76
Участник
ВладимирМ указал же как обработать

Код: plaintext
1.
2.
3.
IF TYPE("EVALUATE(m.MyVar)")="N" AND BETWEEN(EVALUATE(m.MyVar), 1 , 31 )
* То, что нужно
ENDIF
...
Рейтинг: 0 / 0
11.05.2004, 12:22
| Ответить | Цитировать | Написать  
Легкая амнезия:)
    #32512921
Dik76
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dik76
Участник
авторОстался только один вопрос, просто так из интереса, почему
BETWEEN('5', '1', '31')-.F.
BETWEEN('2', '1', '31')-.T.

Это из-за типов данных, сравнение строк так работает.
...
Рейтинг: 0 / 0
11.05.2004, 12:27
| Ответить | Цитировать | Написать  
Легкая амнезия:)
    #32512927
Urri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Urri
Участник
Ну это же так просто!

Строки сравниваются в алфавитном порядке.
Цифры в строке - это те же символы. И их алфавитный порядок такой: 0123456789.

Таким образом, строки располагаются в следующем порядке:

'1'
'10'
'105'
'11'
'2'
'25'
'2f'
'3'
'a'
'b'

И '20' > '2', но < '3'.
...
Рейтинг: 0 / 0
11.05.2004, 12:32
| Ответить | Цитировать | Написать  
Легкая амнезия:)
    #32512934
lesha_spb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lesha_spb
Гость
всем спасибо. Думаю на этом тема закрыта
...
Рейтинг: 0 / 0
11.05.2004, 12:35
| Ответить | Цитировать | Написать  
Легкая амнезия:)
    #32512946
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
По поводу маски ввода.

В такой постановке, конечно не получится. Но можно сделать проверку допустимых значений в событии KeyPress, примерно так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
LPARAMETERS nKeyCode, nShiftAltCtrl
DO CASE
CASE nKeyCode< 32 
* Управляющие клавиши (стрелки, табуляторы и т.п.) - не проверяем
* Ввод допустим
CASE IsDigit(CHR(nKeyCode))
* Проверка ввода цифр
CASE InList(CHR(nKeyCode),";","-")
* Прочие символы, кроме цифр, которые допустимы в маске
OTHERWISE
* Запрет на ввод любых других символов, коды которых не учтены 
* в обработанных CASE
	NODEFAULT
ENDCASE

Как сравниваются символьные данные:

?"5"<"31"

Вернет .F., поскольку сравнение идет слева-направо по одному символу , т.е. сначала сравниваются первые символы обеих строк и естесственно 5 больше 3. После чего, последующие символы уже просто не сравниваются.
...
Рейтинг: 0 / 0
11.05.2004, 12:42
| Ответить | Цитировать | Написать  
19 сообщений из 19, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Легкая амнезия:)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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