FoxClub Forums > Архив конференции по VFP до 2005 года

:: Архив конференции по VFP до 2005 года

• Войти

Страницы: 1 2

Маленький конкурсик... ;)
OLEGarh Автор Сообщений: 575 Откуда: Нйжний Новгород Дата регистрации: 07.02.2005	OLEGarh 09.03.05 12:28:05 Привет всем! Предлагаю небольшой конкурс ;) Нужно создать функцию или процедуру, которая бы разделяла любую переданную строку на части заданной длины, но так, чтобы перенос строк происходил ТОЛЬКО по целым словам (по пробелам) - аналог опции Stretch With Overflow в генераторе отчетов. Т.е. типа: =FUNC**(длина строки, строка или поле) Например: =FUNC**(20, 'Нужно создать функцию, которая бы разделяла любую переданную строку на части заданной длины,') должны получить что-то типа: 'Нужно создать' 'функцию, которая бы' 'разделяла любую' 'строку на части' 'заданной длины,' Как хранить возвращаемое значение - в массиве или курсоре, или еще как - на ваше усмотрение, дамы и господа. Best regards! ЗЫ И с прошедшим вас праздником, милые женщины! Всего наилучшего!

OLEGarh
Автор

Сообщений: 575
Откуда: Нйжний Новгород
Дата регистрации: 07.02.2005

OLEGarh

09.03.05 12:28:05

Привет всем!

Предлагаю небольшой конкурс ;)

Нужно создать функцию или процедуру, которая бы разделяла любую переданную строку на части
заданной длины, но так, чтобы перенос строк происходил ТОЛЬКО по целым словам
(по пробелам) - аналог опции Stretch With Overflow в генераторе отчетов.

Т.е. типа:

=FUNC****(длина строки, строка или поле)

Например:

=FUNC****(20, 'Нужно создать функцию, которая бы разделяла любую переданную строку на части заданной длины,')

должны получить что-то типа:

'Нужно создать'
'функцию, которая бы'
'разделяла любую'
'строку на части'
'заданной длины,'

Как хранить возвращаемое значение - в массиве или курсоре, или еще как - на ваше усмотрение,
дамы и господа.

Best regards!

ЗЫ И с прошедшим вас праздником, милые женщины! Всего наилучшего!

Re: Маленький конкурсик... ;)
AleksM Сообщений: 17881 Дата регистрации: 11.11.2003	AleksM 09.03.05 12:31:58 А если слово > первого параметра? ------------------ Лучше переесть, чем недоспать. Не спеши, а то успеешь.

Re: Маленький конкурсик... ;)
Hel!Riser Сообщений: 10452 Откуда: Нижний Новгород Дата регистрации: 11.03.2001	Hel!Riser 09.03.05 12:41:02 што-нить типа FUNCTION Spliter (tnLen, tcText) CREATE CURSOR qTemp (text M) INSERT INTO qTemp VALUES (tcText) SET MEMOWIDTH TO tnLen lnMemLines=MEMLINES(qTemp.text) lcReturn="" FOR nCnt=1 TO lnMemLines lcReturn=lcReturn+MLINE(qTemp.text,nCnt)+CHR(13) ENDFOR USE IN qTemp RETURN lcReturn ЗЫ тока может CHR(13)+CHR(10) стОит добавить Отредактировано (09.03.05 14:49) ------------------ Осторожно - глисты!

Re: Маленький конкурсик... ;)

Hel!Riser

Сообщений: 10452
Откуда: Нижний Новгород
Дата регистрации: 11.03.2001

Hel!Riser

09.03.05 12:41:02

што-нить типа


FUNCTION Spliter (tnLen, tcText)

CREATE CURSOR qTemp (text M)
INSERT INTO qTemp VALUES (tcText)

SET MEMOWIDTH TO tnLen

lnMemLines=MEMLINES(qTemp.text)
lcReturn=""

FOR nCnt=1 TO lnMemLines
    lcReturn=lcReturn+MLINE(qTemp.text,nCnt)+CHR(13)
ENDFOR
USE IN qTemp

RETURN lcReturn

ЗЫ тока может CHR(13)+CHR(10) стОит добавить

Отредактировано (09.03.05 14:49)

------------------
Осторожно - глисты!

Re: Маленький конкурсик... ;)
piva Сообщений: 18655 Откуда: Курган Дата регистрации: 24.03.2004	piva 09.03.05 12:42:56 Я как-то писал такую функцию - тока нету теперь ее у меня но толкалася от Rat(' ',Substr(<Длинная строка>,1,<Максимальная длина строки>)) в цикле - тока был еще параметр какую последовательность выбирать - потом все забрасывал в массив ------------------ Часто бывает так, что есть над чем задуматься, а нечем.

Re: Маленький конкурсик... ;)

piva

Сообщений: 18655
Откуда: Курган
Дата регистрации: 24.03.2004

piva

09.03.05 12:42:56

Я как-то писал такую функцию - тока нету теперь ее у меня но толкалася от


Rat(' ',Substr(<Длинная строка>,1,<Максимальная длина строки>))

в цикле - тока был еще параметр какую последовательность выбирать - потом все забрасывал в массив

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

Re: Маленький конкурсик... ;)
AleksM Сообщений: 17881 Дата регистрации: 11.11.2003	AleksM 09.03.05 12:43:13 А-а-а-а, по словам? ------------------ Лучше переесть, чем недоспать. Не спеши, а то успеешь.

Re: Маленький конкурсик... ;)
Hel!Riser Сообщений: 10452 Откуда: Нижний Новгород Дата регистрации: 11.03.2001	Hel!Riser 09.03.05 12:45:47 я выиграл по-любому! ------------------ Осторожно - глисты!

Re: Маленький конкурсик... ;)
AleksM Сообщений: 17881 Дата регистрации: 11.11.2003	AleksM 09.03.05 12:47:46 "Пра-а-альное решение" (с) Г.Хазанов ------------------ Лучше переесть, чем недоспать. Не спеши, а то успеешь.

Re: Маленький конкурсик... ;)
piva Сообщений: 18655 Откуда: Курган Дата регистрации: 24.03.2004	piva 09.03.05 12:53:27 Точна - именно потом делал через MLINE - было такое где-то -потом за ненадобностью забыл - а вот если еще учесть метрику шрифта, то была функция WinAPI, но забыл как называется ------------------ Часто бывает так, что есть над чем задуматься, а нечем.

Re: Маленький конкурсик... ;)

piva

Сообщений: 18655
Откуда: Курган
Дата регистрации: 24.03.2004

piva

09.03.05 12:53:27

Точна - именно потом делал через MLINE - было такое где-то -потом за ненадобностью забыл - а вот если еще учесть метрику шрифта, то была функция WinAPI, но забыл как называется

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

Re: Маленький конкурсик... ;)
AleksM Сообщений: 17881 Дата регистрации: 11.11.2003	AleksM 09.03.05 13:02:21 Все, дошло. Как до жирафа. ------------------ Лучше переесть, чем недоспать. Не спеши, а то успеешь.

Re: Маленький конкурсик... ;)
Владимир Максимов Сообщений: 14097 Откуда: Москва Дата регистрации: 02.09.2000	Владимир Максимов 09.03.05 13:40:42 Ну, лично я пошел "другим путем". Я разбивал всю строку по словам (ALINES(), GetWordNum(), GetWordCount()), а потом прибалял по одному слову и смотрел не превысил ли допустимое количество символов. Хотя, через MLINE() проще. Однако при разбивке по словам можно убрать лишние пробелы (если есть).

Re: Маленький конкурсик... ;)

Владимир Максимов

Сообщений: 14097
Откуда: Москва
Дата регистрации: 02.09.2000

Владимир Максимов

09.03.05 13:40:42

Ну, лично я пошел "другим путем".

Я разбивал всю строку по словам (ALINES(), GetWordNum(), GetWordCount()), а потом прибалял по одному слову и смотрел не превысил ли допустимое количество символов. Хотя, через MLINE() проще. Однако при разбивке по словам можно убрать лишние пробелы (если есть).

Страницы: 1 2

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

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

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