Замена текста в NotesRichTextItem и сохранение стиля

Задача: заменить текст в RichTextItem. Например, есть какой-то шаблон с тегами, в котором динамически происходит подстановка значений.
Поиск и замену всех тегов указанного значения можно выполнить вот в таком цикле:

Dim rtRange As NotesRichTextRange
Dim rtNav As NotesRichTextNavigator

Set rtRange = rtItem.Createrange()
Set rtNav = rtItem.Createnavigator()

While rtNav.Findfirststring(TAGKEY)
 //Замена значения

 Set rtRange = rtItem.Createrange()
 Set rtNav = rtItem.Createnavigator()
Wend

, где rtItem - переданный NotesRichTextItem.

Саму замену можно произвести вот так:

Call rtRange.Setbegin(rtNav)
Call rtRange.Setend(rtNav)
Call rtRange.Remove()
   
Call rtItem.Begininsert(rtNav)
Call rtItem.Appendtext(VALUE) //Добавляем текстовое значение.
Call rtItem.Endinsert()

НО. В таком случае при выполнении rtRange.Remove() мы теряем стилевую информацию и вставка происходит со значениями по-умолчанию. Перенос rtRange.Remove() не помогает. Нужно вместе с этим сохранить стиль. Полный код замены значения выглядит вот так:

Dim rtRange As NotesRichTextRange
Dim rtNav As NotesRichTextNavigator
Dim rtStyle As NotesRichTextStyle

Set rtRange = rtItem.Createrange()
Set rtNav = rtItem.Createnavigator()

While rtNav.Findfirststring(TAGKEY)
 Call rtRange.Setbegin(rtNav)
 Call rtRange.Setend(rtNav)
 Set rtStyle = rtRange.Style
   
 Call rtItem.Begininsert(rtNav)
 Call rtItem.AppendStyle(rtStyle)
 Call rtItem.Appendtext(VALUE) //Добавляем текстовое значение.
 Call rtItem.Endinsert()

 Call rtRange.Remove()

 Set rtRange = rtItem.Createrange()
 Set rtNav = rtItem.Createnavigator()
Wend

Дополнения и комментарии приветствуются!

Занимательные алгоритмы. Поиск цикла в односвязном списке

И снова про тараканов, которые иногда возникают в голове. Как-то раз, засыпая, я задумался на курьезными задачками из своей сферы деятельности (Lotus Notes), которые можно было бы задать на собеседовании, плавно перешел к воспоминаниям о своих первых собеседования, когда опыта работы еще не было. Опыт самих собеседований у меня не велик а места, где задавались действительно интересные задачи (а не задачки типа: написать сортировку массива любым известным способом) вообще равны одному - это ABBYY. Как минимум одна задачка в списке на знание и понимание классических алгоритмов, описанных в книге Дональда Кнута - Искусство программирования .

Unit-testing object validation when validator has DI

Summary Unit test object validation when validator(s) has a dependency. For instance, we have some custom field and cross-field validators. Want to test their combination. Additionally some of validators have dependencies, injected through constructor or setters. You're not using property injection, right? Shortcut If you are just searching for an answer, here's the fast way: Declare CustomConstraintValidatorFactory that implements javax.validation.ConstraintValidatorFactory Override getInstance method and on facing your constraint validator class instantiate it Otherwise delegate validator construction to org.hibernate.validator.internal.engine.constraintvalidation.ConstraintValidatorFactoryImpl Build validator factory and provide it your CustomConstraintValidatorFactory Build validator, using that factory... Go to demo project on GitHub for details: https://github.com/MrArtemAA/blog-demos/blob/master/test-validator-with-injection/src/test/java/ru/artemaa/d

Lotus Notes FAQ. 8/9 Eclipse. Как настроить уведомления о Sametime сообщениях

Н а написание данной "инструкцию" натолкнул мой коллега. Помню, первый раз сам долго искал, как отключить постоянно выпрыгивающие уведомления о новых сообщениях в Sametime. И так, речь идет о клиентах IBM Notes 8+ версии Standart (Eclipse based). Как настроить уведомления о Sametime сообщениях?

Live Scripts

Поиск по этому блогу