本帖最后由 老赵0912 于 2024-1-9 15:47 编辑
一款生成升序或降序的小工具。https://hblaozhao.mysxl.cn/ 我自己的小网站。
.版本 2
.支持库 xplib
.程序集 窗口程序集_启动窗口
.子程序 子程序1
XP风格 ()
.子程序 _按钮1_被单击
.局部变量 str1, 文本型, , , 编辑框1的文本内容
.局部变量 str2, 文本型, , , 编辑框2的文本内容
.局部变量 str3, 文本型, , , 编辑框3的文本内容
.局部变量 str4, 文本型, , , 编辑框4的文本内容
.局部变量 l2, 整数型, , , 编辑框2的文本长度
.局部变量 n2, 整数型, , , 编辑框2的文本转换为数字
.局部变量 jg, 文本型, , , 结果文本
.局部变量 文件号, 整数型, , , 输出文件的文件号
.局部变量 i, 整数型, , , 循环计数
.局部变量 n4, 整数型, , , 编辑框4的文本转换为数字
.局部变量 ly, 文本型, , , 取结果的最右边数字
.局部变量 zzjg, 文本型, , , 得到的最终结果
str1 = 编辑框1.内容
str2 = 编辑框2.内容
str3 = 编辑框3.内容
n2 = 到数值 (编辑框2.内容)
n4 = 到数值 (编辑框4.内容)
l2 = 取文本长度 (str2)
ly = 取文本右边 (jg, 1)
文件号 = 打开文件 (取运行目录 () + “\倒序.txt”, #重写, #禁止读写)
n2 = n2 + n4 - 1
.计次循环首 (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的文本转换为数字
.局部变量 ly, 文本型, , , 取结果的最右边数字
.局部变量 zzjg, 文本型, , , 得到的最终结果
str1 = 编辑框1.内容
str2 = 编辑框2.内容
str3 = 编辑框3.内容
n2 = 到数值 (编辑框2.内容)
n4 = 到数值 (编辑框4.内容)
l2 = 取文本长度 (str2)
ly = 取文本右边 (jg, 1)
文件号 = 打开文件 (取运行目录 () + “\升序.txt”, #重写, #禁止读写)
.计次循环首 (n4, i)
jg = 到文本 (n2)
.判断循环首 (取文本长度 (jg) < l2)
jg = “0” + jg
.判断循环尾 ()
zzjg = str1 + jg + str3
写出文本 (文件号, zzjg)
写出文本 (文件号, #换行符)
n2 = n2 + 1
.计次循环尾 ()
关闭文件 (文件号)
信息框 (“完成”, 0, , )
|