请教超级列表框里怎么按时间排列文件

zippo5820

就是获取了文件的名称，日期和大小后，能不能点击超级列表框里的日期，然后在超级列表框里按时间顺序，排列文件名

zainex

参考：求个超级列表框排序_精易论坛

  

DLL命令名	返回值类型	公开	备 注
StrCmpLogicalW	整数型
DLL库文件名:
shlwapi.dll
在DLL库中对应命令名:
StrCmpLogicalW
参数名	类 型	传址	数组	备 注
psz1	字节集
psz2	字节集

.版本 2<br /> <br /> .DLL命令 StrCmpLogicalW, 整数型, "shlwapi.dll", "StrCmpLogicalW"<br />     .参数 psz1, 字节集<br />     .参数 psz2, 字节集

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
目录	文本型
当前	整数型

子程序名	返回值类型	公开	备 注
_驱动器框1_驱动器被改变

目录框1.目录 ＝ 驱动器框1.驱动器 ＋ “:\”

子程序名	返回值类型	公开	备 注
_目录框1_目录被改变

变量名	类 型	静态	数组	备 注
文件名	文本型
索引	整数型
时间	日期时间型
文本	文本型
大小	整数型

当前 ＝ 0
超级列表框1.全部删除 ()
目录 ＝ 目录框1.目录
调试输出 (目录)
文件名 ＝ 寻找文件 (目录 ＋ “\*.txt”, )
判断循环首 (文件名 ≠ “”)
索引 ＝ 超级列表框1.插入表项 (, 文件名, , , , )
时间 ＝ 取文件时间 (目录 ＋ “\” ＋ 文件名)
文本 ＝ 格式化日期 (时间, “%y/%m/%d”)
文本 ＝ 格式化文本 (“%s %.2d:%.2d”, 文本, 取小时 (时间), 取分钟 (时间))
超级列表框1.置标题 (索引, 1, 文本)
大小 ＝ 取文件尺寸 (目录 ＋ “\” ＋ 文件名)
超级列表框1.置标题 (索引, 2, 格式化文本 (“%.2lf MB”, 大小 ÷ 1024 ÷ 1024))
文件名 ＝ 寻找文件 (, )
判断循环尾 ()

子程序名	返回值类型	公开	备 注
_超级列表框1_左键单击表项

变量名	类 型	静态	数组	备 注
文件	字节集

如果真 (超级列表框1.现行选中项 ≠ -1)
调试输出 (目录 ＋ “\” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0))
文件 ＝ 读入文件 (目录 ＋ “\” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0))
编辑框1.内容 ＝ 到文本 (编码转换 (文件, #编码_UTF_8, #编码_GBK, ))
如果真 (编辑框1.内容 ＝ “”)
编辑框1.内容 ＝ 到文本 (文件)

子程序名	返回值类型	公开	备 注
一键排序	逻辑型
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框
列	整数型
从大到小	逻辑型

变量名	类 型	静态	数组	备 注
数	整数型
值	整数型
文本1	字节集
文本2	字节集
量	整数型
临时	文本型
成立	逻辑型

如果真 (列 ＜ 0 或 列 ≥ 超级列表框1.取表项数 ())
返回 (假)
计次循环首 (超级列表框.取表项数 (), 数)
计次循环首 (超级列表框.取表项数 () － 数, 值)
文本1 ＝ 编码转换 (到字节集 (超级列表框.取标题 (值, 列)), #编码_GB18030, #编码_UTF_16LE, ) ＋ { 0, 0 }
文本2 ＝ 编码转换 (到字节集 (超级列表框.取标题 (值 － 1, 列)), #编码_GB18030, #编码_UTF_16LE, ) ＋ { 0, 0 }
如果 (从大到小 ＝ 真)
成立 ＝ StrCmpLogicalW (文本1, 文本2) ＞ 0
成立 ＝ StrCmpLogicalW (文本1, 文本2) ＜ 0
如果真 (成立)
计次循环首 (超级列表框.取列数 (), 量)
临时 ＝ 超级列表框1.取标题 (值, 量 － 1)
超级列表框.置标题 (值, 量 － 1, 超级列表框.取标题 (值 － 1, 量 － 1))
超级列表框.置标题 (值 － 1, 量 － 1, 临时)
计次循环尾 ()

计次循环尾 ()
计次循环尾 ()
返回 (真)

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

变量名	类 型	静态	数组	备 注
方向	逻辑型

如果 (当前 ≠ 被单击列索引 ＋ 1)
当前 ＝ 被单击列索引 ＋ 1
方向 ＝ 真
当前 ＝ 0
方向 ＝ 取反 (方向)
一键排序 (超级列表框1, 被单击列索引, 方向)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库
CnCalendar	农历日期支持库
eAPI	应用接口支持库
iconv	编码转换支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> .支持库 CnCalendar<br /> .支持库 eAPI<br /> .支持库 iconv<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 目录, 文本型<br /> .程序集变量 当前, 整数型<br /> <br /> .子程序 _驱动器框1_驱动器被改变<br /> <br /> 目录框1.目录 ＝ 驱动器框1.驱动器 ＋ “:\”<br /> <br /> <br /> .子程序 _目录框1_目录被改变<br /> .局部变量 文件名, 文本型<br /> .局部变量 索引, 整数型<br /> .局部变量 时间, 日期时间型<br /> .局部变量 文本, 文本型<br /> .局部变量 大小, 整数型<br /> <br /> 当前 ＝ 0<br /> 超级列表框1.全部删除 ()<br /> 目录 ＝ 目录框1.目录<br /> 调试输出 (目录)<br /> 文件名 ＝ 寻找文件 (目录 ＋ “\*.txt”, )<br /> .判断循环首 (文件名 ≠ “”)<br />     索引 ＝ 超级列表框1.插入表项 (, 文件名, , , , )<br />     时间 ＝ 取文件时间 (目录 ＋ “\” ＋ 文件名)<br />     文本 ＝ 格式化日期 (时间, “%y/%m/%d”)<br />     文本 ＝ 格式化文本 (“%s %.2d:%.2d”, 文本, 取小时 (时间), 取分钟 (时间))<br />     超级列表框1.置标题 (索引, 1, 文本)<br />     大小 ＝ 取文件尺寸 (目录 ＋ “\” ＋ 文件名)<br />     超级列表框1.置标题 (索引, 2, 格式化文本 (“%.2lf MB”, 大小 ÷ 1024 ÷ 1024))<br />     文件名 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> <br /> <br /> .子程序 _超级列表框1_左键单击表项<br /> .局部变量 文件, 字节集<br /> <br /> .如果真 (超级列表框1.现行选中项 ≠ -1)<br />     调试输出 (目录 ＋ “\” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0))<br />     文件 ＝ 读入文件 (目录 ＋ “\” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0))<br />     编辑框1.内容 ＝ 到文本 (编码转换 (文件, #编码_UTF_8, #编码_GBK, ))<br />     .如果真 (编辑框1.内容 ＝ “”)<br />         编辑框1.内容 ＝ 到文本 (文件)<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 一键排序, 逻辑型<br /> .参数 超级列表框, 超级列表框<br /> .参数 列, 整数型, 可空<br /> .参数 从大到小, 逻辑型, 可空<br /> .局部变量 数, 整数型<br /> .局部变量 值, 整数型<br /> .局部变量 文本1, 字节集<br /> .局部变量 文本2, 字节集<br /> .局部变量 量, 整数型<br /> .局部变量 临时, 文本型<br /> .局部变量 成立, 逻辑型<br /> <br /> .如果真 (列 ＜ 0 或 列 ≥ 超级列表框1.取表项数 ())<br />     返回 (假)<br /> .如果真结束<br /> .计次循环首 (超级列表框.取表项数 (), 数)<br />     .计次循环首 (超级列表框.取表项数 () － 数, 值)<br />         文本1 ＝ 编码转换 (到字节集 (超级列表框.取标题 (值, 列)), #编码_GB18030, #编码_UTF_16LE, ) ＋ { 0, 0 }<br />         文本2 ＝ 编码转换 (到字节集 (超级列表框.取标题 (值 － 1, 列)), #编码_GB18030, #编码_UTF_16LE, ) ＋ { 0, 0 }<br />         .如果 (从大到小 ＝ 真)<br />             成立 ＝ StrCmpLogicalW (文本1, 文本2) ＞ 0<br />         .否则<br />             成立 ＝ StrCmpLogicalW (文本1, 文本2) ＜ 0<br />         .如果结束<br />         .如果真 (成立)<br />             .计次循环首 (超级列表框.取列数 (), 量)<br />                 临时 ＝ 超级列表框1.取标题 (值, 量 － 1)<br />                 超级列表框.置标题 (值, 量 － 1, 超级列表框.取标题 (值 － 1, 量 － 1))<br />                 超级列表框.置标题 (值 － 1, 量 － 1, 临时)<br />             .计次循环尾 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 返回 (真)<br /> <br /> <br /> .子程序 _超级列表框1_表头被单击<br /> .参数 被单击列索引, 整数型<br /> .局部变量 方向, 逻辑型, 静态<br /> <br /> .如果 (当前 ≠ 被单击列索引 ＋ 1)<br />     当前 ＝ 被单击列索引 ＋ 1<br />     方向 ＝ 真<br /> .否则<br />     当前 ＝ 0<br />     方向 ＝ 取反 (方向)<br /> .如果结束<br /> 一键排序 (超级列表框1, 被单击列索引, 方向)

效果：

完整例子.zip (2.83 KB, 下载次数: 2)

昨天 22:20 上传

点击文件名下载附件