Rich Text

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

Roman66

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

Alexander (Criz)

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

Yakov

#3
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

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

Yakov

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

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

Omh

Lotus team
04.07.2007
2 210
1
#8
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) попробовать, я не помню, что там точно...
 

Omh

Lotus team
04.07.2007
2 210
1
#12
Roman66
LotusScript'овую процедуру попробовать не хочешь?
Нафига собаки при работе с ричтекстом?
 
R

Roman66

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

Yakov

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

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

Sandr

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

Roman66

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

Sandr

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