删除编辑框文本的空白行

wxhscc

编辑框1    删除空行到    编辑框2
编辑框1内容如下

123456           aas
459555           bbs
nin你你

88888             9999


7777777777

调试正常，但是取出  置剪辑板文本，到txt里粘贴无论如何还是有空行

编辑框2得到正确的结果如下

123456           aas
459555           bbs
nin你你
88888             9999
7777777777


即使复制到 txt 里也没有空行，如何实现呢

wtflxk

如此这般

初夏喔

文本_删除空行 ()

emodiyu

精易模块  文本_删除空行

AnyPopup

删除多余字符10跟13

安蔷

编辑框2.内容=文本_删除空行 (编辑框1.内容)

安蔷

选我  我缺精币
编辑框2.内容=文本_删除空行 (编辑框1.内容)

wxhscc

初夏喔 发表于 2021-11-1 11:31
文本_删除空行 ()

就我上一个帖子那玩意，要疯了
在程序里编辑框粘贴内容获取结果正常
从 表格 XLSX 里复制出来就不行死活有空格
你有空吗，帮我看看

正则匹配修改精准度
https://bbs.125.la/forum.php?mod=viewthread&tid=14704662
就你最佳那个文件

你新建一个 表格   XLSX  拉个1到10序列号，就变成这样了

https://book.vkyun.com/E1.png

明靓

简单,粗暴,哈哈

  

子程序名	返回值类型	公开	备 注
删全部空行	文本型
参数名	类 型	参考	可空	数组	备 注
源文本	文本型

变量名	类 型	静态	数组	备 注
l	整数型

l ＝ 取文本长度 (源文本)
计次循环首 (l, )
源文本 ＝ 子文本替换 (源文本, #换行符 ＋ #换行符, #换行符, , , 真)
计次循环尾 ()
返回 (源文本)

.版本 2<br /> <br /> .子程序 删全部空行, 文本型<br /> .参数 源文本, 文本型, 参考<br /> .局部变量 l, 整数型<br /> <br /> l ＝ 取文本长度 (源文本)<br /> .计次循环首 (l, )<br />     源文本 ＝ 子文本替换 (源文本, #换行符 ＋ #换行符, #换行符, , , 真)<br /> .计次循环尾 ()<br /> 返回 (源文本)

冰墩墩

只修改了复制结果那里  你看看效果。这个效果是按照里面的文本弄的！你知道你的文本固定不固定