超级列表框排序问题

ngrjsc

举例看图：文本排序完成后（红色区域）能否以数字大小在排序（蓝色区域）（数字大小排序不能离开这个区域里）------------其他区域也是同理

麻烦老师帮写个代码，谢谢、

sphinxes

  

子程序名	返回值类型	公开	备 注
_超级列表框1_表头被单击
参数名	类 型	参考	可空	数组	备 注
被单击列索引	整数型

如果真 (被单击列索引 ＝ 0)
如果 (寻找文本 (超级列表框1.取列标题 (0), “↓”, , 假) ≠ -1)
超级列表框排序 (超级列表框1, 0, , 1, , 真)
超级列表框1.置列标题 (0, “文件名称↑”)
超级列表框排序 (超级列表框1, 0, , 1, , 假)  ' 假为从大到小
超级列表框1.置列标题 (0, “文件名称↓”)
超级列表框1.置列标题 (1, “类型”)
超级列表框1.置列标题 (2, “大小”)
如果真 (被单击列索引 ＝ 1)
如果 (寻找文本 (超级列表框1.取列标题 (1), “↓”, , 假) ≠ -1)
超级列表框排序 (超级列表框1, 1, , 1, , 真)
超级列表框1.置列标题 (1, “类型↑”)
超级列表框排序 (超级列表框1, 1, , 1, , 假)
超级列表框1.置列标题 (1, “类型↓”)
超级列表框1.置列标题 (0, “文件名称”)
超级列表框1.置列标题 (2, “大小”)
如果真 (被单击列索引 ＝ 2)
如果 (寻找文本 (超级列表框1.取列标题 (2), “↓”, , 假) ≠ -1)
超级列表框排序 (超级列表框1, 3, , 0, , 真)
超级列表框1.置列标题 (2, “大小↑”)
超级列表框排序 (超级列表框1, 3, , 0, , 假)
超级列表框1.置列标题 (2, “大小↓”)
超级列表框1.置列标题 (0, “文件名称”)
超级列表框1.置列标题 (1, “类型”)

子程序名	返回值类型	公开	备 注
超级列表框排序	整数型		返回排序时间,选中后排序还选中，必须项目数值不为0 没有默认为1
参数名	类 型	参考	可空	数组	备 注
对象	超级列表框
列索引	整数型				索引值从 0 开始。
实际数据	文本型				格式 {“今天:0”,“明天:1”}    该参数
类型	整数型				0=数值;1=文本;2=日期时间;3=逻辑;4=图片索引   类型4
区分大小写	逻辑型				真为区分,默认为真
排序方式	逻辑型				真为小到大,默认为真

变量名	类 型	静态	数组	备 注
排序时间	整数型
排序变量	文本型		0
序号数组	整数型		0
表项数值	整数型		0
图片数组	整数型		0
状态图片	整数型		0
变量	整数型
数据	文本型
列数	整数型
行数	整数型
单元数	整数型
选中项	整数型
i

类型 ＝ 选择 (类型 ≥ 0 且 类型 ≤ 4, 类型, 1)
区分大小写 ＝ 选择 (是否为空 (区分大小写), 真, 区分大小写)
排序方式 ＝ 选择 (是否为空 (排序方式), 真, 排序方式)
如果真 (对象.现行选中项 ≠ -1)
如果真 (对象.取表项数值 (对象.现行选中项) ＝ 0)
对象.置表项数值 (对象.现行选中项, 1)
选中项 ＝ 对象.取表项数值 (对象.现行选中项)
计次循环首 (对象.取表项数 (), 变量)
如果 (类型 ＝ 4)
数据 ＝ 到文本 (对象.取图片 (变量 － 1, 列索引))
数据 ＝ 删首尾空 (对象.取标题 (变量 － 1, 列索引))
计次循环首 (取数组成员数 (实际数据), i)
如果真 (取文本左边 (实际数据 [i], 取文本长度 (数据) ＋ 1) ＝ 数据 ＋ “:”)
数据 ＝ 子文本替换 (实际数据 [i], 数据 ＋ “:”, “”, , , 真)
跳出循环 ()
' 易语言Q群87137652
计次循环尾 ()如果 (类型 ≠ 3)
如果 (类型 ＝ 4)
单元数 ＝ 二分查找 (排序变量, 数据, 0, 区分大小写)
单元数 ＝ 二分查找 (排序变量, 数据, 类型, 区分大小写)
插入成员 (排序变量, 单元数, 数据)
插入成员 (序号数组, 单元数, 变量 － 1)
插入成员 (表项数值, 单元数, 对象.取表项数值 (变量 － 1))
插入成员 (状态图片, 单元数, 对象.取当前状态图片 (变量 － 1))
插入成员 (序号数组, 选择 (数据 ＝ “假”, 变量, 1), 变量 － 1)
插入成员 (表项数值, 选择 (数据 ＝ “假”, 变量, 1), 对象.取表项数值 (变量 － 1))
插入成员 (状态图片, 选择 (数据 ＝ “假”, 变量, 1), 对象.取当前状态图片 (变量 － 1))

计次循环尾 ()
列数 ＝ 对象.取列数 ()
行数 ＝ 取数组成员数 (序号数组)
单元数 ＝ 行数 × 列数
重定义数组 (排序变量, 假, 单元数)
重定义数组 (图片数组, 假, 单元数)
计次循环首 (单元数, 变量)
排序变量 [变量] ＝ 对象.取标题 (序号数组 [取绝对值 (选择 (排序方式, -1, 行数) ��� (变量 － 1) ＼ 列数)], (变量 － 1) ％ 列数)
图片数组 [变量] ＝ 对象.取图片 (序号数组 [取绝对值 (选择 (排序方式, -1, 行数) ��� (变量 － 1) ＼ 列数)], (变量 － 1) ％ 列数)
计次循环尾 ()
计次循环首 (单元数, 变量)
对象.置标题 ( (变量 － 1) ＼ 列数, (变量 － 1) ％ 列数, 排序变量 [变量])
对象.置表项数值 ( (变量 － 1) ＼ 列数, 表项数值 [取绝对值 (选择 (排序方式, -1, 行数) ��� (变量 － 1) ＼ 列数)])  ' 本来加个判断的,算啦,为了提高速度,多重复置表项数值几次吧:)
如果真 (图片数组 [变量] ≠ -1)
对象.置图片 ( (变量 － 1) ＼ 列数, (变量 － 1) ％ 列数, 图片数组 [变量])
如果真 (状态图片 [取绝对值 (选择 (排序方式, -1, 行数) ��� (变量 － 1) ＼ 列数)] ≠ -1)
对象.置状态图片 ( (变量 － 1) ＼ 列数, 状态图片 [取绝对值 (选择 (排序方式, -1, 行数) ��� (变量 － 1) ＼ 列数)])

计次循环尾 ()
如果真 (选中项 ≠ 0)
计次循环首 (对象.取表项数 (), 变量)
如果真 (对象.取表项数值 (变量 － 1) ＝ 选中项)
对象.现行选中项 ＝ 变量 － 1
对象.保证显示 (变量 － 1)
跳出循环 ()

计次循环尾 ()
返回 (取启动时间 () － 排序时间)

子程序名	返回值类型	公开	备 注
二分查找	整数型
参数名	类 型	参考	可空	数组	备 注
数组	文本型
待查	文本型
类型	整数型
区分大小写	逻辑型

变量名	类 型	静态	数组	备 注
K	整数型
M	整数型
J	整数型
数值A	双精度小数型
数值B	双精度小数型
文本	文本型

K ＝ 1
M ＝ 取数组成员数 (数组)
如果真 (M ＝ 0)
返回 (1)
判断 (类型 ＝ 0)
数值A ＝ 到数值 (待查)
如果真 (数值A ≥ 到数值 (数组 [M]))
返回 (M ＋ 1)
如果真 (数值A ≤ 到数值 (数组 [1]))
返回 (1)
判断循环首 (K ＜ M － 1)
J ＝ (K ＋ M) ＼ 2
数值B ＝ 到数值 (数组 [J])
如果真 (数值A ＝ 数值B)
K ＝ J
跳出循环 ()
如果 (数值A ＜ 数值B)
M ＝ J
K ＝ J

判断循环尾 ()
判断 (类型 ＝ 1)
如果真 (文本比较 (待查, 数组 [M], 区分大小写) ≥ 0)
返回 (M ＋ 1)
如果真 (文本比较 (待查, 数组 [1], 区分大小写) ≤ 0)
返回 (1)
判断循环首 (K ＜ M － 1)
J ＝ (K ＋ M) ＼ 2
如果真 (文本比较 (待查, 数组 [J], 区分大小写) ＝ 0)
K ＝ J
跳出循环 ()
如果 (文本比较 (待查, 数组 [J], 区分大小写) ＜ 0)
M ＝ J
K ＝ J

判断循环尾 ()
判断 (类型 ＝ 2)
数值A ＝ 取字节集数据 (到字节集 (到时间 (待查)), #双精度小数型 )
如果真 (数值A ≥ 取字节集数据 (到字节集 (到时间 (数组 [M])), #双精度小数型 ))
返回 (M ＋ 1)
如果真 (数值A ≤ 取字节集数据 (到字节集 (到时间 (数组 [1])), #双精度小数型 ))
返回 (1)
判断循环首 (K ＜ M － 1)
J ＝ (K ＋ M) ＼ 2
数值B ＝ 取字节集数据 (到字节集 (到时间 (数组 [J])), #双精度小数型 )
如果真 (数值A ＝ 数值B)
K ＝ J
跳出循环 ()
如果 (数值A ＜ 数值B)
M ＝ J
K ＝ J

判断循环尾 ()


返回 (K ＋ 1)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _超级列表框1_表头被单击<br /> .参数 被单击列索引, 整数型<br /> <br /> .如果真 (被单击列索引 ＝ 0)<br />     .如果 (寻找文本 (超级列表框1.取列标题 (0), “↓”, , 假) ≠ -1)<br />         超级列表框排序 (超级列表框1, 0, , 1, , 真)<br />         超级列表框1.置列标题 (0, “文件名称↑”)<br />     .否则<br />         超级列表框排序 (超级列表框1, 0, , 1, , 假)  ' 假为从大到小<br />         超级列表框1.置列标题 (0, “文件名称↓”)<br />     .如果结束<br />     超级列表框1.置列标题 (1, “类型”)<br />     超级列表框1.置列标题 (2, “大小”)<br /> .如果真结束<br /> .如果真 (被单击列索引 ＝ 1)<br />     .如果 (寻找文本 (超级列表框1.取列标题 (1), “↓”, , 假) ≠ -1)<br />         超级列表框排序 (超级列表框1, 1, , 1, , 真)<br />         超级列表框1.置列标题 (1, “类型↑”)<br />     .否则<br />         超级列表框排序 (超级列表框1, 1, , 1, , 假)<br />         超级列表框1.置列标题 (1, “类型↓”)<br />     .如果结束<br />     超级列表框1.置列标题 (0, “文件名称”)<br />     超级列表框1.置列标题 (2, “大小”)<br /> <br /> .如果真结束<br /> .如果真 (被单击列索引 ＝ 2)<br />     .如果 (寻找文本 (超级列表框1.取列标题 (2), “↓”, , 假) ≠ -1)<br />         超级列表框排序 (超级列表框1, 3, , 0, , 真)<br />         超级列表框1.置列标题 (2, “大小↑”)<br />     .否则<br />         超级列表框排序 (超级列表框1, 3, , 0, , 假)<br />         超级列表框1.置列标题 (2, “大小↓”)<br />     .如果结束<br />     超级列表框1.置列标题 (0, “文件名称”)<br />     超级列表框1.置列标题 (1, “类型”)<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 超级列表框排序, 整数型, 公开, 返回排序时间,选中后排序还选中，必须项目数值不为0 没有默认为1<br /> .参数 对象, 超级列表框<br /> .参数 列索引, 整数型, , 索引值从 0 开始。<br /> .参数 实际数据, 文本型, 可空 数组, 格式 {“今天:0”,“明天:1”}    该参数<br /> .参数 类型, 整数型, 可空, 0=数值;1=文本;2=日期时间;3=逻辑;4=图片索引   类型4<br /> .参数 区分大小写, 逻辑型, 可空, 真为区分,默认为真<br /> .参数 排序方式, 逻辑型, 可空, 真为小到大,默认为真<br /> .局部变量 排序时间, 整数型<br /> .局部变量 排序变量, 文本型, , "0"<br /> .局部变量 序号数组, 整数型, , "0"<br /> .局部变量 表项数值, 整数型, , "0"<br /> .局部变量 图片数组, 整数型, , "0"<br /> .局部变量 状态图片, 整数型, , "0"<br /> .局部变量 变量, 整数型<br /> .局部变量 数据, 文本型<br /> .局部变量 列数, 整数型<br /> .局部变量 行数, 整数型<br /> .局部变量 单元数, 整数型<br /> .局部变量 选中项, 整数型<br /> .局部变量 i<br /> <br /> <br /> 类型 ＝ 选择 (类型 ≥ 0 且 类型 ≤ 4, 类型, 1)<br /> 区分大小写 ＝ 选择 (是否为空 (区分大小写), 真, 区分大小写)<br /> 排序方式 ＝ 选择 (是否为空 (排序方式), 真, 排序方式)<br /> .如果真 (对象.现行选中项 ≠ -1)<br />     .如果真 (对象.取表项数值 (对象.现行选中项) ＝ 0)<br />         对象.置表项数值 (对象.现行选中项, 1)<br />     .如果真结束<br />     选中项 ＝ 对象.取表项数值 (对象.现行选中项)<br /> .如果真结束<br /> .计次循环首 (对象.取表项数 (), 变量)<br />     .如果 (类型 ＝ 4)<br />         数据 ＝ 到文本 (对象.取图片 (变量 － 1, 列索引))<br />     .否则<br />         数据 ＝ 删首尾空 (对象.取标题 (变量 － 1, 列索引))<br />     .如果结束<br />     .计次循环首 (取数组成员数 (实际数据), i)<br />         .如果真 (取文本左边 (实际数据 <i>, 取文本长度 (数据) ＋ 1) ＝ 数据 ＋ “:”)<br />             数据 ＝ 子文本替换 (实际数据 <i>, 数据 ＋ “:”, “”, , , 真)<br />             跳出循环 ()<br />         .如果真结束<br />         ' 易语言Q群87137652<br />     .计次循环尾 ()<br />     .如果 (类型 ≠ 3)<br />         .如果 (类型 ＝ 4)<br />             单元数 ＝ 二分查找 (排序变量, 数据, 0, 区分大小写)<br />         .否则<br />             单元数 ＝ 二分查找 (排序变量, 数据, 类型, 区分大小写)<br />         .如果结束<br />         插入成员 (排序变量, 单元数, 数据)<br />         插入成员 (序号数组, 单元数, 变量 － 1)<br />         插入成员 (表项数值, 单元数, 对象.取表项数值 (变量 － 1))<br />         插入成员 (状态图片, 单元数, 对象.取当前状态图片 (变量 － 1))<br />     .否则<br />         插入成员 (序号数组, 选择 (数据 ＝ “假”, 变量, 1), 变量 － 1)<br />         插入成员 (表项数值, 选择 (数据 ＝ “假”, 变量, 1), 对象.取表项数值 (变量 － 1))<br />         插入成员 (状态图片, 选择 (数据 ＝ “假”, 变量, 1), 对象.取当前状态图片 (变量 － 1))<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 列数 ＝ 对象.取列数 ()<br /> 行数 ＝ 取数组成员数 (序号数组)<br /> 单元数 ＝ 行数 × 列数<br /> 重定义数组 (排序变量, 假, 单元数)<br /> 重定义数组 (图片数组, 假, 单元数)<br /> .计次循环首 (单元数, 变量)<br />     排序变量 [变量] ＝ 对象.取标题 (序号数组 [取绝对值 (选择 (排序方式, -1, 行数) － (变量 － 1) ＼ 列数)], (变量 － 1) ％ 列数)<br />     图片数组 [变量] ＝ 对象.取图片 (序号数组 [取绝对值 (选择 (排序方式, -1, 行数) － (变量 － 1) ＼ 列数)], (变量 － 1) ％ 列数)<br /> .计次循环尾 ()<br /> .计次循环首 (单元数, 变量)<br />     对象.置标题 ((变量 － 1) ＼ 列数, (变量 － 1) ％ 列数, 排序变量 [变量])<br />     对象.置表项数值 ((变量 － 1) ＼ 列数, 表项数值 [取绝对值 (选择 (排序方式, -1, 行数) － (变量 － 1) ＼ 列数)])  ' 本来加个判断的,算啦,为了提高速度,多重复置表项数值几次吧:)<br />     .如果真 (图片数组 [变量] ≠ -1)<br />         对象.置图片 ((变量 － 1) ＼ 列数, (变量 － 1) ％ 列数, 图片数组 [变量])<br />     .如果真结束<br />     .如果真 (状态图片 [取绝对值 (选择 (排序方式, -1, 行数) － (变量 － 1) ＼ 列数)] ≠ -1)<br />         对象.置状态图片 ((变量 － 1) ＼ 列数, 状态图片 [取绝对值 (选择 (排序方式, -1, 行数) － (变量 － 1) ＼ 列数)])<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (选中项 ≠ 0)<br />     .计次循环首 (对象.取表项数 (), 变量)<br />         .如果真 (对象.取表项数值 (变量 － 1) ＝ 选中项)<br />             对象.现行选中项 ＝ 变量 － 1<br />             对象.保证显示 (变量 － 1)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br /> .如果真结束<br /> 返回 (取启动时间 () － 排序时间)<br /> <br /> <br /> <br /> .子程序 二分查找, 整数型, 公开<br /> .参数 数组, 文本型, 数组<br /> .参数 待查, 文本型<br /> .参数 类型, 整数型<br /> .参数 区分大小写, 逻辑型<br /> .局部变量 K, 整数型<br /> .局部变量 M, 整数型<br /> .局部变量 J, 整数型<br /> .局部变量 数值A, 双精度小数型<br /> .局部变量 数值B, 双精度小数型<br /> .局部变量 文本, 文本型<br /> <br /> K ＝ 1<br /> M ＝ 取数组成员数 (数组)<br /> .如果真 (M ＝ 0)<br />     返回 (1)<br /> .如果真结束<br /> .判断开始 (类型 ＝ 0)<br />     数值A ＝ 到数值 (待查)<br />     .如果真 (数值A ≥ 到数值 (数组 [M]))<br />         返回 (M ＋ 1)<br />     .如果真结束<br />     .如果真 (数值A ≤ 到数值 (数组 [1]))<br />         返回 (1)<br />     .如果真结束<br />     .判断循环首 (K ＜ M － 1)<br />         J ＝ (K ＋ M) ＼ 2<br />         数值B ＝ 到数值 (数组 [J])<br />         .如果真 (数值A ＝ 数值B)<br />             K ＝ J<br />             跳出循环 ()<br />         .如果真结束<br />         .如果 (数值A ＜ 数值B)<br />             M ＝ J<br />         .否则<br />             K ＝ J<br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .判断 (类型 ＝ 1)<br />     .如果真 (文本比较 (待查, 数组 [M], 区分大小写) ≥ 0)<br />         返回 (M ＋ 1)<br />     .如果真结束<br />     .如果真 (文本比较 (待查, 数组 [1], 区分大小写) ≤ 0)<br />         返回 (1)<br />     .如果真结束<br />     .判断循环首 (K ＜ M － 1)<br />         J ＝ (K ＋ M) ＼ 2<br />         .如果真 (文本比较 (待查, 数组 [J], 区分大小写) ＝ 0)<br />             K ＝ J<br />             跳出循环 ()<br />         .如果真结束<br />         .如果 (文本比较 (待查, 数组 [J], 区分大小写) ＜ 0)<br />             M ＝ J<br />         .否则<br />             K ＝ J<br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> <br /> .判断 (类型 ＝ 2)<br />     数值A ＝ 取字节集数据 (到字节集 (到时间 (待查)), #双精度小数型)<br />     .如果真 (数值A ≥ 取字节集数据 (到字节集 (到时间 (数组 [M])), #双精度小数型))<br />         返回 (M ＋ 1)<br />     .如果真结束<br />     .如果真 (数值A ≤ 取字节集数据 (到字节集 (到时间 (数组 [1])), #双精度小数型))<br />         返回 (1)<br />     .如果真结束<br />     .判断循环首 (K ＜ M － 1)<br />         J ＝ (K ＋ M) ＼ 2<br />         数值B ＝ 取字节集数据 (到字节集 (到时间 (数组 [J])), #双精度小数型)<br />         .如果真 (数值A ＝ 数值B)<br />             K ＝ J<br />             跳出循环 ()<br />         .如果真结束<br />         .如果 (数值A ＜ 数值B)<br />             M ＝ J<br />         .否则<br />             K ＝ J<br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .默认<br /> <br /> .判断结束<br /> 返回 (K ＋ 1)

不知道能不能帮到你


补充内容 (2022-11-2 00:27):
乱码是减号  为什么会乱码

ngrjsc

sphinxes 发表于 2022-11-2 00:25
[e=0].版本 2
.支持库 iext

老师你这个是单纯的排序吧，我的意思是排序完文本区域-----是以蓝色区域的大小排序，框架还在这个红色区域里

ngrjsc

sphinxes 发表于 2022-11-2 00:25
[e=0].版本 2
.支持库 iext

以后区域为主,但是是以蓝色区域大小排序，，

ngrjsc

就是取红色首字-------在以蓝色区域的大小排序。。。。。，但是总的框架还是红色区域，

Suky

数组按从到小排序怎么写
https://bbs.125.la/forum.php?mod=viewthread&tid=14749896
(出处: 精易论坛)
参考此帖     8楼的回复
要排序的表项加入数组就不需要说了吧……

自由天下

你这个做不到，因为红色区域 就有固定顺序了，红色区域并不是分为几个大类型，然后在排列蓝色小类型，红色排列很细了，再拍蓝色会乱的

真冬

问问题的时候能不能把文本都粘贴出来啊？