|
发表于 2019-1-2 03:26:11
|
显示全部楼层
四川省泸州市
本帖最后由 hatsunemiku 于 2019-1-2 03:47 编辑
.版本 2
.支持库 spec
.局部变量 文本数组, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 文本数组i, 文本型, , "0"
.局部变量 文本, 文本型
.局部变量 排序后, 文本型, , "0"
.局部变量 i, 整数型
文本数组 = 分割文本 (#常量1, #换行符, ) ' 分割文本 (到文本 (读入文件 (“”)), #换行符, )
.计次循环首 (取数组成员数 (文本数组), n)
文本数组i = 分割文本 (文本数组 [n], “-”, )
数组_排序 (文本数组i)
.计次循环首 (取数组成员数 (文本数组i), i)
' 调试输出 (文本数组i )
.如果 (i ≠ 取数组成员数 (文本数组i))
文本 = 文本 + 文本数组i + “-”
.否则
文本 = 文本 + 文本数组i + #换行符
.如果结束
.计次循环尾 ()
加入成员 (排序后, 文本)
.计次循环尾 ()
.计次循环首 (取数组成员数 (排序后), n)
调试输出 (排序后 [n])
.计次循环尾 ()
|
|