怎样去掉重复行

阿白不爱吃菜

去重复.e (957.38 KB, 下载次数: 1)

6 天前 上传

点击文件名下载附件


补充内容 (2025-1-13 18:29):
也可以自己定义分隔符,加个参数文本,然后将o=里的 “，”替换成参数分隔符的

阿白不爱吃菜

啊完美了

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

调试输出 (去重复行 ( #常量1, “，”))
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
去重复行	文本型
参数名	类 型	参考	可空	数组	备 注
参_文本	文本型
参_分隔符	文本型

变量名	类 型	静态	数组	备 注
i	整数型
o	整数型
o1	整数型
o2	整数型
变_文本型数组1	文本型		0
返回文本	文本型

计次循环首 (文本_取行数 (参_文本), i)
o ＝ 文本_分割文本 (文本_取指定变量文本行 (参_文本, i), 参_分隔符, , 变_文本型数组1)
o2 ＝ 0
计次循环首 (o, o1)
判断 (数组_取次数 (变_文本型数组1, 变_文本型数组1 [o1]) ＞ 1)

o2 ＝ o2 ＋ 1
判断 (o2 ＝ 取数组成员数 (变_文本型数组1))
返回文本 ＝ 返回文本 ＋ 文本_取指定变量文本行 (参_文本, i) ＋ #换行符
跳出循环 ()




计次循环尾 ()
计次循环尾 ()
返回 (文本_删除空行 (返回文本))

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 调试输出 (去重复行 (#常量1, “，”))<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 去重复行, 文本型<br /> .参数 参_文本, 文本型<br /> .参数 参_分隔符, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 o, 整数型<br /> .局部变量 o1, 整数型<br /> .局部变量 o2, 整数型<br /> .局部变量 变_文本型数组1, 文本型, , "0"<br /> .局部变量 返回文本, 文本型<br /> <br /> .计次循环首 (文本_取行数 (参_文本), i)<br />     o ＝ 文本_分割文本 (文本_取指定变量文本行 (参_文本, i), 参_分隔符, , 变_文本型数组1)<br />     o2 ＝ 0<br />     .计次循环首 (o, o1)<br />         .判断开始 (数组_取次数 (变_文本型数组1, 变_文本型数组1 [o1]) ＞ 1)<br /> <br />         .默认<br />             o2 ＝ o2 ＋ 1<br />             .判断开始 (o2 ＝ 取数组成员数 (变_文本型数组1))<br />                 返回文本 ＝ 返回文本 ＋ 文本_取指定变量文本行 (参_文本, i) ＋ #换行符<br />                 跳出循环 ()<br />             .默认<br /> <br />             .判断结束<br /> <br />         .判断结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 返回 (文本_删除空行 (返回文本))

gujun328577830

chenboss

套个循环

  

变量名	类 型	静态	数组	备 注
a	文本型

a ＝ “3，2，1，2，0”
如果 (文本_去重复文本 (a, “，”) ＝ a)
调试输出 (a)
调试输出 (“重复”)

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 a, 文本型<br /> <br /> a ＝ “3，2，1，2，0”<br /> <br /> .如果 (文本_去重复文本 (a, “，”) ＝ a)<br />     调试输出 (a)<br /> .否则<br />     调试输出 (“重复”)