|
发表于 2022-6-27 21:17:56
|
显示全部楼层
湖北省荆州市
[e=1][/e].版本 2
.子程序 _按钮1_被单击
.局部变量 文件, 文本型
.局部变量 i, 整数型
.局部变量 fg, 文本型, , "0"
.局部变量 排序数组, 文本型, , "0"
.局部变量 a, 整数型
.局部变量 数句, 文本型
.局部变量 总行, 整数型
.局部变量 nr, 文本型
文件 = 编辑框1.内容
fg = 分割文本 (文件, #换行符, )
.计次循环首 (取数组成员数 (fg), i)
nr = 辅助_加入 (fg )
.计次循环尾 ()
编辑框1.内容 = nr
.子程序 辅助_加入, 文本型
.参数 行, 文本型
.局部变量 测试, 文本型
.局部变量 i, 整数型
.局部变量 fg, 文本型, , "0"
.局部变量 文本, 文本型
.局部变量 数据, 文本型
.局部变量 数据1, 文本型
.局部变量 内容, 文本型
测试 = 到文本 (读入文件 (取运行目录 () + “\测试.ini”))
.判断开始 (文本_取行数 (测试) < 1)
写到文件 (取运行目录 () + “\测试.ini”, 到字节集 (行))
.默认
.计次循环首 (文本_取行数 (测试), i)
fg = 分割文本 (测试, #换行符, )
文本 = fg
数据 = 文本_取右边 (文本, “=”, , )
数据1 = 文本_取右边 (行, “=”, , )
.判断开始 (到整数 (数据) > 到整数 (数据1))
到循环尾 ()
.判断 (到整数 (数据) ≤ 到整数 (数据1))
内容 = 文本_插入新一行 (测试, i, 行)
写到文件 (取运行目录 () + “\测试.ini”, 到字节集 (内容))
跳出循环 ()
.默认
.判断结束
.计次循环尾 ()
.判断结束
测试 = 到文本 (读入文件 (取运行目录 () + “\测试.ini”))
返回 (测试)
|
|