К основному контенту

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

Задача: заменить текст в RichTextItem. Например, есть какой-то шаблон с тегами, в котором динамически происходит подстановка значений.
Поиск и замену всех тегов указанного значения можно выполнить вот в таком цикле:
?
1
2
3
4
5
6
7
8
9
10
11
12
Dim rtRange As NotesRichTextRange
Dim rtNav As NotesRichTextNavigator
 
Set rtRange = rtItem.Createrange()
Set rtNav = rtItem.Createnavigator()
 
While rtNav.Findfirststring(TAGKEY)
<span class="Apple-tab-span" style="white-space: pre;"> </span>//Замена значения
 
<span class="Apple-tab-span" style="white-space: pre;"> </span>Set rtRange = rtItem.Createrange()
<span class="Apple-tab-span" style="white-space: pre;"> </span>Set rtNav = rtItem.Createnavigator()
Wend
, где rtItem - переданный NotesRichTextItem.

Саму замену можно произвести вот так:
?
1
2
3
4
5
6
7
Call rtRange.Setbegin(rtNav)
Call rtRange.Setend(rtNav)
Call rtRange.Remove()
<span class="Apple-tab-span" style="white-space: pre;">   </span>
Call rtItem.Begininsert(rtNav)
Call rtItem.Appendtext(VALUE) //Добавляем текстовое значение.
Call rtItem.Endinsert()

НО. В таком случае при выполнении rtRange.Remove() мы теряем стилевую информацию и вставка происходит со значениями по-умолчанию. Перенос rtRange.Remove() не помогает. Нужно вместе с этим сохранить стиль. Полный код замены значения выглядит вот так:
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim rtRange As NotesRichTextRange
Dim rtNav As NotesRichTextNavigator
Dim rtStyle As NotesRichTextStyle
 
Set rtRange = rtItem.Createrange()
Set rtNav = rtItem.Createnavigator()
 
While rtNav.Findfirststring(TAGKEY)
<span class="Apple-tab-span" style="white-space: pre;"> </span>Call rtRange.Setbegin(rtNav)
<span class="Apple-tab-span" style="white-space: pre;"> </span>Call rtRange.Setend(rtNav)
<span class="Apple-tab-span" style="white-space: pre;"> </span>Set rtStyle = rtRange.Style
<span class="Apple-tab-span" style="white-space: pre;">   </span>
<span class="Apple-tab-span" style="white-space: pre;"> </span>Call rtItem.Begininsert(rtNav)
<span class="Apple-tab-span" style="white-space: pre;"> </span>Call rtItem.AppendStyle(rtStyle)
<span class="Apple-tab-span" style="white-space: pre;"> </span>Call rtItem.Appendtext(VALUE) //Добавляем текстовое значение.
<span class="Apple-tab-span" style="white-space: pre;"> </span>Call rtItem.Endinsert()
 
<span class="Apple-tab-span" style="white-space: pre;"> </span>Call rtRange.Remove()
 
<span class="Apple-tab-span" style="white-space: pre;"> </span>Set rtRange = rtItem.Createrange()
<span class="Apple-tab-span" style="white-space: pre;"> </span>Set rtNav = rtItem.Createnavigator()
Wend

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

Ярлыки

Ярлыки:

Комментарии

Отправить комментарий

Популярные сообщения из этого блога

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

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

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.
Отправить комментарий
Читать дальше »