PB里实现EAN-13的算法

ehxz

免费乐捐，感谢支持

long n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13
long ll_n1,ll_n2,ll_n3,ll_n4,ll_n5,ll_n6
string ls_str1,ls_str2
ls_str1 = sle_1.text
n1 = long(mid(ls_str1,1,1)) //取最高位
n2 = long(mid(ls_str1,2,1))
n3 = long(mid(ls_str1,3,1))
n4 = long(mid(ls_str1,4,1))
n5 = long(mid(ls_str1,5,1))
n6 = long(mid(ls_str1,6,1))
n7 = long(mid(ls_str1,7,1))
n8 = long(mid(ls_str1,8,1))
n9 = long(mid(ls_str1,9,1))
n10 = long(mid(ls_str1,10,1))
n11 = long(mid(ls_str1,11,1))
n12 = long(mid(ls_str1,12,1))
ll_n1 = n1+n3+n5+n7+n9+n11
ll_n2 = (n2+n4+n6+n8+n10+n12)*3 //单数*3
ll_n3 = mod(ll_n1,10) + mod(ll_n2,10)
ll_n4 = mod(ll_n3,10)
if ll_n4 = 0 then
//        ll_n5 = mod(ll_n3/10,10)
//        n13 = 10 - ll_n5
        n13 = 0
else
        n13 = 10 - ll_n4
end if

sle_2.text = string(n1) + string(n2) + string(n3) + string(n4) + string(n5) + string(n6) + string(n7) + string(n8) + string(n9) + string(n10) + string(n11) + string(n12) + string(n13)
PB8.0下测试通过。

ehxz

函数版本

fuxiaoyang13

多谢分享！！！！！！！！！！！！

mikewolfli

谢谢分享！！！！！