数据制作合集

老赵0912

.版本 2
.支持库 xplib

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

.子程序 子程序1

XP风格 ()

.子程序 _按钮1_被单击

str2 ＝ 编辑框2.内容
str1 ＝ 编辑框1.内容
str3 ＝ 编辑框3.内容
n2 ＝ 到数值 (编辑框2.内容)
n4 ＝ 到数值 (编辑框4.内容)
l2 ＝ 取文本长度 (str2)
wjm ＝ 编辑框5.内容
文件号 ＝ 打开文件 (取运行目录 () ＋ “\” ＋ wjm ＋ “.txt”, #重写, #无限制)
.计次循环首 (n4, i)
    jg ＝ 到文本 (n2)
    .判断循环首 (取文本长度 (jg) ＜ l2)
        jg ＝ “0” ＋ jg
    .判断循环尾 ()
    zzjg ＝ “NO.” ＋ str1 ＋ jg ＋ str3 ＋ “,” ＋ str1 ＋ jg ＋ str3
    写出文本 (文件号, zzjg)
    写出文本 (文件号, #换行符)
    n2 ＝ n2 ＋ 1
.计次循环尾 ()
关闭文件 (文件号)
信息框 (“完成，老赵制作”, 0, , )


.子程序 _按钮2_被单击

str2 ＝ 编辑框2.内容
str1 ＝ 编辑框1.内容
str3 ＝ 编辑框3.内容
n2 ＝ 到数值 (编辑框2.内容)
n4 ＝ 到数值 (编辑框4.内容)
l2 ＝ 取文本长度 (str2)
wjm ＝ 编辑框5.内容
文件号 ＝ 打开文件 (取运行目录 () ＋ “\” ＋ wjm ＋ “.txt”, #重写, #无限制)
.计次循环首 (n4, i)
    jg ＝ 到文本 (n2)
    .判断循环首 (取文本长度 (jg) ＜ l2)
        jg ＝ “0” ＋ jg
    .判断循环尾 ()
    zzjg ＝ str1 ＋ jg ＋ str3
    写出文本 (文件号, zzjg)
    写出文本 (文件号, #换行符)
    n2 ＝ n2 ＋ 1
.计次循环尾 ()
关闭文件 (文件号)
信息框 (“完成，老赵制作”, 0, , )


.子程序 _按钮3_被单击

str1 ＝ 编辑框1.内容
str2 ＝ 编辑框2.内容
str3 ＝ 编辑框3.内容
n2 ＝ 到数值 (编辑框2.内容) ＋ 到数值 (编辑框4.内容) － 1
n4 ＝ 到数值 (编辑框4.内容)
l2 ＝ 取文本长度 (str2)
wjm ＝ 编辑框5.内容
文件号 ＝ 打开文件 (取运行目录 () ＋ “\” ＋ wjm ＋ “.txt”, #重写, #无限制)
.计次循环首 (n4, i)
    jg ＝ 到文本 (n2)
    .判断循环首 (取文本长度 (jg) ＜ l2)
        jg ＝ “0” ＋ jg
    .判断循环尾 ()
    zzjg ＝ str1 ＋ jg ＋ str3
    写出文本 (文件号, zzjg)
    写出文本 (文件号, #换行符)
    n2 ＝ n2 － 1
.计次循环尾 ()
关闭文件 (文件号)
信息框 (“完成，老赵制作”, 0, , )

.版本 2

.全局变量 str1, 文本型, , , 编辑框1的文本
.全局变量 str2, 文本型, , , 编辑框2的文本
.全局变量 str3, 文本型, , , 编辑框3的文本
.全局变量 str4, 文本型, , , 编辑框4的文本
.全局变量 l2, 整数型, , , 编辑框2的文本的长度
.全局变量 n2, 整数型, , , 把编辑框2中的文本转换为数字
.全局变量 jg, 文本型, , , 输出的结果文本
.全局变量 文件号, 整数型, , , 输出文件的文件号
.全局变量 i, 整数型, , , 循环计数
.全局变量 n4, 整数型, , , 编辑框4的文本转换为数字
.全局变量 zzjg, 文本型, , , 最终结果
.全局变量 wjm, 文本型, , , 生成的文件名
.全局变量 变量1

暮烟疏雨

支持开源~！感谢分享

光影魔术

感谢分享源码

please

感谢分享，支持开源！！！

please

感谢分享，支持开源！！！

ctry78985

感谢分享

豆豆灰常开心

下个学习一下

查过

感谢分享，很给力！~

木木大大

大佬牛逼，学习了

lq850815

666666666666666666