利用Code128字体将文本转换为code128条形码 - 用户社区 - 易表在线答疑 - 简单实用的数据管理软件|数据统计软件|数据分析软件|电子表格软件

易表在线答疑 → 技术与交流 → 用户社区 → 利用Code128字体将文本转换为code128条形码

共有12092人关注过本帖树形打印复制链接主题：利用Code128字体将文本转换为code128条形码

ycs5801

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游民帖子：138 积分：2293 威望：0 精华：0 注册：2006/8/25 19:26:00

利用Code128字体将文本转换为code128条形码 发帖心情

Post By：2020/12/26 19:55:00 [显示全部帖子]

搜遍了论坛也没找到之前有人做过这个。就是想把文本转换成code 128条形码，具体公式从网上找到的，求大神帮忙转换成易表的公式表示。

Code128A

public string GetCode128A(string inputData)
        {
            string result = "";
            int checksum = 103;
            int j = 1;
            for (int ii = 0; ii < inputData.Length; ii++)
            {
                if (inputData[ii] >= 32)
                {
                    checksum += (inputData[ii] - 32) * (ii + 1);
                }
                else
                {
                    checksum += (inputData[ii] + 64) * (ii + 1);
                }
            }
            checksum = checksum % 103;
            if (checksum < 95)
            {
                checksum += 32;
            }
            else
            {
                checksum += 100;
            }
            result = Convert.ToChar(203) + inputData.ToString() + Convert.ToChar(checksum) + Convert.ToChar(206);
            return result;
        }

ycs5801

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游民帖子：138 积分：2293 威望：0 精华：0 注册：2006/8/25 19:26:00

Post By：2020/12/27 12:07:00 [显示全部帖子]

Function StrToCode128(str As String) As String
    Dim l As Integer, i As Integer, n As Integer, t As Integer, s As Integer
    Dim p As String
    l = Len(str)
    n = 104
    For i = 1 To l
        t = Asc(Mid(str, i, 1))
        If t >= 32 Then
            n = n + (t - 32) * i
        Else
            n = n + (t + 64) * i
        End If
    Next i
    s = n Mod 103
    If s >= 95 Then
        s = s + 100
    Else
        s = s + 32
    End If
    StrToCode128 = ChrW(204) + str + ChrW(s) + ChrW(206)

End Function

这个vba版的

下一主题 >> << 上一主题

主题：利用Code128字体将文本转换为code128条形码