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