升序和降序数据制作

老赵0912

一款生成升序或降序的小工具。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, , )

lqylbh

感谢分享，很给力！~

year1970

感谢分享，学习一下

ctry78985

感谢分享

fengyewl

        感谢分享，很给力！~

kyo9766

学习一下排序，感谢分享

胖子葛格

感谢大神分享

wh1234567

写成函数那种的方便调用

bianyuan456

已经顶贴，感谢您对论坛的支持！

ZHuanR

新技能已get√