数组排序_文本型

斗战胜猴

  

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
索引数组	整数型		0
计次	整数型

文本数组 ＝ { “50lD3qtw25-7.txt”, “8cbhwa3IqD-11.txt”, “CFTv8Ai04v-1.txt”, “U6SGesMdMH-2.txt”, “9x4xY1m96h-3.txt”, “tJ5AtcFHdd-8.txt”, “JcwSK24Fbr-9.txt”, “YfXvrFDbDt-10.txt”, “rVP1Ak90s6-4.txt”, “vq3igEZ8d6-5.txt”, “0Pjb4r38p5-6.txt” }
文本数组到索引数组_按整数倒取中间 (文本数组, 索引数组, “-”, “.”)
数组排序_文本型 (文本数组, 索引数组)
' 调试输出 (文本数组)
文本数组 ＝ { “r3a8a9BnZJ”, “sx9kX2vuyh”, “Q7hGjoDM4N”, “6245290dUR”, “5iVZWrIX12”, “Ar4t5Eq84q”, “fuMAZupNsN”, “8v6NhU9ScU”, “4962pl27R1”, “ziGEQ2L156”, “mw6nIx8E47” }
文本数组到索引数组_按首字符 (文本数组, 索引数组)
数组排序_文本型 (文本数组, 索引数组)
' 调试输出 (文本数组)
文本数组 ＝ { “的6245290dUR”, “额5iVZWrIX12”, “空ziGEQ2L156”, “啊r3a8a9BnZJ”, “吧sx9kX2vuyh”, “副Ar4t5Eq84q”, “好8v6NhU9ScU”, “就4962pl27R1”, “村Q7hGjoDM4N”, “个fuMAZupNsN”, “了mw6nIx8E47” }
文本数组到索引数组_按首字符 (文本数组, 索引数组)
数组排序_文本型 (文本数组, 索引数组)
' 调试输出 (文本数组)

子程序名	返回值类型	公开	备 注
数组排序_文本型
参数名	类 型	参考	可空	数组	备 注
参_文本数组	文本型
参_索引数组	整数型
参_从大到小	逻辑型				默认从小到大

变量名	类 型	静态	数组	备 注
i	整数型
j	整数型
len	整数型
Array	整数型		0

len ＝ 取数组成员数 (参_文本数组)
复制数组 (Array, 参_索引数组)
重定义数组 (Array, 真, len)
计次循环首 (len － 1, i)
计次循环首 (len － i, j)
如果真 (选择 (参_从大到小, Array [j] ＞ Array [j ＋ 1], Array [j] ＜ Array [j ＋ 1]))
交换变量 (Array [j], Array [j ＋ 1])
交换变量 (参_文本数组 [j], 参_文本数组 [j ＋ 1])

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

子程序名	返回值类型	公开	备 注
文本数组到索引数组_按首字符
参数名	类 型	参考	可空	数组	备 注
参_文本数组	文本型
参_索引数组	整数型

变量名	类 型	静态	数组	备 注
计次	整数型
声母	文本型

重定义数组 (参_索引数组, 假, 取数组成员数 (参_文本数组))
计次循环首 (取数组成员数 (参_文本数组), 计次)
声母 ＝ 取声母 (参_文本数组 [计次], 1)
参_索引数组 [计次] ＝ 255 － 取代码 (选择 (声母 ≠ “”, 声母, 参_文本数组 [计次]), )
计次循环尾 ()

子程序名	返回值类型	公开	备 注
文本数组到索引数组_按整数倒取中间
参数名	类 型	参考	可空	数组	备 注
参_文本数组	文本型
参_索引数组	整数型
前文本	文本型
后文本	文本型

变量名	类 型	静态	数组	备 注
计次	整数型
局_位置	整数型
前文本长度	整数型

前文本长度 ＝ 取文本长度 (前文本)
重定义数组 (参_索引数组, 假, 取数组成员数 (参_文本数组))
计次循环首 (取数组成员数 (参_文本数组), 计次)
局_位置 ＝ 倒找文本 (参_文本数组 [计次], 前文本, , 真) ＋ 前文本长度 － 1
参_索引数组 [计次] ＝ 到整数 (取文本中间 (参_文本数组 [计次], 局_位置, 倒找文本 (参_文本数组 [计次], 后文本, , 真) － 局_位置))
计次循环尾 ()

.版本 2<br /> <br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 索引数组, 整数型, , "0"<br /> .局部变量 计次, 整数型<br /> <br /> 文本数组 ＝ { “50lD3qtw25-7.txt”, “8cbhwa3IqD-11.txt”, “CFTv8Ai04v-1.txt”, “U6SGesMdMH-2.txt”, “9x4xY1m96h-3.txt”, “tJ5AtcFHdd-8.txt”, “JcwSK24Fbr-9.txt”, “YfXvrFDbDt-10.txt”, “rVP1Ak90s6-4.txt”, “vq3igEZ8d6-5.txt”, “0Pjb4r38p5-6.txt” }<br /> 文本数组到索引数组_按整数倒取中间 (文本数组, 索引数组, “-”, “.”)<br /> 数组排序_文本型 (文本数组, 索引数组)<br /> ' 调试输出 (文本数组)<br /> <br /> 文本数组 ＝ { “r3a8a9BnZJ”, “sx9kX2vuyh”, “Q7hGjoDM4N”, “6245290dUR”, “5iVZWrIX12”, “Ar4t5Eq84q”, “fuMAZupNsN”, “8v6NhU9ScU”, “4962pl27R1”, “ziGEQ2L156”, “mw6nIx8E47” }<br /> 文本数组到索引数组_按首字符 (文本数组, 索引数组)<br /> 数组排序_文本型 (文本数组, 索引数组)<br /> ' 调试输出 (文本数组)<br /> <br /> 文本数组 ＝ { “的6245290dUR”, “额5iVZWrIX12”, “空ziGEQ2L156”, “啊r3a8a9BnZJ”, “吧sx9kX2vuyh”, “副Ar4t5Eq84q”, “好8v6NhU9ScU”, “就4962pl27R1”, “村Q7hGjoDM4N”, “个fuMAZupNsN”, “了mw6nIx8E47” }<br /> 文本数组到索引数组_按首字符 (文本数组, 索引数组)<br /> 数组排序_文本型 (文本数组, 索引数组)<br /> ' 调试输出 (文本数组)<br /> <br /> <br /> .子程序 数组排序_文本型, , 公开<br /> .参数 参_文本数组, 文本型, 数组<br /> .参数 参_索引数组, 整数型, 数组<br /> .参数 参_从大到小, 逻辑型, 可空, 默认从小到大<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 len, 整数型<br /> .局部变量 Array, 整数型, , "0"<br /> <br /> len ＝ 取数组成员数 (参_文本数组)<br /> 复制数组 (Array, 参_索引数组)<br /> 重定义数组 (Array, 真, len)<br /> .计次循环首 (len － 1, i)<br />     .计次循环首 (len － i, j)<br />         .如果真 (选择 (参_从大到小, Array [j] ＞ Array [j ＋ 1], Array [j] ＜ Array [j ＋ 1]))<br />             交换变量 (Array [j], Array [j ＋ 1])<br />             交换变量 (参_文本数组 [j], 参_文本数组 [j ＋ 1])<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> .子程序 文本数组到索引数组_按首字符<br /> .参数 参_文本数组, 文本型, 数组<br /> .参数 参_索引数组, 整数型, 参考 数组<br /> .局部变量 计次, 整数型<br /> .局部变量 声母, 文本型<br /> <br /> 重定义数组 (参_索引数组, 假, 取数组成员数 (参_文本数组))<br /> .计次循环首 (取数组成员数 (参_文本数组), 计次)<br />     声母 ＝ 取声母 (参_文本数组 [计次], 1)<br />     参_索引数组 [计次] ＝ 255 － 取代码 (选择 (声母 ≠ “”, 声母, 参_文本数组 [计次]), )<br /> .计次循环尾 ()<br /> <br /> .子程序 文本数组到索引数组_按整数倒取中间<br /> .参数 参_文本数组, 文本型, 数组<br /> .参数 参_索引数组, 整数型, 参考 数组<br /> .参数 前文本, 文本型<br /> .参数 后文本, 文本型<br /> .局部变量 计次, 整数型<br /> .局部变量 局_位置, 整数型<br /> .局部变量 前文本长度, 整数型<br /> <br /> 前文本长度 ＝ 取文本长度 (前文本)<br /> 重定义数组 (参_索引数组, 假, 取数组成员数 (参_文本数组))<br /> .计次循环首 (取数组成员数 (参_文本数组), 计次)<br />     局_位置 ＝ 倒找文本 (参_文本数组 [计次], 前文本, , 真) ＋ 前文本长度 － 1<br />     参_索引数组 [计次] ＝ 到整数 (取文本中间 (参_文本数组 [计次], 局_位置, 倒找文本 (参_文本数组 [计次], 后文本, , 真) － 局_位置))<br /> .计次循环尾 ()

lassgo

在此留名，以后多多交流，期待与你互动！

WQL2025

感谢分享，受益匪浅。

WQL2025

感谢分享

adwasd

学习一下

zhengwulin

#在这里快速回复#        支持开源~！感谢分享

wanghs

数组排序

a985795678

感谢分享

闪电ak

看看看看

なす随风ぬね

丝滑，谢谢分享