Перенос Абзацев В Стринг

[seoman2]

Здравствуйте.
Проблема такая:
Есть поле СОДЕРЖАНИЕ (Rich Text)
В нем абзацами текст.

Я хочу получить его в Text$, чтобы каждый абзац разделялся тегом "<br/>", для дальнейшего использования в html.

Делаю так
кидаю содержимое поля СОДЕРЖАНИЕ в переменную Text$.

string1 = Chr(10)+Chr(13) ' что заменяем
string2 = "<br/>" ' на перенос

И потом в Text$ заменяю string1 на string2.

Но при этом
В лотусе:

Текст абзаца 1
Текст абзаца 2

Текст абзаца 3

В Text$

Текст абзаца 1Текст абзаца 2
Текст абзаца 3

В чем ошибка?

 

[ToxaRat]

тут правильнее делать замену @NewLine

 

[seoman2]

Я не могу понять, как правильно в поле "СОДЕРЖАНИЕ" лотус скриптом находить абзацы.

 

[savl]

тут правильнее делать замену @NewLine

Если я правильно понял, то:

abzac = implode(Evaluate({@NewLine}))

 

[seoman2]

Не совсем, надо что то типа:
Set rtitem = doc.GetFirstItem("СОДЕРЖАНИЕ")
sText$ = Implode(rtitem.Text,Evaluate({@NewLine}))

Разделить абзацы из поля "СОДЕРЖАНИЕ" в переменную sText$.

 

[lmike]

здесь была ссылка на проект...
в нем РТ конвертился в хтмл, причем не только текст, но и картинки

 

[rinsk]

Я не могу понять, как правильно в поле "СОДЕРЖАНИЕ" лотус скриптом находить абзацы.

Ну - надо не rtitem.Text брать, а через DXL. И уже там, интерпретировать разделители\переносители.

 

[seoman2]

Сделать временный док с одним полем, перегнать его с CreateDXLExporter в поток?

 

[Medevic]

Абзацы находятся с помощью NotesRichTextNavigator. Пример в хелпе есть.

 

[seoman2]

Когда перебираю абзацы с rtnav.FindNextElement() и выделяю их с NotesRichTextRange, то как найти абзацы, которые разделены Enter ?

 

[Medevic]

В смысле? Если перебираешь RTELEM_TYPE_TEXTPARAGRAPH, то это и будут абзацы, разделённые Enter.

 

[seoman2]

Не совсем точно описал проблему. Как с FindNextElement получить пустую строку? Абзацы при вводе разделены ентером.
Пример:
Было:
Абзац1
Абзац2
энтер, тут пустая строка.
Абзац3

Стало:
Абзац1
Абзац2
Абзац3

А мне нужно, чтобы "было" и "стало" совпадали.

 

[Leoric]

Может вам надо что-то типа:

	Set body = doc.GetFirstItem("Body")	
Messagebox ReplaceSubstringValue( body.GetFormattedText(False, 32000), Chr(13), "<br>")

Здесь ReplaceSubstringValue это просто самописная функция поиска и замены подстроки

 

[lmike]

Chr(13) возврат каретки (carriage return CR)
Chr(10) прокрутка (дословно - подача) строки (line feed - LF)
LF и есть новая строка,

Ссылка скрыта от гостей

!
но вот однозначной замены произвести не получится (см ссылку)

 

[Leoric]

Chr(13) возврат каретки (carriage return CR)
Chr(10) прокрутка (дословно - подача) строки (line feed - LF)
LF и есть новая строка, в современных системах!
но вот однозначной замены произвести не получится (см ссылку)

Я с вами не спорю, но при замене LF получится

Абзац1
<br>Абзац2
<br>
<br>Абзац3

а при замене CR получается

Абзац1<br>
Абзац2<br>
<br>
Абзац3

ИМХА, топикстартеру необходим именно второй вариант, возможно с "добиванием" в конце еще одним <br>-ом, хотя зависит от задачи конечно.