FoxClub Forums > Visual Foxpro, Foxpro for DOS

• Войти

О Reduce
AleksM Автор Сообщений: 17881 Дата регистрации: 11.11.2003	AleksM 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 - нет. Зараза. ------------------ Лучше переесть, чем недоспать. Не спеши, а то успеешь. Исправлено 1 раз(а). Последнее : AleksM, 14.10.09 16:14

AleksM
Автор

Сообщений: 17881
Дата регистрации: 11.11.2003

AleksM

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 - нет. Зараза.

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

Исправлено 1 раз(а). Последнее : AleksM, 14.10.09 16:14

Re: О Reduce
PaulWist Сообщений: 14625 Дата регистрации: 01.04.2004	PaulWist 14.10.09 16:17:47 От 9-ки 'foxtools.fll' возьми и усё ------------------ Есть многое на свете, друг Горацио... Что и не снилось нашим мудрецам. (В.Шекспир Гамлет)

Re: О Reduce
AleksM Автор Сообщений: 17881 Дата регистрации: 11.11.2003	AleksM 14.10.09 16:18:10 Ну так и сделал ------------------ Лучше переесть, чем недоспать. Не спеши, а то успеешь.

Re: О Reduce
PaulWist Сообщений: 14625 Дата регистрации: 01.04.2004	PaulWist 14.10.09 16:19:36 AleksM Ну так и сделал И чЁ голову занятым людЯм морочил ------------------ Есть многое на свете, друг Горацио... Что и не снилось нашим мудрецам. (В.Шекспир Гамлет)

Re: О Reduce
AleksM Автор Сообщений: 17881 Дата регистрации: 11.11.2003	AleksM 14.10.09 16:21:13 Ну мало ли кто ещё вляпается ------------------ Лучше переесть, чем недоспать. Не спеши, а то успеешь.

Re: О Reduce
PaulWist Сообщений: 14625 Дата регистрации: 01.04.2004	PaulWist 14.10.09 16:23:15 AleksM Ну мало ли кто ещё вляпается Согласен, бум знать ------------------ Есть многое на свете, друг Горацио... Что и не снилось нашим мудрецам. (В.Шекспир Гамлет)

:: Список Форумов•Список тем•Поиск•Войти

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

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