精易论坛

标题: 文本_删除空行 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, )
返回 (_快速文本对象.取文本 (, ))


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


作者: 王摇摆    时间: 2022-6-21 22:13
  
子程序名返回值类型公开备 注
文本_删除空行文本型 
参数名类 型参考可空数组备 注
被替换文本文本型
变量名类 型静态数组备 注
_快速文本对象快速文本对象 
_成功整数型 
_位置整数型 
_快速文本对象.置文本 (被替换文本)
循环判断首 ()
_成功 = _快速文本对象.替换子文本 ( #换行符#换行符, #换行符, , , )
循环判断尾 (_成功 ≠ 0)
_位置 = _快速文本对象.寻找文本 ( #换行符, , )
如果真 (_位置 = 1)
_快速文本对象.替换文本 (_位置, 2, )
_位置 = _快速文本对象.倒找文本 ( #换行符, , )
如果真 (_位置 = _快速文本对象.取长度 () - 1)
_快速文本对象.替换文本 (_位置, 2, )
返回 (_快速文本对象.取文本 (, ))


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


作者: 算法艺术家    时间: 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