数据文本排序整理保存

满天飘雪

各位大哥们，怎么样可以按这顺序取出文本保存呢，能出例子谢谢


补充内容 (2026-1-13 16:51):

zainex

  

子程序名	返回值类型	公开	备 注
排序子程序

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
表项	整数型
r	整数型
起点	整数型
结果	文本型

超级列表框1.全部删除 ()
超级列表框2.全部删除 ()
文本数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (文本数组), r)
表项 ＝ 超级列表框1.插入表项 (, 到文本 (r), , , , )
超级列表框1.置标题 (表项, 1, 文本数组 [r])
超级列表框1.保证显示 (表项)
计次循环尾 ()
起点 ＝ 1
r ＝ 1
计次循环首 (取数组成员数 (文本数组), )
如果真 (起点 ＋ 7 ≤ 取数组成员数 (文本数组))
表项 ＝ 超级列表框2.插入表项 (, 到文本 (r), , , , )
超级列表框2.置标题 (表项, 1, 文本数组 [起点])
表项 ＝ 超级列表框2.插入表项 (, 到文本 (r ＋ 1), , , , )
超级列表框2.置标题 (表项, 1, 文本数组 [起点 ＋ 2])
表项 ＝ 超级列表框2.插入表项 (, 到文本 (r ＋ 2), , , , )
超级列表框2.置标题 (表项, 1, 文本数组 [起点 ＋ 7])
结果 ＝ 结果 ＋ 文本数组 [起点] ＋ #换行符
结果 ＝ 结果 ＋ 文本数组 [起点 ＋ 2] ＋ #换行符
结果 ＝ 结果 ＋ 文本数组 [起点 ＋ 7] ＋ #换行符 ＋ #换行符
r ＝ r ＋ 3
起点 ＝ 起点 ＋ 1
超级列表框1.保证显示 (表项)
计次循环尾 ()
写到文件 (取运行目录 () ＋ “\处理好.txt”, 到字节集 (结果))

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 排序子程序<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 表项, 整数型<br /> .局部变量 r, 整数型<br /> .局部变量 起点, 整数型<br /> .局部变量 结果, 文本型<br /> <br /> 超级列表框1.全部删除 ()<br /> 超级列表框2.全部删除 ()<br /> 文本数组 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (文本数组), r)<br />     表项 ＝ 超级列表框1.插入表项 (, 到文本 (r), , , , )<br />     超级列表框1.置标题 (表项, 1, 文本数组 [r])<br />     超级列表框1.保证显示 (表项)<br /> .计次循环尾 ()<br /> 起点 ＝ 1<br /> r ＝ 1<br /> .计次循环首 (取数组成员数 (文本数组), )<br />     .如果真 (起点 ＋ 7 ≤ 取数组成员数 (文本数组))<br />         表项 ＝ 超级列表框2.插入表项 (, 到文本 (r), , , , )<br />         超级列表框2.置标题 (表项, 1, 文本数组 [起点])<br />         表项 ＝ 超级列表框2.插入表项 (, 到文本 (r ＋ 1), , , , )<br />         超级列表框2.置标题 (表项, 1, 文本数组 [起点 ＋ 2])<br />         表项 ＝ 超级列表框2.插入表项 (, 到文本 (r ＋ 2), , , , )<br />         超级列表框2.置标题 (表项, 1, 文本数组 [起点 ＋ 7])<br />         结果 ＝ 结果 ＋ 文本数组 [起点] ＋ #换行符<br />         结果 ＝ 结果 ＋ 文本数组 [起点 ＋ 2] ＋ #换行符<br />         结果 ＝ 结果 ＋ 文本数组 [起点 ＋ 7] ＋ #换行符 ＋ #换行符<br />         r ＝ r ＋ 3<br />     .如果真结束<br />     起点 ＝ 起点 ＋ 1<br />     超级列表框1.保证显示 (表项)<br /> .计次循环尾 ()<br /> 写到文件 (取运行目录 () ＋ “\处理好.txt”, 到字节集 (结果))

例子.zip (2.25 KB, 下载次数: 6)

2026-1-13 17:11 上传

点击文件名下载附件

z573277679

载数据.e (5.7 KB, 下载次数: 5)

2026-1-13 17:06 上传

点击文件名下载附件

满天飘雪

zainex 发表于 2026-1-13 17:12
[e=1].版本 2
.支持库 iext

几万的数据好卡，反应好慢