在来分享个 文本过滤重复行 删除指定的重复行文本

超级菜鸟王

文本过滤重复行 删除指定的重复行文本  希望对各位基友 有所帮助

  

子程序名	返回值类型	公开	备 注
文本_过滤重复行	文本型
参数名	类 型	参考	可空	数组	备 注
参_源文本	文本型				需要过滤的源文本最好是 一行一个 或者指定分割符
参_过滤文本	文本型				同上
参_分隔符	文本型				指定分割符 或者 一行一个

变量名	类 型	静态	数组	备 注
局_快速文本	快速文本对象
局_过滤数组	文本型		0
局_过滤数	整数型
局_返回文本	文本型
I
局_头位置	整数型			从位置头算起
局_尾位置	整数型			换行符的位置
局_删除长度	整数型			实际长度应该是 内容+换行符
局_查询文本	文本型

局_过滤数 ＝ 0
清除数组 (局_过滤数组)
如果真 (是否为空 (参_分隔符))
参_分隔符 ＝ #换行符
局_过滤数组 ＝ 分割文本 (参_过滤文本, 参_分隔符, )
局_过滤数 ＝ 取数组成员数 (局_过滤数组)
局_快速文本.添加 (参_源文本)
局_快速文本.删首尾空 ()
变量循环首 (1, 局_过滤数, 1, I)
循环判断首 ()
局_查询文本 ＝ 局_过滤数组 [I]  ' ----寻找过滤的文本 循环删除重复文本
局_头位置 ＝ 局_快速文本.寻找文本 (局_查询文本, , 假)  ' ----寻找过滤的文本  如果找到了 返回起始位置
如果真 (局_头位置 ＝ -1)  ' 如果没有找到 跳出判断 继续循环下一个过滤文本
跳出循环 ()

局_尾位置 ＝ 局_快速文本.寻找文本 ( #换行符, 局_头位置, 假)  ' 这一步是 寻找换行符的位置
局_删除长度 ＝ 取文本长度 (局_查询文本)  ' 计算需要删除的行长度
局_快速文本.删除字符 (局_头位置, 局_删除长度 ＋ 2)  ' -1 表示 把空行也删除掉了 不会留下空
处理事件 ()
循环判断尾 (局_头位置 ≠ -1)
变量循环尾 ()
局_返回文本 ＝ 局_快速文本.取文本 (, )
局_快速文本.清除文本 ()
返回 (局_返回文本)

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 文本_过滤重复行, 文本型, 公开<br /> .参数 参_源文本, 文本型, , 需要过滤的源文本最好是 一行一个 或者指定分割符<br /> .参数 参_过滤文本, 文本型, , 同上<br /> .参数 参_分隔符, 文本型, 可空, 指定分割符 或者 一行一个<br /> .局部变量 局_快速文本, 快速文本对象<br /> .局部变量 局_过滤数组, 文本型, , "0"<br /> .局部变量 局_过滤数, 整数型<br /> .局部变量 局_返回文本, 文本型<br /> .局部变量 I<br /> .局部变量 局_头位置, 整数型, , , 从位置头算起<br /> .局部变量 局_尾位置, 整数型, , , 换行符的位置<br /> .局部变量 局_删除长度, 整数型, , , 实际长度应该是 内容+换行符<br /> .局部变量 局_查询文本, 文本型<br /> <br /> 局_过滤数 ＝ 0<br /> 清除数组 (局_过滤数组)<br /> .如果真 (是否为空 (参_分隔符))<br />     参_分隔符 ＝ #换行符<br /> .如果真结束<br /> 局_过滤数组 ＝ 分割文本 (参_过滤文本, 参_分隔符, )<br /> 局_过滤数 ＝ 取数组成员数 (局_过滤数组)<br /> 局_快速文本.添加 (参_源文本)<br /> 局_快速文本.删首尾空 ()<br /> .变量循环首 (1, 局_过滤数, 1, I)<br />     .循环判断首 ()<br />         局_查询文本 ＝ 局_过滤数组 [I]  ' ----寻找过滤的文本 循环删除重复文本<br />         局_头位置 ＝ 局_快速文本.寻找文本 (局_查询文本, , 假)  ' ----寻找过滤的文本  如果找到了 返回起始位置<br />         .如果真 (局_头位置 ＝ -1)  ' 如果没有找到 跳出判断 继续循环下一个过滤文本<br />             跳出循环 ()<br />         .如果真结束<br /> <br />         局_尾位置 ＝ 局_快速文本.寻找文本 (#换行符, 局_头位置, 假)  ' 这一步是 寻找换行符的位置<br />         局_删除长度 ＝ 取文本长度 (局_查询文本)  ' 计算需要删除的行长度<br /> <br />         局_快速文本.删除字符 (局_头位置, 局_删除长度 ＋ 2)  ' -1 表示 把空行也删除掉了 不会留下空<br />         处理事件 ()<br />     .循环判断尾 (局_头位置 ≠ -1)<br /> .变量循环尾 ()<br /> 局_返回文本 ＝ 局_快速文本.取文本 (, )<br /> 局_快速文本.清除文本 ()<br /> 返回 (局_返回文本)

与你共舞

感谢分享

love2010

感谢分享

倪少

不错感谢分享.

灰豆

不错感谢分享.

空之影

不错感谢分享.

冷寒冰

不错，可以学习一下

我媳妇胸真大

感谢分享