Замена текста в 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/...

Use @SpringBootTest for validator's unit test and be fast enough

This a continuation of the post: https://live-scripts.blogspot.com/2020/02/unit-testing-object-validation-with-di-in-validator.html#more . Last time we talked about testing a validator, which has a dependency. Using pure @SpringBootTest turned out to be too slow. So I showed a "trick" to override the validator's factory in order to inject the dependant object. This reduced test run time. I promised to show a way to use @SpringBootTest , autowiring, and still be quick enough.

Live Scripts

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