一键处理删除文本文档中的重复行

易语言 2020-08-15 18:33:02

一键处理删除文本文档中的重复行

通用对话框1.初始目录 = “C:\Documents and Settings\Administrator\桌面”
通用对话框1.打开 ()
Handle = 打开文件 (通用对话框1.文件名, , )
.判断循环首 (是否在文件尾 (Handle, ) = 假)
Node.加入属性 (读入一行 (Handle), 0)
.判断循环尾 ()
Node.取全部属性名 (tmp)
.计次循环首 (取数组成员数 (tmp), m)
Output.添加 (tmp [m], #换行符)
.计次循环尾 ()