精易模块的的 文本_删除空行_汇编 对读取的TXT内容操作有BUG

liuzhonglin

操作系统：win7 64 旗舰版
易语言版本：5.8
精易模块版本：8.5.0
问题命令：文本_删除空行_汇编
问题现象描述：
                      待处理文本 ＝ 取字节集数据 (读入文件 (取运行目录 () ＋ “\新建文本文档.txt”), 10, )'这个文本里第一行和其它行有空行
                      编辑框1.内容 ＝ 文本_删除空行_汇编 (待处理文本)'显示在这或写到文件打开发现第一行的空格去不掉
                      编辑框1.内容 ＝ 文本_删除空行 (待处理文本)'这个就能全部去掉
源码附件：已经上传。
删除文本空行_汇编BUG.rar (212.62 KB, 下载次数: 7)

2020-11-22 23:36 上传

点击文件名下载附件

jr21066

@项目部004
打了个补丁

  

子程序名	返回值类型	公开	备 注
文本_删除空行_汇编	文本型		汇编,一次完成搜索替换 感谢【@jr21066 】分享开源
参数名	类 型	参考	可空	数组	备 注
参_内容	文本型

变量名	类 型	静态	数组	备 注
返回值	文本型

如果真 (参_内容 ＝ “”)
返回 (“”)

返回值 ＝ 取空白文本 (取文本长度 (参_内容))
' 打个补丁,用于处理第一个字符就是换行符的特殊情况
如果 (取文本左边 (参_内容, 2) ＝ #换行符 )
取变量数据地址 (参_内容)
置入代码 ({ 64, 64 })
取变量数据地址 (参_内容)

置入代码 ({ 96, 137, 198, 139, 125, 252, 172, 132, 192, 116, 22, 60, 13, 117, 12, 170, 172, 170, 172, 132, 192, 116, 10, 60, 13, 116, 3, 170, 235, 232, 70, 235, 241, 49, 192, 170, 97 })
返回 (返回值)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 文本_删除空行_汇编, 文本型, 公开, 汇编,一次完成搜索替换 感谢【<a href="https://bbs.125.la/home.php?mod=space&uid=240689" target="_blank">@jr21066</a> 】分享开源<br /> .参数 参_内容, 文本型<br /> .局部变量 返回值, 文本型<br /> <br /> .如果真 (参_内容 ＝ “”)<br />     返回 (“”)<br /> .如果真结束<br /> <br /> 返回值 ＝ 取空白文本 (取文本长度 (参_内容))<br /> ' 打个补丁,用于处理第一个字符就是换行符的特殊情况<br /> .如果 (取文本左边 (参_内容, 2) ＝ #换行符)<br />     取变量数据地址 (参_内容)<br />     置入代码 ({ 64, 64 })<br /> .否则<br />     取变量数据地址 (参_内容)<br /> .如果结束<br /> <br /> 置入代码 ({ 96, 137, 198, 139, 125, 252, 172, 132, 192, 116, 22, 60, 13, 117, 12, 170, 172, 170, 172, 132, 192, 116, 10, 60, 13, 116, 3, 170, 235, 232, 70, 235, 241, 49, 192, 170, 97 })<br /> 返回 (返回值)

jr21066

这是一个特殊情况,文本的最前端是一个换行.
文本_删除空行_汇编的原理是搜索两个换行替换成一个换行来实现行之间的空行消除.
我提供另一个方式来实现

  

子程序名	返回值类型	公开	备 注
文本_删除所有空行	文本型		根据换行符前边判断是否需要删除
参数名	类 型	参考	可空	数组	备 注
参_文本内容	文本型

变量名	类 型	静态	数组	备 注
内容	字节集
指针	整数型
当前字节集	字节集

' 文本内容转字节集,从后向前开始搜索
内容 ＝ 到字节集 (参_文本内容)
指针 ＝ 取字节集长度 (内容)
' 空的内容直接返回
如果真 (指针 ≤ 2)
返回 (“”)

判断循环首 (指针 ≠ -2)
指针 ＝ 倒找字节集 (内容, { 13, 10 }, 指针)
' 取出换行符前边的内容,如果是换行符或是文件首,就删除当前换行符
当前字节集 ＝ 取字节集中间 (内容, 指针 － 2, 2)
如果真 (当前字节集 ＝ { 13, 10 } 或 当前字节集 ＝ {  })
内容 ＝ 字节集替换 (内容, 指针, 2, )
指针 ＝ 指针 － 1
判断循环尾 ()
返回 (到文本 (内容))

.版本 2<br /> <br /> .子程序 文本_删除所有空行, 文本型, , 根据换行符前边判断是否需要删除<br /> .参数 参_文本内容, 文本型<br /> .局部变量 内容, 字节集<br /> .局部变量 指针, 整数型<br /> .局部变量 当前字节集, 字节集<br /> <br /> ' 文本内容转字节集,从后向前开始搜索<br /> 内容 ＝ 到字节集 (参_文本内容)<br /> 指针 ＝ 取字节集长度 (内容)<br /> ' 空的内容直接返回<br /> .如果真 (指针 ≤ 2)<br />     返回 (“”)<br /> .如果真结束<br /> <br /> .判断循环首 (指针 ≠ -2)<br />     指针 ＝ 倒找字节集 (内容, { 13, 10 }, 指针)<br />     ' 取出换行符前边的内容,如果是换行符或是文件首,就删除当前换行符<br />     当前字节集 ＝ 取字节集中间 (内容, 指针 － 2, 2)<br />     .如果真 (当前字节集 ＝ { 13, 10 } 或 当前字节集 ＝ {  })<br />         内容 ＝ 字节集替换 (内容, 指针, 2, )<br />     .如果真结束<br />     指针 ＝ 指针 － 1<br /> .判断循环尾 ()<br /> 返回 (到文本 (内容))

项目部004

@jr21066 请给看看

liuzhonglin

360浏览器的，我点的保存草稿的，怎么就发表了，附件还没来得及放，已在下面回复放上

liuzhonglin

删除文本空行_汇编BUG.rar (212.62 KB, 下载次数: 8)

2020-11-22 23:32 上传

点击文件名下载附件
源码文件