文本_分割文本排序_快速 BUG

心情贝比

我是来学习的

我的yyy123

谢谢分享，学习了

Suky

  

调试输出 (文本_分割文本排序_快速 (“A_10|B_3|C_1|D_3|E_1|F_11”, “|”, “_”, 2, 2, 真, C))
调试输出 (C)
调试输出 (文本_分割文本排序_快速 (“A_10|B_3|C_1|D_3|E_1|F_11”, “|”, “_”, 2, 2, 假, C))
调试输出 (C)

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

.版本 2<br /> .支持库 spec<br /> <br /> 调试输出 (文本_分割文本排序_快速 (“A_10|B_3|C_1|D_3|E_1|F_11”, “|”, “_”, 2, 2, 真, C))<br /> 调试输出 (C)<br /> 调试输出 (文本_分割文本排序_快速 (“A_10|B_3|C_1|D_3|E_1|F_11”, “|”, “_”, 2, 2, 假, C))<br /> 调试输出 (C)

* “E_1|C_1|B_3|D_3|A_10|F_11”
* 数组:6{“E_1”,“C_1”,“B_3”,“D_3”,“A_10”,“F_11”}
* “F_11|A_10|D_3|B_3|C_1|E_1”
* 数组:6{“E_1”,“C_1”,“B_3”,“D_3”,“A_10”,“F_11”}


看了半天，迷迷糊糊，看到返回值，就调试输出了一下，结果看到返回文本跟数组结果不一致
然后才发现bug所在地

Suky

  

如果 (排序方向正向)
计次循环首 (取数组成员数 (排序变量), i)
结果 ＝ 结果 ＋ 排序变量 .原数据 ＋ 选择 (取数组成员数 (排序数组) ＝ i, “”, 行分隔符)
如果真 (是否为空 (返回数组) ＝ 假)
加入成员 (返回数组, 排序变量 .原数据)

计次循环尾 ()


计次循环首 (取数组成员数 (排序变量), i)
结果 ＝ 结果 ＋ 排序变量 [数据成员数量 － i ＋ 1].原数据 ＋ 选择 (取数组成员数 (排序数组) ＝ i, “”, 行分隔符)
调试输出 (数据成员数量 － i ＋ 1)
如果真 (是否为空 (返回数组) ＝ 假)
加入成员 (返回数组, 排序变量 .原数据)

计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .如果 (排序方向正向)<br />     .计次循环首 (取数组成员数 (排序变量), i)<br />         结果 ＝ 结果 ＋ 排序变量 .原数据 ＋ 选择 (取数组成员数 (排序数组) ＝ i, “”, 行分隔符)<br />         .如果真 (是否为空 (返回数组) ＝ 假)<br />             加入成员 (返回数组, 排序变量 .原数据)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .否则<br /> <br />     .计次循环首 (取数组成员数 (排序变量), i)<br />         结果 ＝ 结果 ＋ 排序变量 [数据成员数量 － i ＋ 1].原数据 ＋ 选择 (取数组成员数 (排序数组) ＝ i, “”, 行分隔符)<br />         调试输出 (数据成员数量 － i ＋ 1)<br />         .如果真 (是否为空 (返回数组) ＝ 假)<br />             加入成员 (返回数组, 排序变量 .原数据)<br />         .如果真结束<br /> <br />     .计次循环尾 ()

找到bug原因了
排序方向正向为假这里，加入成员 (返回数组, 排序变量 .原数据)   这里的数组下标错了，应该是  数据成员数量 － i ＋ 1

这就是复制相似代码后没改完全导致的   
@项目部004

Suky

  

子程序名	返回值类型	公开	备 注
文本_分割文本排序_快速	文本型		将多行用特定字符间隔的文本按某一列排序。支持文本、整数、小数和日期时间类型。失败返回空。快速排序算法 【afu45】
参数名	类 型	参考	可空	数组	备 注
要排序的文本	文本型				原文本
行分隔符	文本型				按行分割出每条数据，默认 #换行符
列分隔符	文本型				按列分割出每个字段数据。如果本参数被省略，默认用字符|分割
排序的列	整数型				按哪一列排序，从1开始。如果本参数被省略，默认按第1列排序
数据类型	整数型				指定按哪种数据类型来排序，1.文本 2.整数 3.小数 4.日期时间(格式参考 到时间 ())。 默认按 1.文本排序
排序方向正向	逻辑型				如果参数值为真，排序将从小到大；如果为假，则为从大到小。如果本参数被省略，将默认为真
返回数组	文本型				返回排序后的数组

变量名	类 型	静态	数组	备 注
排序数组	自定义排序数组		0
文本数组	文本型		0
文本数组2	文本型		0
i	整数型
结果	文本型
排序变量	自定义排序数组		0
数据成员数量	整数型
插入位置	整数型
当前数据	自定义排序数组
当前分区成员数	整数型
当前位置	整数型
中间位置	整数型
中间数据	自定义排序数组

' 该历程收录自: [url]https://bbs.125.la/forum.php?mod=viewthread&tid=14759043[/url]
如果真 (要排序的文本 ＝ “”)
返回 (“”)
如果真 (是否为空 (行分隔符))
行分隔符 ＝ #换行符
如果真 (是否为空 (列分隔符))
列分隔符 ＝ “|”
如果真 (是否为空 (排序的列))
排序的列 ＝ 1
如果真 (是否为空 (数据类型))
数据类型 ＝ 1
如果真 (是否为空 (排序方向正向))
排序方向正向 ＝ 真

文本数组 ＝ 分割文本 (要排序的文本, 行分隔符, )
计次循环首 (取数组成员数 (文本数组), i)
文本数组2 ＝ 分割文本 (文本数组 [i], 列分隔符, )
如果真 (排序的列 ＜ 1 或 排序的列 ＞ 取数组成员数 (文本数组2))
返回 (“”)
判断 (数据类型 ＝ 2)  ' 整数
当前数据.整数 ＝ 到整数 (文本数组2 [排序的列])
判断 (数据类型 ＝ 3)  ' 小数
当前数据.小数 ＝ 到小数 (文本数组2 [排序的列])
判断 (数据类型 ＝ 4)  ' 日期时间
当前数据.日期时间 ＝ 到时间 (文本数组2 [排序的列])
当前数据.文本 ＝ 文本数组2 [排序的列]  ' 其他情况都按文本
数据类型 ＝ 1
当前数据.原数据 ＝ 文本数组 [i]
加入成员 (排序数组, 当前数据)
计次循环尾 ()
数据成员数量 ＝ 取数组成员数 (排序数组)
计次循环首 (数据成员数量, i)
当前位置 ＝ 1
当前分区成员数 ＝ 取数组成员数 (排序变量)
当前数据 ＝ 排序数组 [i]
判断 (i ＝ 1)
插入成员 (排序变量, 1, 当前数据)
到循环尾 ()
判断 (数据类型 ＝ 1 且 文本比较 (当前数据.文本, 排序变量 [当前分区成员数].文本, 真) ≥ 0 或 数据类型 ＝ 2 且 当前数据.整数 ≥ 排序变量 [当前分区成员数].整数 或 数据类型 ＝ 3 且 当前数据.小数 ≥ 排序变量 [当前分区成员数].小数 或 数据类型 ＝ 4 且 当前数据.日期时间 ＞ 排序变量 [当前分区成员数].日期时间)
插入成员 (排序变量, 当前分区成员数 ＋ 1, 当前数据)
到循环尾 ()
判断 (数据类型 ＝ 1 且 文本比较 (当前数据.文本, 排序变量 [1].文本, 真) ≤ 0 或 数据类型 ＝ 2 且 当前数据.整数 ≤ 排序变量 [1].整数 或 数据类型 ＝ 3 且 当前数据.小数 ≤ 排序变量 [1].小数 或 数据类型 ＝ 4 且 当前数据.日期时间 ≤ 排序变量 [1].日期时间)
插入成员 (排序变量, 1, 当前数据)
到循环尾 ()



判断循环首 (当前位置 ＜ 当前分区成员数 － 1)
中间位置 ＝ (当前位置 ＋ 当前分区成员数) ＼ 2
中间数据 ＝ 排序变量 [中间位置]
如果真 (数据类型 ＝ 1 且 当前数据.文本 ＝ 中间数据.文本 或 数据类型 ＝ 2 且 当前数据.整数 ＝ 中间数据.整数 或 数据类型 ＝ 3 且 当前数据.小数 ＝ 中间数据.小数 或 数据类型 ＝ 4 且 当前数据.日期时间 ＝ 中间数据.日期时间)
当前位置 ＝ 中间位置
跳出循环 ()

如果 (数据类型 ＝ 1 且 当前数据.文本 ＜ 中间数据.文本 或 数据类型 ＝ 2 且 当前数据.整数 ＜ 中间数据.整数 或 数据类型 ＝ 3 且 当前数据.小数 ＜ 中间数据.小数 或 数据类型 ＝ 4 且 当前数据.日期时间 ＜ 中间数据.日期时间)
当前分区成员数 ＝ 中间位置
当前位置 ＝ 中间位置

判断循环尾 ()
插入位置 ＝ 当前位置 ＋ 1
插入成员 (排序变量, 插入位置, 当前数据)
计次循环尾 ()
如果真 (是否为空 (返回数组) ＝ 假)
重定义数组 (返回数组, 假, 0)
如果 (排序方向正向)
计次循环首 (取数组成员数 (排序变量), i)
结果 ＝ 结果 ＋ 排序变量 [i].原数据 ＋ 选择 (取数组成员数 (排序数组) ＝ i, “”, 行分隔符)
如果真 (是否为空 (返回数组) ＝ 假)
加入成员 (返回数组, 排序变量 [i].原数据)

计次循环尾 ()


计次循环首 (取数组成员数 (排序变量), i)
结果 ＝ 结果 ＋ 排序变量 [数据成员数量 － i ＋ 1].原数据 ＋ 选择 (取数组成员数 (排序数组) ＝ i, “”, 行分隔符)
如果真 (是否为空 (返回数组) ＝ 假)
加入成员 (返回数组, 排序变量 [i].原数据)

计次循环尾 ()

返回 (结果)

.版本 2<br /> <br /> .子程序 文本_分割文本排序_快速, 文本型, 公开, 将多行用特定字符间隔的文本按某一列排序。支持文本、整数、小数和日期时间类型。失败返回空。快速排序算法 【afu45】<br /> .参数 要排序的文本, 文本型, , 原文本<br /> .参数 行分隔符, 文本型, 可空, 按行分割出每条数据，默认 #换行符<br /> .参数 列分隔符, 文本型, 可空, 按列分割出每个字段数据。如果本参数被省略，默认用字符|分割<br /> .参数 排序的列, 整数型, 可空, 按哪一列排序，从1开始。如果本参数被省略，默认按第1列排序<br /> .参数 数据类型, 整数型, 可空, 指定按哪种数据类型来排序，1.文本 2.整数 3.小数 4.日期时间(格式参考 到时间 ())。 默认按 1.文本排序<br /> .参数 排序方向正向, 逻辑型, 可空, 如果参数值为真，排序将从小到大；如果为假，则为从大到小。如果本参数被省略，将默认为真<br /> .参数 返回数组, 文本型, 可空 数组, 返回排序后的数组<br /> .局部变量 排序数组, 自定义排序数组, , "0"<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 文本数组2, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 排序变量, 自定义排序数组, , "0"<br /> .局部变量 数据成员数量, 整数型<br /> .局部变量 插入位置, 整数型<br /> .局部变量 当前数据, 自定义排序数组<br /> .局部变量 当前分区成员数, 整数型<br /> .局部变量 当前位置, 整数型<br /> .局部变量 中间位置, 整数型<br /> .局部变量 中间数据, 自定义排序数组<br /> <br /> ' 该历程收录自: <a href="https://bbs.125.la/forum.php?mod=viewthread&tid=14759043" target="_blank">https://bbs.125.la/forum.php?mod=viewthread&tid=14759043</a><br /> .如果真 (要排序的文本 ＝ “”)<br />     返回 (“”)<br /> .如果真结束<br /> .如果真 (是否为空 (行分隔符))<br />     行分隔符 ＝ #换行符<br /> .如果真结束<br /> .如果真 (是否为空 (列分隔符))<br />     列分隔符 ＝ “|”<br /> .如果真结束<br /> .如果真 (是否为空 (排序的列))<br />     排序的列 ＝ 1<br /> .如果真结束<br /> .如果真 (是否为空 (数据类型))<br />     数据类型 ＝ 1<br /> .如果真结束<br /> .如果真 (是否为空 (排序方向正向))<br />     排序方向正向 ＝ 真<br /> .如果真结束<br /> <br /> 文本数组 ＝ 分割文本 (要排序的文本, 行分隔符, )<br /> .计次循环首 (取数组成员数 (文本数组), i)<br />     文本数组2 ＝ 分割文本 (文本数组 <i>, 列分隔符, )<br />     .如果真 (排序的列 ＜ 1 或 排序的列 ＞ 取数组成员数 (文本数组2))<br />         返回 (“”)<br />     .如果真结束<br />     .判断开始 (数据类型 ＝ 2)  ' 整数<br />         当前数据.整数 ＝ 到整数 (文本数组2 [排序的列])<br />     .判断 (数据类型 ＝ 3)  ' 小数<br />         当前数据.小数 ＝ 到小数 (文本数组2 [排序的列])<br />     .判断 (数据类型 ＝ 4)  ' 日期时间<br />         当前数据.日期时间 ＝ 到时间 (文本数组2 [排序的列])<br />     .默认<br />         当前数据.文本 ＝ 文本数组2 [排序的列]  ' 其他情况都按文本<br />         数据类型 ＝ 1<br />     .判断结束<br />     当前数据.原数据 ＝ 文本数组 <i><br />     加入成员 (排序数组, 当前数据)<br /> .计次循环尾 ()<br /> <br /> 数据成员数量 ＝ 取数组成员数 (排序数组)<br /> .计次循环首 (数据成员数量, i)<br />     当前位置 ＝ 1<br />     当前分区成员数 ＝ 取数组成员数 (排序变量)<br />     当前数据 ＝ 排序数组 <i><br />     .判断开始 (i ＝ 1)<br />         插入成员 (排序变量, 1, 当前数据)<br />         到循环尾 ()<br />     .判断 (数据类型 ＝ 1 且 文本比较 (当前数据.文本, 排序变量 [当前分区成员数].文本, 真) ≥ 0 或 数据类型 ＝ 2 且 当前数据.整数 ≥ 排序变量 [当前分区成员数].整数 或 数据类型 ＝ 3 且 当前数据.小数 ≥ 排序变量 [当前分区成员数].小数 或 数据类型 ＝ 4 且 当前数据.日期时间 ＞ 排序变量 [当前分区成员数].日期时间)<br />         插入成员 (排序变量, 当前分区成员数 ＋ 1, 当前数据)<br />         到循环尾 ()<br />     .判断 (数据类型 ＝ 1 且 文本比较 (当前数据.文本, 排序变量 [1].文本, 真) ≤ 0 或 数据类型 ＝ 2 且 当前数据.整数 ≤ 排序变量 [1].整数 或 数据类型 ＝ 3 且 当前数据.小数 ≤ 排序变量 [1].小数 或 数据类型 ＝ 4 且 当前数据.日期时间 ≤ 排序变量 [1].日期时间)<br />         插入成员 (排序变量, 1, 当前数据)<br />         到循环尾 ()<br />     .默认<br /> <br />     .判断结束<br /> <br />     .判断循环首 (当前位置 ＜ 当前分区成员数 － 1)<br />         中间位置 ＝ (当前位置 ＋ 当前分区成员数) ＼ 2<br />         中间数据 ＝ 排序变量 [中间位置]<br />         .如果真 (数据类型 ＝ 1 且 当前数据.文本 ＝ 中间数据.文本 或 数据类型 ＝ 2 且 当前数据.整数 ＝ 中间数据.整数 或 数据类型 ＝ 3 且 当前数据.小数 ＝ 中间数据.小数 或 数据类型 ＝ 4 且 当前数据.日期时间 ＝ 中间数据.日期时间)<br />             当前位置 ＝ 中间位置<br />             跳出循环 ()<br />         .如果真结束<br /> <br />         .如果 (数据类型 ＝ 1 且 当前数据.文本 ＜ 中间数据.文本 或 数据类型 ＝ 2 且 当前数据.整数 ＜ 中间数据.整数 或 数据类型 ＝ 3 且 当前数据.小数 ＜ 中间数据.小数 或 数据类型 ＝ 4 且 当前数据.日期时间 ＜ 中间数据.日期时间)<br />             当前分区成员数 ＝ 中间位置<br />         .否则<br />             当前位置 ＝ 中间位置<br />         .如果结束<br /> <br />     .判断循环尾 ()<br />     插入位置 ＝ 当前位置 ＋ 1<br />     插入成员 (排序变量, 插入位置, 当前数据)<br /> .计次循环尾 ()<br /> <br /> .如果真 (是否为空 (返回数组) ＝ 假)<br />     重定义数组 (返回数组, 假, 0)<br /> .如果真结束<br /> .如果 (排序方向正向)<br />     .计次循环首 (取数组成员数 (排序变量), i)<br />         结果 ＝ 结果 ＋ 排序变量 <i>.原数据 ＋ 选择 (取数组成员数 (排序数组) ＝ i, “”, 行分隔符)<br />         .如果真 (是否为空 (返回数组) ＝ 假)<br />             加入成员 (返回数组, 排序变量 <i>.原数据)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .否则<br /> <br />     .计次循环首 (取数组成员数 (排序变量), i)<br />         结果 ＝ 结果 ＋ 排序变量 [数据成员数量 － i ＋ 1].原数据 ＋ 选择 (取数组成员数 (排序数组) ＝ i, “”, 行分隔符)<br />         .如果真 (是否为空 (返回数组) ＝ 假)<br />             加入成员 (返回数组, 排序变量 <i>.原数据)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .如果结束<br /> <br /> 返回 (结果)

源码里看不出来什么原因导致的
测试证实bug存在
需要再逐步检查才能确定位置