VPF::Форматирование текста по словам

Blaksa

Дата 2.6.2016, 15:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 2.6.2016
Где: Goretovka

Репутация: нет
Всего: нет

Задача: печатать длинную строку в ограниченном поле. Типа сумма прописью с ограничением в 40 знаков.
Решается просто.

Код


t$ = SummaString_Val(Number)
Do
  x$ = left$(t$, 40)
  t$ = Mid$(t$, 41)
  print #6, x$
Loop While Len(t$) > 0

Только некрасиво это, хочется не резать слова, да и ведущие пробелы тоже глаз не радуют. Можно и форматирование путем добавления пробелов добавить...
Вот сижу и думаю то ли пробелы считать, то ли split использовать

Кто сталкивался с подобным? Поможете?
smile

Akina

Дата 2.6.2016, 15:47 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 453

Формально - в общем случае ничего не поможет.
Например, в озвученных условиях в подлежащей делению строке может встретиться слово длиннее 40 символов. Или там подряд три слова такие, что второе плюс любое крайнее - более 40 символов с учётом пробела.

Опять же с формальной точки зрения - красота тут самое последнее дело. Дели как написАл кодом, только на каждом шаге итерации тримай переменную, чтобы пробелов-лидеров не было.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »