Crystal Reports技术问询：如何统计自由文本字段中字符串的出现次数？

一、Excel环境下的实现方案 #

1. 单代码统计计算 #

针对单个代码（比如111），用LEN+SUBSTITUTE组合统计出现次数，再乘以对应费用：

=(LEN(A1)-LEN(SUBSTITUTE(A1,"111","")))/LEN("111") * B1

逻辑：用原文本长度减去替换掉目标代码后的文本长度，差值除以代码本身的长度，得到精准出现次数，再乘该代码的单价（假设单价存在B1单元格）。

2. 多代码批量统计（支持20个以内代码） #

如果要一次性处理所有代码并计算总费用，把代码列在D1:D20，对应费用列在E1:E20，目标文本在A1，用SUMPRODUCT一键计算：

=SUMPRODUCT((LEN(A1)-LEN(SUBSTITUTE(A1,D1:D20,"")))/LEN(D1:D20)*E1:E20)

这个公式会自动遍历每一组代码和费用，统计次数后相乘，最后求和得到总费用。

3. 避免子串误匹配 #

如果文本里存在类似1111这种包含目标代码的长串，不想被误统计，给代码前后加分隔符（比如文本里代码用逗号分隔），公式调整为：

=(LEN(","&A1&",")-LEN(SUBSTITUTE(","&A1&",",","&D1&",","")))/LEN(","&D1&",")*E1

这样只会匹配独立的完整代码，不会把1111当成两次111统计。

二、VBA自定义函数（应对复杂文本格式） #

如果文本格式不规则，或者需要更灵活的处理逻辑，写个自定义函数：

Function CalcTotalCost(txt As String, codesRange As Range, costsRange As Range) As Double
    Dim i As Integer
    Dim count As Integer
    Dim total As Double
    total = 0
    For i = 1 To codesRange.Rows.Count
        count = (Len(txt) - Len(Replace(txt, codesRange.Cells(i, 1).Value, ""))) / Len(codesRange.Cells(i, 1).Value)
        total = total + count * costsRange.Cells(i, 1).Value
    Next i
    CalcTotalCost = total
End Function

使用时直接在单元格输入=CalcTotalCost(A1,D1:D20,E1:E20)即可得到总费用。

三、Python脚本（批量处理大量数据） #

如果是处理海量数据，用Python效率更高：

def calculate_total_cost(text, code_cost_dict):
    total = 0.0
    for code, cost in code_cost_dict.items():
        count = text.count(code)
        total += count * cost
    return total

# 示例用法
text = "111,222,111,333,222"
code_cost = {"111": 10, "222": 20, "333": 30}
print(calculate_total_cost(text, code_cost))  # 输出：90

要避免子串误匹配的话，改用正则匹配独立代码：

import re

def calculate_total_cost(text, code_cost_dict):
    total = 0.0
    for code, cost in code_cost_dict.items():
        # 用单词边界匹配独立代码，可根据实际分隔符调整正则规则
        count = len(re.findall(r'\b' + re.escape(code) + r'\b', text))
        total += count * cost
    return total

内容的提问来源于stack exchange，提问作者ijghijkhbkjbnk