:: Visual Foxpro, Foxpro for DOS
набор символов
glaz58

Сообщений: 812
Откуда: Воронеж
Дата регистрации: 09.02.2008
Уважаемые знатоки! Как проверить, что в поле должны быть символы из ограниченного набора. Конкретно мне нужно, чтобы в поле должны быть только символы из вот такого набора: "цифры, ',', '-', 'П', 'п'"


------------------
Александр Глазьев, Воронеж
Ratings: 0 negative/0 positive
Re: набор символов
Igor Korolyov

Сообщений: 34580
Дата регистрации: 28.05.2002
IF CHRTRAN(проверяемое,"1234567890,-Пп","") == ""
&& лишнего нет


------------------
WBR, Igor
Ratings: 0 negative/1 positive
Re: набор символов
glaz58

Сообщений: 812
Откуда: Воронеж
Дата регистрации: 09.02.2008
Спасибо!
Ratings: 0 negative/0 positive
Re: набор символов
andrewk

Сообщений: 174
Откуда: Красноярск
Дата регистрации: 15.05.2005
На эту тему. У меня в «базовом» textbox есть свойство cPossibleChars – символы, доступные для ввода. Обработка в KeyPress. Там блокирую ввод лишних символов. Заодно «помогаю» юзеру ввести некоторые символы без переключения раскладки – например, точка на русской и английской раскладках находятся на разных клавишах.

Здесь привожу только то, что относится к данной теме. Предполагается Set("Exact")="OFF" и Set("Point")="."
Ratings: 0 negative/0 positive
Re: набор символов
LUCIAN

Сообщений: 343
Откуда: Лида Беларусь
Дата регистрации: 25.03.2008
Чтобы избавиться от ненужных символов в символьном выражении можно предпринять такие действия:
cEXPR='12456jkk-*п Z'
WAIT WINDOW CHRTRAN(cEXPR,CHRTRAN(cEXPR,'1234567890,-Пп',''),'')
Ratings: 0 negative/0 positive
Re: набор символов
akvvohinc

Сообщений: 4201
Откуда: Москва
Дата регистрации: 11.11.2008
LUCIAN
Чтобы избавиться от ненужных символов в символьном выражении можно предпринять такие действия:

При такой формулировке задачи я должен знать эти "ненужные символы", например я хочу избавиться от ненужных мне символов 'jk* Z'. И тогда решение будет другим (проще).

Этот же фрагмент кода демонстрирует решение другой задачи - сохраняет в строке только заданные, "нужные" символы.



Исправлено 1 раз(а). Последнее : akvvohinc, 22.12.20 20:45
Ratings: 0 negative/0 positive
Re: набор символов
Ydin

Сообщений: 7648
Откуда: Киев
Дата регистрации: 16.12.2005
А что тут сложного?
Ratings: 0 negative/0 positive
Re: набор символов
of63

Сообщений: 25161
Откуда: Н.Новгород
Дата регистрации: 13.02.2008
Ты опоздал

Что у тебя сложного, Александр, в жизни?
Ratings: 0 negative/0 positive
Re: набор символов
akvvohinc

Сообщений: 4201
Откуда: Москва
Дата регистрации: 11.11.2008
Ydin
А что тут сложного?
Я не давал оценку сложности решения.
Написав "проще" я сравнил два решения по степени их сложности/простоты - кому как больше нравится.
Даже для простого решения может найтись решение еще более простое.
Ratings: 0 negative/0 positive
Re: набор символов
Ydin

Сообщений: 7648
Откуда: Киев
Дата регистрации: 16.12.2005
Согласен!
Ratings: 0 negative/0 positive
Re: набор символов
piva
Автор

Сообщений: 18655
Откуда: Курган
Дата регистрации: 24.03.2004
Мне со времен Фокса не хвататет функции strfilter из foxtools.fll в 1С.
Не, написать я ее могу, но это блин все равно реализация на языке, а когда нужно сделать "нечеткий" поиск по номенклатуре, которой не мало, то тормозит зараза
Я бы тут использовал так. Читабальнее по-моему

Set Library To foxtools
? strfilter('12456jkk-*п Z','1234567890,-Пп')


------------------
Часто бывает так, что есть над чем задуматься, а нечем.




Исправлено 1 раз(а). Последнее : piva, 24.12.20 15:31
Ratings: 0 negative/0 positive
Re: набор символов
medstrax
Забанен

Сообщений: 5964
Дата регистрации: 23.03.2007
Жив,курилка!
Ratings: 0 negative/0 positive
Re: набор символов
Igor Korolyov

Сообщений: 34580
Дата регистрации: 28.05.2002
Реализация "нечёткого поиска" вне системы хранения (СУБД, кэш или что там за "хранилище" отвечает) в любом случае будет тормозить - хоть ты саму функцию на ассемблере напишешь. Это не будет узким местом.


------------------
WBR, Igor
Ratings: 0 negative/0 positive
Re: набор символов
piva
Автор

Сообщений: 18655
Откуда: Курган
Дата регистрации: 24.03.2004
medstrax
Жив,курилка!
Вашими молитвами Привет Сергей.

Игорь. Не буду спорить, во-первых возразить нечего, во-вторых тема очень обширная и контесте этой темы, я бы сказал, выбивается в оффтоп. Я просто хотел сказать что в фоксе есть замечательная функция, реализации которой от разработчика мне не хватает в 1С, а то заказчики ставят такие задачи, что оставшиеся волосы дыбом встают Ничего более.


------------------
Часто бывает так, что есть над чем задуматься, а нечем.
Ratings: 0 negative/0 positive


Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 14 (Гостей: 14)

© 2000-2024 Fox Club 
Яндекс.Метрика