vb.net 使用code128 代码

最新推荐文章于 2024-08-30 10:24:42 发布

jeffkxt

最新推荐文章于 2024-08-30 10:24:42 发布

阅读量1.7k

点赞数

分类专栏： .Net 文章标签： vb.net string integer function

本文链接：https://blog.csdn.net/jeffkxt/article/details/6927901

版权

.Net 专栏收录该内容

5 篇文章 0 订阅

订阅专栏

 public static string To128Code(this String inputData)
        {
            string result;
            Int64 checksum = 104;
            for (int ii = 0; ii <= inputData.Length - 1; ii++)
            {

                if ((int)inputData[ii] >= 32)
                {
                    checksum += ((int)inputData[ii] - 32) * (ii + 1);
                }
                else
                {
                    checksum += ((int)inputData[ii] + 64) * (ii + 1);
                }
            }
            checksum = checksum % 103;
            if (checksum < 95)
            {
                checksum += 32;
            }
            else
            {
                checksum += 100;
            }
            result = Convert.ToChar(204) + inputData.ToString() + Convert.ToChar(checksum) + Convert.ToChar(206);
            return result;
        }

#Region "生成Code128字符集" Public Function Get128CodeString(ByVal inputData As String) As String Dim result As String Dim checksum As Int64 = 104 For ii As Integer = 0 To inputData.Length - 1 If Asc(inputData(ii)) >= 32 Then checksum += (Asc(inputData(ii)) - 32) * (ii + 1) Else checksum += (Asc(inputData(ii)) + 64) * (ii + 1) End If Next checksum = checksum Mod 103 If checksum < 95 Then checksum += 32 Else checksum += 100 End If result = Convert.ToChar(204) + inputData.ToString() + Convert.ToChar(checksum) + Convert.ToChar(206) Return result End Function#End Region