精易论坛

标题: 文本依次往下短到长排序 [打印本页]
作者: AS2411A    时间: 2023-2-11 14:21
标题: 文本依次往下短到长排序
  
子程序名返回值类型公开备 注
文本排序文本型 依次往下从短到长
参数名类 型参考可空数组备 注
文本数组文本型
变量名类 型静态数组备 注
I整数型 
II整数型 
III整数型 
长度数组文本型0
Ret文本型 
计次循环首 (取数组成员数 (文本数组), I)
加入成员 (长度数组, 到文本 (取文本长度 (文本数组 [I])))
计次循环尾 ()
数组_排序1 (长度数组, 真)  ' 参数2=假就是短到长 真就是长到短
计次循环首 (取数组成员数 (长度数组), II)
计次循环首 (取数组成员数 (文本数组), III)
如果真 (取文本长度 (文本数组 [III]) ＝ 到整数 (长度数组 [II]))
如果真 (寻找文本 (Ret, 文本数组 [III], , 假) ＝ -1)
Ret ＝ Ret ＋ 文本数组 [III] ＋ #换行符


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

X743RUA35ECO6_4EU71DVKH.png (102.34 KB, 下载次数: 0)

X743RUA35ECO6_4EU71DVKH.png

K2PW63MB5GKQJPE2ZO.png (104.85 KB, 下载次数: 1)

K2PW63MB5GKQJPE2ZO.png
作者: AS2411A    时间: 2023-2-11 15:17
  
子程序名返回值类型公开备 注
文本排序文本型 依次往下从短到长
参数名类 型参考可空数组备 注
文本数组文本型
变量名类 型静态数组备 注
I整数型 
II整数型 
III整数型 
长度数组文本型0
Ret文本型 
是否删除逻辑型 
计次循环首 (取数组成员数 (文本数组), I)
加入成员 (长度数组, 到文本 (取文本长度 (文本数组 [I])))
计次循环尾 ()
数组_排序1 (长度数组)
计次循环首 (取数组成员数 (长度数组), II)
计次循环首 (取数组成员数 (文本数组), III)
如果真 (取文本长度 (文本数组 [III]) ＝ 到整数 (长度数组 [II]))
Ret ＝ Ret ＋ 文本数组 [III] ＋ #换行符
是否删除 ＝ 真
跳出循环 ()

计次循环尾 ()
如果真 (是否删除 ＝ 真)
删除成员 (文本数组, III, )
是否删除 ＝ 假

计次循环尾 ()
调试输出 (文本数组)
返回 (Ret)


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



帖子的不能重复文本这个就可以重复

QR7N7ASI.BT2DNI.png (43.69 KB, 下载次数: 1)

QR7N7ASI.BT2DNI.png




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4