Rich Text

[Roman66]

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

 

[Alexander (Criz)]

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

 

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

 

[Sandr]

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

 

[Yakov]

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

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

 

[Roman66]

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

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

 

[Sandr]

Roman66
@Elements(@Explode(test1;@Char(13)))

 

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

 

[Roman66]

Roman66
@Elements(@Explode(test1;@Char(13)))

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

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

 

[Sandr]

Roman66
сори

@Elements(@Explode(test1;@NewLine))

 

[Roman66]

Roman66
сори

@Elements(@Explode(test1;@NewLine))

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

 

[Omh]

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

 

[Roman66]

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

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

 

[Yakov]

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

А печатная форма она в лотусевой базе не сохраняется и все поля в ней вычисляемые почти.

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

 

[Sandr]

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

 

[Roman66]

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

 

[Sandr]

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

 

[Roman66]

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

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

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

 

[Sandr]

Roman66
сойдет.. а если работает все, то вообще замечательно