Форум компьютерной помощи — Экспорт RTF содержания поля в формат html по абзацам и с табуляцией.

Re: Экспорт RTF содержания поля в формат html по абзацам и с табуляцией.

2015-03-16T08:25:38Z

Попытка получить выравнивание у каждого абзаца неудачная:

Мы можем только устанавливать стиль и записать текст с этим стилем в поле.

Dim rtpStyle As NotesrichTextParagraphStyle
Set rtpStyle = session.CreateRichTextParagraphStyle
rtpStyle.Alignment = ALIGN_CENTER

А вот у rtRange получить стиль абзаца - неполучается. Т.к. NotesRichTextStyle не имеет такого свойства как выравнивание.
Смотрим в
rtRange.Style. - есть шрифт и прочее.

Call rtRange.SetBegin (rtnav)
flag =  rtnav.FindNextElement()    
Call rtRange.SetEnd (rtnav)
Set rtpStyle = rtRange.TextParagraph.Alignment

Re: Экспорт RTF содержания поля в формат html по абзацам и с табуляцией.

2015-03-06T06:34:59Z

Вариант с заменой подстрок
chr(10) - переход на новую строку, chr(13) - возврат каретки , Chr(9) - табулятор

sText$ = rtitem.Text
string1 = Chr(10)+Chr(13) 'заменяем абзац. 
string2 = "
"  ' на перенос
While Instr(1, sText$, string1) '  заменяем абзац на тег.  Есть еще Chr(10)
sText$ = Left(sText$, Instr(1, sText$, string1) - 1) + string2 + Mid(sText$, Instr(1, sText$, string1) + Len(string1))
Wend

Экспорт RTF содержания поля в формат html по абзацам и с табуляцией.

2015-01-27T14:40:20Z

Задача: выгрнузить в переменную для дальнейшей вставки в html документ лотусового RTF поля СОДЕРЖАНИЕ.
Важно, чтобы текст был разбит по абзацам, было форматирование, как при табуляции.

Решение:

Set rtitem =  doc.GetFirstItem("СОДЕРЖАНИЕ") '// СОДЕРЖАНИЕ
        
array1(0) = Chr(13)
array1(1) = Chr(9)
array2(0) = "
"
array2(1) = {}
sText$ = Replace(rtitem.GetFormattedText(False, 32000),array1,array2)