如何在Crystal Reports中使用Interleaved 2 of 5条码字体

问题背景 #

我安装了一款Interleaved 2 of 5字体，但直接输入数字使用时，条码扫描器无法正确识别：

• 字体本身不会自动添加ITF必需的起止符
• 手动添加起止符后，扫描结果依然错误（比如输入1234，扫描结果对应字体字符集的16171819，而非原数据）

原因是这款ITF字体并非直接映射数字字符，而是将每一对数字映射为一个特定的编码字符，直接输入数字会被字体解析为对应的编码字符，而非条码所需的数字组合。

已实现的解决方案 #

核心转换逻辑 #

ITF条码要求数据长度为偶数（奇数长度需补0），且每两个数字为一组，每组对应字体中的一个特定字符，再加上标准的起止符，才能生成可扫描的条码。

1. Excel VBA实现 #

以下自定义函数可将输入数据转换为符合字体要求的编码字符串：

Function ConvertToITF(inputStr As String) As String
    ' 补0确保数据长度为偶数
    If Len(inputStr) Mod 2 <> 0 Then
        inputStr = inputStr & "0"
    End If
    
    ' 替换为你所用字体的00-99对应字符映射表
    ' 示例映射（需根据字体的字符集对照表调整）
    Dim itfMap As Variant
    itfMap = Array( _
        Chr(32), Chr(33), Chr(34), Chr(35), Chr(36), Chr(37), Chr(38), Chr(39), Chr(40), Chr(41), _
        Chr(42), Chr(43), Chr(44), Chr(45), Chr(46), Chr(47), Chr(48), Chr(49), Chr(50), Chr(51), _
        Chr(52), Chr(53), Chr(54), Chr(55), Chr(56), Chr(57), Chr(58), Chr(59), Chr(60), Chr(61), _
        Chr(62), Chr(63), Chr(64), Chr(65), Chr(66), Chr(67), Chr(68), Chr(69), Chr(70), Chr(71), _
        Chr(72), Chr(73), Chr(74), Chr(75), Chr(76), Chr(77), Chr(78), Chr(79), Chr(80), Chr(81), _
        Chr(82), Chr(83), Chr(84), Chr(85), Chr(86), Chr(87), Chr(88), Chr(89), Chr(90), Chr(91), _
        Chr(92), Chr(93), Chr(94), Chr(95), Chr(96), Chr(97), Chr(98), Chr(99), Chr(100), Chr(101), _
        Chr(102), Chr(103), Chr(104), Chr(105), Chr(106), Chr(107), Chr(108), Chr(109), Chr(110), Chr(111), _
        Chr(112), Chr(113), Chr(114), Chr(115), Chr(116), Chr(117), Chr(118), Chr(119), Chr(120), Chr(121), _
        Chr(122), Chr(123), Chr(124), Chr(125), Chr(126), Chr(127), Chr(128), Chr(129), Chr(130), Chr(131) _
    )
    
    Dim result As String
    Dim i As Integer
    result = Chr(20) ' 起始符（需匹配字体要求，部分字体用"("替代）
    For i = 1 To Len(inputStr) Step 2
        Dim numPair As String
        numPair = Mid(inputStr, i, 2)
        result = result & itfMap(CInt(numPair))
    Next i
    result = result & Chr(21) ' 终止符（需匹配字体要求，部分字体用")"替代）
    ConvertToITF = result
End Function

使用方法：

• 按Alt+F11打开VBA编辑器，插入模块并粘贴代码
• 在Excel单元格中调用=ConvertToITF(A1)（A1为原始数据单元格）
• 给转换后的单元格设置为安装的ITF字体

2. 手动转换规则（小批量数据） #

1. 检查数据长度，奇数则末尾补0
2. 每两个数字为一组，对照字体的字符集表找到对应字符
3. 在首尾添加字体要求的起止符（比如(和)或特殊控制字符）

优化需求与更佳方案征集 #

目前的方案能解决问题，但仍有可优化空间：

• 有没有无需VBA的纯Excel公式实现？
• 有没有跨平台的批量转换工具/脚本（比如Python）？
• 如何快速验证转换后的条码有效性？
• 是否有更易用的ITF字体，无需手动转换即可直接生成可扫描条码？

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