• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Rich Text

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

Roman66

Подскажите как определить сколько уже строк в поле типа Rich Text?
 
A

Alexander (Criz)

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

Yakov

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).
 
S

Sandr

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

Yakov

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

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

Omh

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) попробовать, я не помню, что там точно...
 
O

Omh

Roman66
LotusScript'овую процедуру попробовать не хочешь?
Нафига собаки при работе с ричтекстом?
 
R

Roman66

Roman66
LotusScript'овую процедуру попробовать не хочешь?
Нафига собаки при работе с ричтекстом?
Есть форма с заполненным полем test1 - Тип данных: Форматируемый текст .
На этой форма есть кнопка по которой открывается форма для печати где значения полей этой формы я должен вытащить из test1.
Вот этого я и не могу сделать. У меня не получается. А печатная форма она в лотусевой базе не сохраняется и все поля в ней вычисляемые почти.
 
Y

Yakov

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

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

Sandr

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

Roman66

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

Sandr

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

Sandr

Roman66
сойдет.. а если работает все, то вообще замечательно :(
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!