BarCode128B字符转换函数（PB,SQL）

PB

//CODE128条码基础知识
//CODE128有三个版本
//CODE128A: 标准数字和字母, 控制符, 特殊字符
//CODE128B: 标准数字和字母, 小写字母, 特殊字符
//CODE128C: [00]-[99]的数字对集合, 共100个
//本函数采用CODE128B版本
//条码由开始位、数据位、校验位、停止位组成
//计算过程：
//1.取各字符ASC码乘以字符序号之和（以ASC=32为分界点，大于32减32，小于32加64）
//2.计算校验码
//3.组合条码：开始位+数据位+校验位+停止位
int li_asc_total = 104
int li_asc_tmp,i
char lc_start=char(204)//采用CODE128B版本
char lc_stop=char(206)
int li_check_digit
string ls_check_digit

//1.取各字符ASC码乘以字符序号之和（以ASC=32为分界点，大于32减32，小于32加64）
For i = 1 To len(as_sourcetext)
li_asc_tmp = Asc(mid(as_sourcetext,i, 1))
If li_asc_tmp >= 32 Then
li_asc_total = li_asc_total + (li_asc_tmp - 32) * i
Else
li_asc_total = li_asc_total + (li_asc_tmp + 64) * i
End If
Next
//2.计算校验码
li_check_digit = mod(li_asc_total,103)
If li_check_digit >= 95 Then//特殊字符
li_check_digit = li_check_digit + 100
Else
li_check_digit = li_check_digit + 32
end if
ls_check_digit = char(li_check_digit)
//3.组合条码：开始位+数据位+校验位+停止位
Return lc_start + as_sourcetext + ls_check_digit + lc_stop

SQL

create FUNCTION [dbo].[UDF_GetStr2Code128](
 @Str NVARCHAR(200))--128B码：ChrW(204)
 RETURNS NVARCHAR(200) 
AS
BEGIN
 DECLARE @checkB INT 
 DECLARE @i INT ,@j INT
 DECLARE @str2 NVARCHAR(2)
 SET @i=1
 
 SET @checkB = 1  --开始位的码值为104 mod 103 =1
                  --
 WHILE @i <= LEN(@Str) 
 BEGIN
  SET @str2 = SUBSTRING(@Str,@i,1)
  SET @j = ASCII(SUBSTRING(@Str,@i,1))--ASCII(@str2) --不过滤无效字符,比如汉字
  IF @j<135 
  BEGIN
   SET @j=@j-32
  END
  ELSE IF @j >=135 
  BEGIN
   SET @j=@j-100
  END
  SET @checkB = @checkB +  @i * @j
  SET @i=@i+1
 END  
 
 
 SET @checkB = @checkB % 103   --计算校验位
 IF @checkB<95 AND @checkB>0 --有的资料直接求103的模,解说不充分,因为有的校验位超过127时,系统会"吃"掉它们(连带休止符).
 BEGIN
  SET @checkB = @checkB + 32
 END
 ELSE IF @checkB > 94  -- '字体设置时,字模被定义了2个值.观察字体文件时能发现.
 BEGIN
  SET @checkB = @checkB + 100
 END
 
     RETURN NCHAR(204) + @Str + CASE WHEN @checkB>0 THEN NCHAR(@checkB) ELSE NCHAR(32) END + NCHAR(206)
    
END