for flooders
:: Главная :: Решения :: Статьи :: Сайт М. Дроздова :: Файловый архив :: Книга по VFP 9 :: Русский Help Online :: OFF-LINE Форум
   Лисоводы   всех   стран,  объединяйтесь !!!  

Список Форумов  :: Visual Foxpro, Foxpro for DOS
  

О Reduce
AleksM
Автор

Сообщений: 17858
Дата: 14.10.09 16:07:31
Если строка начинается с определённых букв кириллицы, то она их обрезает
  
  LOCAL lcString  
    
  CLEAR  
    
  SET LIBRARY TO (HOME(0)+ 'foxtools.fll')  
    
  lcString = 'ёйцукенгшщзхъфывапролджэячсмитьбю'  
    
  FOR i = 1 TO LEN(lcString)  
  	?SUBSTR(lcString, i ,1)  
  	??'.........'+Reduce(SUBSTR(lcString, i ,1), ' ')+'/'  
  NEXT

PS В VFP7SP1 обрезает, а в VFP9 - нет. Зараза.


------------------
Лучше переесть, чем недоспать.
Не спеши, а то успеешь.




Исправлено: AleksM, 14.10.09 16:14
Ratings: 0 negative/0 positive

Re: О Reduce
PaulWist

Сообщений: 14075
Дата: 14.10.09 16:17:47
От 9-ки 'foxtools.fll' возьми и усё


------------------
Есть многое на свете, друг Горацио...
Что и не снилось нашим мудрецам.
(В.Шекспир Гамлет)
Ratings: 0 negative/0 positive

Re: О Reduce
AleksM
Автор

Сообщений: 17858
Дата: 14.10.09 16:18:10
Ну так и сделал


------------------
Лучше переесть, чем недоспать.
Не спеши, а то успеешь.
Ratings: 0 negative/0 positive

Re: О Reduce
PaulWist

Сообщений: 14075
Дата: 14.10.09 16:19:36
AleksM
Ну так и сделал

И чЁ голову занятым людЯм морочил


------------------
Есть многое на свете, друг Горацио...
Что и не снилось нашим мудрецам.
(В.Шекспир Гамлет)
Ratings: 0 negative/0 positive

Re: О Reduce
AleksM
Автор

Сообщений: 17858
Дата: 14.10.09 16:21:13
Ну мало ли кто ещё вляпается


------------------
Лучше переесть, чем недоспать.
Не спеши, а то успеешь.
Ratings: 0 negative/0 positive

Re: О Reduce
PaulWist

Сообщений: 14075
Дата: 14.10.09 16:23:15
AleksM
Ну мало ли кто ещё вляпается

Согласен, бум знать


------------------
Есть многое на свете, друг Горацио...
Что и не снилось нашим мудрецам.
(В.Шекспир Гамлет)
Ratings: 0 negative/0 positive



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

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

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