Rich Text

Тема в разделе "Lotus - Программирование", создана пользователем Roman66, 16 апр 2008.

  1. Roman66

    Roman66 Гость

    Подскажите как определить сколько уже строк в поле типа Rich Text?
     
  2. Alexander (Criz)

    Alexander (Criz) Гость

    Бери текст, бей на массив с разделителем переноса строки (Char(13)), смотри сколько в массиве значений + 1.
     
  3. Yakov

    Yakov Гость

    Alexander (Criz), как быть, если в поле хранится более 64K текста?
    Лучше использовать NotesRichTextNavigator. Вот пример:
    Код (Text):
    Dim body As NotesRichTextItem
    Dim navigator As NotesRichTextNavigator
    Dim paragraphCount As Long
    '... set body
    Set navigator = body.CreateNavigator()
    If navigator.FindFirstElement(RTELEM_TYPE_TEXTPARAGRAPH) Then
    paragraphCount = 1
    While navigator.FindNextElement(RTELEM_TYPE_TEXTPARAGRAPH)
    paragraphCount = paragraphCount + 1
    Wend
    Else
    paragraphCount = 0
    End If
    Но этот способ можно использовать с оговоркой, что в каждом параграфе содержится только одна строка, то есть перевод строки осуществлялся вызовом метода notesRichTextItem.AddNewLine(1, True), а не notesRichTextItem.AddNewLine(1, False).
     
  4. Sandr

    Sandr Гость

    Yakov
    Не вижу проблемы ограничания в посте Alexander (Criz)... вычисления де не в поле производится будут...
     
  5. Yakov

    Yakov Гость

    Sandr
    Точно. Ступил.

    Хм. А тогда, а как будет в поле более 16K строк! :D
     
  6. Roman66

    Roman66 Гость

    типа такого что ли : @Word(test1;@Char(13);1)
    Попробовал - дает какую то ерунду
     
  7. Sandr

    Sandr Гость

    Roman66
    @Elements(@Explode(test1;@Char(13)))
     
  8. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Roman66
    Скорее что-то вроде

    Код (Text):
    Dim Item As NotesItem
    Set Item = Doc.GetFirstItem("RTItemName")

    Dim Tmp As String
    Tmp = Item.Text

    Dim rows As Long
    rows = Ubound(Split(Tmp, Chr(13))) + 1
    Можно Chr(10) попробовать, я не помню, что там точно...
     
  9. Roman66

    Roman66 Гость

    Результат тот же - не то!

    test1=Флюорография легких (17.06.2007) (0,06)
    Флюорография легких (15.04.2008) (0,06)
    Флюорография легких (15.04.2006) (0,06)
     
  10. Sandr

    Sandr Гость

    Roman66
    сори

    @Elements(@Explode(test1;@NewLine))
     
  11. Roman66

    Roman66 Гость

    эта формула не подходит . текст строки test1=Флюорография легких (17.06.2007) (0,06)
    Флюорография легких (15.04.2008) (0,06)
     
  12. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Roman66
    LotusScript'овую процедуру попробовать не хочешь?
    Нафига собаки при работе с ричтекстом?
     
  13. Roman66

    Roman66 Гость

    Есть форма с заполненным полем test1 - Тип данных: Форматируемый текст .
    На этой форма есть кнопка по которой открывается форма для печати где значения полей этой формы я должен вытащить из test1.
    Вот этого я и не могу сделать. У меня не получается. А печатная форма она в лотусевой базе не сохраняется и все поля в ней вычисляемые почти.
     
  14. Yakov

    Yakov Гость

    Roman66
    Какой результат?
    Пока документ не сохранен, поле типа Rich Text не обновится.

    На QueryOpen печатной формы сделайте что нужно. Или в коде кнопки создания печатной формы.
     
  15. Sandr

    Sandr Гость

    а кроме текста там еще что-то есть?
    Порпобуйте перед разбивкой на масив сделать @Abstract
     
  16. Roman66

    Roman66 Гость

    Да это поле формируется так: ссылка на документ + Флюорография легких (17.06.2007) (0,06)
    ссылка на документ + Флюорография легких (15.04.2008) (0,06) и т.д.
     
  17. Sandr

    Sandr Гость

    Roman66
    дык абстракт применить обязательно надо! :)
     
  18. Roman66

    Roman66 Гость

    не пользовался никогда
    Подскажи плиз!

    @Abstract([TextOnly];15360;"";"test1") написал так вроде работает эта формула как надо
     
  19. Sandr

    Sandr Гость

    Roman66
    сойдет.. а если работает все, то вообще замечательно :(
     
Загрузка...
Похожие Темы - Rich Text
  1. seoman2
    Ответов:
    35
    Просмотров:
    1.173
  2. Cheburan
    Ответов:
    9
    Просмотров:
    621
  3. evgenyum
    Ответов:
    7
    Просмотров:
    550
  4. Amfion
    Ответов:
    12
    Просмотров:
    994
  5. garrick
    Ответов:
    3
    Просмотров:
    617

Поделиться этой страницей