powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Странная работа REDUCE()
5 сообщений из 5, страница 1 из 1
Странная работа REDUCE()
    #33433551
Peisov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Использую в работе функцию REDUCE() из foxtool.fll (VFP 8.0 SP 1)
Обнаружил следующее

REDUCE('Пикалево','-,;') --> 'икалево' (!!!!!)
REDUCE('Дикалево','-,;') --> 'Дикалево' (все нормально)

Может кто чего подскажет ???
...
Рейтинг: 0 / 0
Странная работа REDUCE()
    #33434127
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А почему не использовать
Код: plaintext
?LOWER('ABCd')
...
Рейтинг: 0 / 0
Странная работа REDUCE()
    #33434144
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А что такое REDUCE? Что она делает?
...
Рейтинг: 0 / 0
Странная работа REDUCE()
    #33434166
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Peisov

Пардон за LOWER(), - не понял сначало о чём речь.

Тогда

Код: plaintext
?CHRTRAN('Ди-к,а;лево', '-,;', '   ')

Недоходящий

В хелпе набери Foxtool.fll, либо в каталоге фокса вызови справку foxtools.chm
...
Рейтинг: 0 / 0
Странная работа REDUCE()
    #33434541
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hi Peisov!

Ну ошибка в функции - некорректно она работает с нелатинскими символами. В
версии foxtools.fll из VFP9SP1 ошибки кстати нету.
Код: plaintext
1.
2.
3.
4.
5.
6.
SET LIBRARY TO HOME( 1 )+"foxtools.fll"
CLEAR
FOR ln1 =  0  TO  255 
  IF ASC(REDUCE(CHR(ln1)+'1')) # ln1
    ? m.ln1, CHR(m.ln1)
  ENDIF
ENDFOR
Вот код - смотри на чём она "спотыкается".

Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Странная работа REDUCE()
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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