• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

Rich Text

  • Автор темы Автор темы Roman66
  • Дата начала Дата начала
R

Roman66

Подскажите как определить сколько уже строк в поле типа Rich Text?
 
Бери текст, бей на массив с разделителем переноса строки (Char(13)), смотри сколько в массиве значений + 1.
 
Alexander (Criz), как быть, если в поле хранится более 64K текста?
Лучше использовать NotesRichTextNavigator. Вот пример:
Код:
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).
 
Yakov
Не вижу проблемы ограничания в посте Alexander (Criz)... вычисления де не в поле производится будут...
 
Sandr
Точно. Ступил.

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

Код:
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) попробовать, я не помню, что там точно...
 
Roman66
LotusScript'овую процедуру попробовать не хочешь?
Нафига собаки при работе с ричтекстом?
 
Roman66
LotusScript'овую процедуру попробовать не хочешь?
Нафига собаки при работе с ричтекстом?
Есть форма с заполненным полем test1 - Тип данных: Форматируемый текст .
На этой форма есть кнопка по которой открывается форма для печати где значения полей этой формы я должен вытащить из test1.
Вот этого я и не могу сделать. У меня не получается. А печатная форма она в лотусевой базе не сохраняется и все поля в ней вычисляемые почти.
 
Roman66
Какой результат?
Пока документ не сохранен, поле типа Rich Text не обновится.

А печатная форма она в лотусевой базе не сохраняется и все поля в ней вычисляемые почти.
На QueryOpen печатной формы сделайте что нужно. Или в коде кнопки создания печатной формы.
 
а кроме текста там еще что-то есть?
Порпобуйте перед разбивкой на масив сделать @Abstract
 
Да это поле формируется так: ссылка на документ + Флюорография легких (17.06.2007) (0,06)
ссылка на документ + Флюорография легких (15.04.2008) (0,06) и т.д.
 
Roman66
дык абстракт применить обязательно надо! :)
 
Roman66
сойдет.. а если работает все, то вообще замечательно :(
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab