win系统，文件名排序

LXP

  

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

DLL命令名	返回值类型	公开	备 注
MultiByteToWideChar	整数型
DLL库文件名:
在DLL库中对应命令名:
MultiByteToWideChar
参数名	类 型	传址	数组	备 注
CodePage	整数型
dwFlags	整数型
lpMultiByteStr	文本型
cchMultiByte	整数型
lpWideCharStr	字节集
cchWideChar	整数型

.版本 2<br /> <br /> .DLL命令 StrCmpLogicalW, 整数型, "shlwapi.dll", "StrCmpLogicalW"<br />     .参数 psz1, 字节集<br />     .参数 psz2, 字节集<br /> <br /> .DLL命令 MultiByteToWideChar, 整数型, , "MultiByteToWideChar", 公开<br />     .参数 CodePage, 整数型<br />     .参数 dwFlags, 整数型<br />     .参数 lpMultiByteStr, 文本型<br />     .参数 cchMultiByte, 整数型<br />     .参数 lpWideCharStr, 字节集<br />     .参数 cchWideChar, 整数型

  

窗口程序集名	保 留	保 留	备 注
Main
变量名	类 型	数组	备 注
欲排序的文件名组	文本型	0

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

欲排序的文件名组 ＝ { “A06-DEMO”, “A06-T199-01”, “A06-T199-010”, “A06-T199-011”, “A06-T199-012”, “A06-T199-013”, “A06-T199-02”, “A06-T199-03”, “A06-T199-04”, “A06-T199-05”, “A06-T199-05A”, “A06-T199-06”, “A06-T199-07”, “A06-T199-08”, “A06-T199-08A”, “A06-T199-09”, “码表” }
文件名排序 (欲排序的文件名组, 假)
调试输出 (欲排序的文件名组)
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
文件名排序
参数名	类 型	参考	可空	数组	备 注
文件名组	文本型
倒序	逻辑型

变量名	类 型	静态	数组	备 注
s	整数型
i	整数型
ii	整数型
fnn	文本型
x	整数型

s ＝ 取数组成员数 (文件名组)
x ＝ 选择 (倒序, -1, 1)
计次循环首 (s － 1, i)
计次循环首 (s － i, ii)
如果真 (StrCmpLogicalW (编码_Ansi到Unicode (文件名组 [ii]), 编码_Ansi到Unicode (文件名组 [ii ＋ 1])) ＝ x)
fnn ＝ 文件名组 [ii]
文件名组 [ii] ＝ 文件名组 [ii ＋ 1]
文件名组 [ii ＋ 1] ＝ fnn

计次循环尾 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
编码_Ansi到Unicode	字节集		将Ansi码转换为Unicode码；成功返回转换后的字节集；
参数名	类 型	参考	可空	数组	备 注
Ansi	文本型				欲转换的Ansi文本
非标准Unicode编码	逻辑型				默认为假，为标准Unicode编码

变量名	类 型	静态	数组	备 注
数据2	字节集
长度	整数型

如果真 (Ansi ＝ “”)
返回 ({  })
长度 ＝ MultiByteToWideChar (0, 0, Ansi, -1, {  }, 0)
数据2 ＝ 取空白字节集 (长度 × 2)
MultiByteToWideChar (936, 0, Ansi, -1, 数据2, 长度 × 2)
如果真 (非标准Unicode编码)
数据2 ＝ 取字节集左边 (数据2, 取字节集长度 (数据2) － 2)
返回 (数据2)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 Main<br /> .程序集变量 欲排序的文件名组, 文本型, , "0"<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 欲排序的文件名组 ＝ { “A06-DEMO”, “A06-T199-01”, “A06-T199-010”, “A06-T199-011”, “A06-T199-012”, “A06-T199-013”, “A06-T199-02”, “A06-T199-03”, “A06-T199-04”, “A06-T199-05”, “A06-T199-05A”, “A06-T199-06”, “A06-T199-07”, “A06-T199-08”, “A06-T199-08A”, “A06-T199-09”, “码表” }<br /> <br /> 文件名排序 (欲排序的文件名组, 假)<br /> <br /> 调试输出 (欲排序的文件名组)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 文件名排序<br /> .参数 文件名组, 文本型, 参考 数组<br /> .参数 倒序, 逻辑型, 可空<br /> .局部变量 s, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 ii, 整数型<br /> .局部变量 fnn, 文本型<br /> .局部变量 x, 整数型<br /> <br /> s ＝ 取数组成员数 (文件名组)<br /> x ＝ 选择 (倒序, -1, 1)<br /> .计次循环首 (s － 1, i)<br />     .计次循环首 (s － i, ii)<br />         .如果真 (StrCmpLogicalW (编码_Ansi到Unicode (文件名组 [ii]), 编码_Ansi到Unicode (文件名组 [ii ＋ 1])) ＝ x)<br />             fnn ＝ 文件名组 [ii]<br />             文件名组 [ii] ＝ 文件名组 [ii ＋ 1]<br />             文件名组 [ii ＋ 1] ＝ fnn<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 编码_Ansi到Unicode, 字节集, 公开, 将Ansi码转换为Unicode码；成功返回转换后的字节集；<br /> .参数 Ansi, 文本型, , 欲转换的Ansi文本<br /> .参数 非标准Unicode编码, 逻辑型, 可空, 默认为假，为标准Unicode编码<br /> .局部变量 数据2, 字节集<br /> .局部变量 长度, 整数型<br /> <br /> .如果真 (Ansi ＝ “”)<br />     返回 ({  })<br /> .如果真结束<br /> 长度 ＝ MultiByteToWideChar (0, 0, Ansi, -1, {  }, 0)<br /> 数据2 ＝ 取空白字节集 (长度 × 2)<br /> MultiByteToWideChar (936, 0, Ansi, -1, 数据2, 长度 × 2)<br /> .如果真 (非标准Unicode编码)<br />     数据2 ＝ 取字节集左边 (数据2, 取字节集长度 (数据2) － 2)<br /> .如果真结束<br /> 返回 (数据2)

冒泡排序



文件名排序.e (138 KB, 下载次数: 67)

2021-5-12 09:37 上传

点击文件名下载附件

yankejun520

看看是不是我需要的

yankejun520

不苦小和尚

试过了，挺不错的

flyme易语言

支持一下支持一下支持一下支持一下

悬壶

看看是不是我想要的

ghost12

此处应该有鼓励~

小清晰

感谢分享 好东西

安逸一

感谢分享 好东西

要强不要秃

看起来很牛逼的样子