我有一个单词列表，我正在通过表格中的“备注”字段搜索，当我在 Crystal Report 中显示该备注字段时，我想以某种方式仅突出显示（更改字体颜色）特定的注释文本字符串中的标记词。
示例： 词表：乔、莎拉、艾米、杰夫 备注文本：“我路过并与乔交谈以检查帐户状态，艾米打了招呼。”
期望的结果：报告中的注释文本显示为红色，“Joe”和“Amy”字样。
我尝试在属性中的文本解释参数中使用 RTF 和 HTML，我可以成功地将注释文本格式化为这些文本输出中的任何一个。但是，我仍然不知道从列表中分离和格式化特定单词的正确代码，尤其是当我的多个单词出现在字段文本中时。
提前感谢您能给我的任何帮助！
【问题讨论】：
标签： crystal-reports reporting string-formatting text-parsing
我知道这是旧的，但我发现它正在寻找我遇到的问题。回答的代码有效，但对我来说似乎有点混乱，而且我需要能够提供要突出显示的单词列表。这是我想出的。
Local Stringvar Array searchwords:=MakeArray("Joe", "Sarah", "Amy");
local stringvar notes:={Notes};
local numbervar i;
for i:=1 to count(searchwords) do (
notes:=replace(notes,searchwords[i],"<font color='red'>" & searchwords[i] & "</font>",1,-1,1);
);
notes
唯一需要注意的是，当搜索词是较大词的一部分时，这将找到结果 - 即“工作”在“工作坊”中会加粗。
虽然这可以满足我们的需求，因为我们希望“工作”、“工作”、“工作”等都突出显示，但不支持正则表达式的水晶报告是一个很大的缺点。
【讨论】：
几年前我做过类似的事情：
StringVar SearchText := "has";
StringVar Htm1 := "<b>";
StringVar Htm2 := "</b>";
StringVar Result := "";
StringVar Temp := "";
NumberVar Start := 1;
NumberVar Ln := Len(SearchText);
NumberVar Loc := Instr({@TextField}, SearchText);
While Loc > 0 Do (
Temp := Mid({@TextField}, Start, Loc - Start) + Htm1 + Mid({@TextField}, Loc, Ln) & Htm2;
Result := Result + Temp;
Start := Loc + Ln;
Loc := Instr(Start, {@TextField}, SearchText);
);
Temp := Mid({@TextField}, Start);
Result := Result + Temp;
Result
在这种情况下，我在名为 @TextField 的字段中搜索 SearchText 中的值，并将这些值加粗。可能不是最有效的代码，但它确实有效。
【讨论】：