EAN13码批量生成

老赵0912 · 发表于 2023-12-14 15:00:36

本帖最后由老赵0912 于 2023-12-14 15:22 编辑

用这个软件可以批量生成EAN13码！

.版本 2
.支持库 xplib

.程序集窗口程序集_启动窗口

.子程序子程序1

XP风格 ()

.子程序 _按钮1_被单击
.局部变量 str2, 文本型, , , 编辑框2的文本内容
.局部变量 str4, 文本型, , , 编辑框4的文本内容
.局部变量 l2, 长整数型, , , 编辑框2的文本长度
.局部变量 n2, 长整数型, , , 编辑框2的文本转换为数字
.局部变量 jg, 文本型, , , 结果文本
.局部变量文件号, 长整数型, , , 输出文件的文件号
.局部变量 i, 整数型, , , 循环计数
.局部变量 n4, 长整数型, , , 编辑框4的文本转换为数字
.局部变量 ly, 文本型, , , 取结果的最右边数字
.局部变量 zzjg, 文本型, , , 得到的最终结果
.局部变量 jj, 长整数型
.局部变量 oj, 长整数型
.局部变量 oj3, 长整数型
.局部变量 gws, 长整数型
.局部变量 gws1, 长整数型
.局部变量 ysm, 文本型

str2 ＝编辑框2.内容
n2 ＝到数值 (编辑框2.内容)
n4 ＝到数值 (编辑框4.内容)
l2 ＝取文本长度 (str2)
ly ＝取文本右边 (jg, 1)
文件号＝打开文件 (取运行目录 () ＋ “\13码.txt”, #重写, #禁止读写)
.计次循环首 (n4, i)
jg ＝到文本 (n2)
.判断循环首 (取文本长度 (jg) ＜ l2) ' 判断jg的长度小于自定义的长度
jg ＝ “0” ＋ jg ' 前面补零
.判断循环尾 ()
zzjg ＝ jg
jj ＝到数值 (取文本左边 (zzjg, 1)) ＋到数值 (取文本中间 (zzjg, 3, 1)) ＋到数值 (取文本中间 (zzjg, 5, 1)) ＋到数值 (取文本中间 (zzjg, 7, 1)) ＋到数值 (取文本中间 (zzjg, 9, 1)) ＋到数值 (取文本中间 (zzjg, 11, 1))
oj ＝到数值 (取文本中间 (zzjg, 2, 1)) ＋到数值 (取文本中间 (zzjg, 4, 1)) ＋到数值 (取文本中间 (zzjg, 6, 1)) ＋到数值 (取文本中间 (zzjg, 8, 1)) ＋到数值 (取文本中间 (zzjg, 10, 1)) ＋到数值 (取文本中间 (zzjg, 12, 1))
oj3 ＝ oj × 3
' 编辑框2.内容＝到文本 (jj ＋ oj3)
gws ＝到数值 (取文本右边 (到文本 (jj ＋ oj3), 1))
gws1 ＝ 10 － gws
ysm ＝ zzjg ＋取文本右边 (到文本 (gws1), 1)

写出文本 (文件号, ysm)
写出文本 (文件号, #换行符)
n2 ＝ n2 ＋ 1
.计次循环尾 ()

关闭文件 (文件号)
信息框 (“生成完毕，请查看《13码.txt》文档”, 0, , )