win系统，文件名排序 - 精易论坛

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

DLL命令名	返回值类型	公开	备注
MultiByteToWideChar	整数型
DLL库文件名:

在DLL库中对应命令名:
MultiByteToWideChar
参数名	类型	传址	数组	备注
CodePage	整数型
dwFlags	整数型
lpMultiByteStr	文本型
cchMultiByte	整数型
lpWideCharStr	字节集
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)