文本_删除空行 bug

咸鱼666

两个版本都无法删除前面有几个换行符的情况。只能先快文代替了。.版本 2
.支持库 commobj

.子程序 文本_删除空行, 文本型, 公开
.参数 被替换文本, 文本型
.局部变量 _快速文本对象, 快速文本对象
.局部变量 _成功, 整数型
.局部变量 _位置, 整数型

_快速文本对象.置文本 (被替换文本)
.循环判断首 ()
    _成功 ＝ _快速文本对象.替换子文本 (#换行符 ＋ #换行符, #换行符, , , 真)
.循环判断尾 (_成功 ≠ 0)
_位置 ＝ _快速文本对象.寻找文本 (#换行符, , 真)
.如果真 (_位置 ＝ 1)
    _快速文本对象.替换文本 (_位置, 2, )
.如果真结束
_位置 ＝ _快速文本对象.倒找文本 (#换行符, , 真)
.如果真 (_位置 ＝ _快速文本对象.取长度 () － 1)
    _快速文本对象.替换文本 (_位置, 2, )
.如果真结束
返回 (_快速文本对象.取文本 (, ))

王摇摆

  

子程序名	返回值类型	公开	备 注
文本_删除空行	文本型
参数名	类 型	参考	可空	数组	备 注
被替换文本	文本型

变量名	类 型	静态	数组	备 注
_快速文本对象	快速文本对象
_成功	整数型
_位置	整数型

_快速文本对象.置文本 (被替换文本)
循环判断首 ()
_成功 ＝ _快速文本对象.替换子文本 ( #换行符 ＋ #换行符, #换行符, , , 真)
循环判断尾 (_成功 ≠ 0)
_位置 ＝ _快速文本对象.寻找文本 ( #换行符, , 真)
如果真 (_位置 ＝ 1)
_快速文本对象.替换文本 (_位置, 2, )
_位置 ＝ _快速文本对象.倒找文本 ( #换行符, , 真)
如果真 (_位置 ＝ _快速文本对象.取长度 () － 1)
_快速文本对象.替换文本 (_位置, 2, )
返回 (_快速文本对象.取文本 (, ))

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

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 文本_删除空行, 文本型, 公开<br /> .参数 被替换文本, 文本型<br /> .局部变量 _快速文本对象, 快速文本对象<br /> .局部变量 _成功, 整数型<br /> .局部变量 _位置, 整数型<br /> <br /> _快速文本对象.置文本 (被替换文本)<br /> .循环判断首 ()<br />     _成功 ＝ _快速文本对象.替换子文本 (#换行符 ＋ #换行符, #换行符, , , 真)<br /> .循环判断尾 (_成功 ≠ 0)<br /> _位置 ＝ _快速文本对象.寻找文本 (#换行符, , 真)<br /> .如果真 (_位置 ＝ 1)<br />     _快速文本对象.替换文本 (_位置, 2, )<br /> .如果真结束<br /> _位置 ＝ _快速文本对象.倒找文本 (#换行符, , 真)<br /> .如果真 (_位置 ＝ _快速文本对象.取长度 () － 1)<br />     _快速文本对象.替换文本 (_位置, 2, )<br /> .如果真结束<br /> 返回 (_快速文本对象.取文本 (, ))

王摇摆

  

子程序名	返回值类型	公开	备 注
文本_删除空行	文本型
参数名	类 型	参考	可空	数组	备 注
被替换文本	文本型

变量名	类 型	静态	数组	备 注
_快速文本对象	快速文本对象
_成功	整数型
_位置	整数型

_快速文本对象.置文本 (被替换文本)
循环判断首 ()
_成功 ＝ _快速文本对象.替换子文本 ( #换行符 ＋ #换行符, #换行符, , , 真)
循环判断尾 (_成功 ≠ 0)
_位置 ＝ _快速文本对象.寻找文本 ( #换行符, , 真)
如果真 (_位置 ＝ 1)
_快速文本对象.替换文本 (_位置, 2, )
_位置 ＝ _快速文本对象.倒找文本 ( #换行符, , 真)
如果真 (_位置 ＝ _快速文本对象.取长度 () － 1)
_快速文本对象.替换文本 (_位置, 2, )
返回 (_快速文本对象.取文本 (, ))

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

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 文本_删除空行, 文本型, 公开<br /> .参数 被替换文本, 文本型<br /> .局部变量 _快速文本对象, 快速文本对象<br /> .局部变量 _成功, 整数型<br /> .局部变量 _位置, 整数型<br /> <br /> _快速文本对象.置文本 (被替换文本)<br /> .循环判断首 ()<br />     _成功 ＝ _快速文本对象.替换子文本 (#换行符 ＋ #换行符, #换行符, , , 真)<br /> .循环判断尾 (_成功 ≠ 0)<br /> _位置 ＝ _快速文本对象.寻找文本 (#换行符, , 真)<br /> .如果真 (_位置 ＝ 1)<br />     _快速文本对象.替换文本 (_位置, 2, )<br /> .如果真结束<br /> _位置 ＝ _快速文本对象.倒找文本 (#换行符, , 真)<br /> .如果真 (_位置 ＝ _快速文本对象.取长度 () － 1)<br />     _快速文本对象.替换文本 (_位置, 2, )<br /> .如果真结束<br /> 返回 (_快速文本对象.取文本 (, ))