如何在Crystal Reports中移除字符串字段内的所有HTML标签（含多实例动态标签）？

API 探路者

2026-7-12

在Crystal Report中移除所有HTML标签（含动态带属性标签）

问题分析

你当前的方法仅能移除单个标签实例，因为ExtractString只返回第一个匹配的标签内容，Replace也只会替换一次。要批量清除所有带属性的动态标签（如<a href="...">、<span class="...">），需要循环或递归处理字符串中的所有标签。

方案1：使用递归自定义函数（推荐，复用性高）

创建自定义函数：
在Crystal Report中，打开「字段资源管理器」→ 右键「公式字段」→ 「新建」→ 选择「函数」，命名为RemoveAllHTMLTags，输入以下代码：

Function RemoveAllHTMLTags (stringvar input)
  Local NumberVar startPos := InStr(input, "<");
  Local NumberVar endPos := InStr(startPos, input, ">");
  
  If startPos > 0 And endPos > startPos Then
    RemoveAllHTMLTags(Left(input, startPos - 1) + Mid(input, endPos + 1))
  Else
    input;
End Function

在公式中调用函数：
创建新的公式字段，直接调用该函数处理目标字段：
```
RemoveAllHTMLTags({FieldName})
```
该函数会递归查找并移除所有<和>包裹的内容，不管标签是否带属性，彻底清除所有HTML标签。

方案2：直接在公式中使用循环处理

如果不想创建自定义函数，可直接在单个公式里用循环实现：

Local StringVar cleanText := {FieldName};
Local NumberVar startPos;
Local NumberVar endPos;

Do While InStr(cleanText, "<") > 0 And InStr(InStr(cleanText, "<"), cleanText, ">") > InStr(cleanText, "<")
  startPos := InStr(cleanText, "<");
  endPos := InStr(startPos, cleanText, ">");
  cleanText := Left(cleanText, startPos - 1) + Mid(cleanText, endPos + 1);
Loop

cleanText

循环会反复扫描字符串，移除所有HTML标签，直到文本中不再包含<和>。