精易论坛
标题: 文本_删除空行 bug [打印本页]
作者: 咸鱼666 时间: 2022-6-21 21:02
标题: 文本_删除空行 bug 两个版本都无法删除前面有几个换行符的情况。只能先快文代替了。.版本 2
.支持库 commobj
.子程序 文本_删除空行, 文本型, 公开
.参数 被替换文本, 文本型
.局部变量 _快速文本对象, 快速文本对象
.局部变量 _成功, 整数型
.局部变量 _位置, 整数型
_快速文本对象.置文本 (被替换文本)
.循环判断首 ()
_成功 = _快速文本对象.替换子文本 (#换行符 + #换行符, #换行符, , , 真)
.循环判断尾 (_成功 ≠ 0)
_位置 = _快速文本对象.寻找文本 (#换行符, , 真)
.如果真 (_位置 = 1)
_快速文本对象.替换文本 (_位置, 2, )
.如果真结束
_位置 = _快速文本对象.倒找文本 (#换行符, , 真)
.如果真 (_位置 = _快速文本对象.取长度 () - 1)
_快速文本对象.替换文本 (_位置, 2, )
.如果真结束
返回 (_快速文本对象.取文本 (, ))
作者: 王摇摆 时间: 2022-6-21 22:12
变量名 类 型 静态 数组 备 注 _快速文本对象 快速文本对象 _成功 整数型 _位置 整数型
_快速文本对象.
置文本 ( 被替换文本
) 循环判断首 ( ) _成功 = _快速文本对象.
替换子文本 ( #换行符 +
#换行符, #换行符, , ,
真 ) 循环判断尾 ( _成功 ≠ 0
) _位置 = _快速文本对象.
寻找文本 ( #换行符, ,
真 ) 如果真 ( _位置 = 1
) _快速文本对象.
替换文本 ( _位置, 2,
) _位置 = _快速文本对象.倒找文本 ( #换行符, , 真 ) 如果真 ( _位置 = _快速文本对象.
取长度 ( ) - 1
) _快速文本对象.
替换文本 ( _位置, 2,
) 返回 ( _快速文本对象.取文本 ( , ) )
作者: 王摇摆 时间: 2022-6-21 22:13
变量名 类 型 静态 数组 备 注 _快速文本对象 快速文本对象 _成功 整数型 _位置 整数型
_快速文本对象.
置文本 ( 被替换文本
) 循环判断首 ( ) _成功 = _快速文本对象.
替换子文本 ( #换行符 +
#换行符, #换行符, , ,
真 ) 循环判断尾 ( _成功 ≠ 0
) _位置 = _快速文本对象.
寻找文本 ( #换行符, ,
真 ) 如果真 ( _位置 = 1
) _快速文本对象.
替换文本 ( _位置, 2,
) _位置 = _快速文本对象.倒找文本 ( #换行符, , 真 ) 如果真 ( _位置 = _快速文本对象.
取长度 ( ) - 1
) _快速文本对象.
替换文本 ( _位置, 2,
) 返回 ( _快速文本对象.取文本 ( , ) )
作者: 算法艺术家 时间: 2025-2-21 01:56
返回 ( 文本去指定重复文本 ( 文本,
#换行符 ) )
文本去指定重复文本 文本型 原文本 文本型 欲去重的子文本 文本型
变量名 类 型 静态 数组 备 注 i 整数型 n 整数型 局文本 文本型 长度 整数型
长度 =
取文本长度 ( 欲去重的子文本
) 局文本 = 原文本
i = -100
循环判断首 ( ) n = n + 1
n =
寻找文本s ( 局文本, 欲去重的子文本, n,
假 ) 如果真 ( n = -1
) 跳出循环 ( ) 如果真 ( i = n - 长度
) 局文本 =
文本替换 ( 局文本, n, 长度,
“” ) n = n - 长度
i = n 循环判断尾 ( 真 ) 返回 ( 局文本
)
欢迎光临 精易论坛 (https://125.confly.eu.org/)
Powered by Discuz! X3.4