文本加空行问题 求助

南风窗

平时需要整理文字，图1是整理过的，问：如图2，无论文本是什么内容，我需要在第一行后面自动加一个空行，能实现的话给个代码，感谢回复。

番茄吧

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文本1	文本型
文本2	文本型
n

n ＝ 寻找文本 (编辑框1.内容, #换行符, , 假)
文本1 ＝ 取文本左边 (编辑框1.内容, n)
文本2 ＝ 取文本中间 (编辑框1.内容, n, 取文本长度 (编辑框1.内容))
编辑框1.内容 ＝ 文本1 ＋ #换行符 ＋ 文本2

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本1, 文本型<br /> .局部变量 文本2, 文本型<br /> .局部变量 n<br /> <br /> n ＝ 寻找文本 (编辑框1.内容, #换行符, , 假)<br /> 文本1 ＝ 取文本左边 (编辑框1.内容, n)<br /> 文本2 ＝ 取文本中间 (编辑框1.内容, n, 取文本长度 (编辑框1.内容))<br /> 编辑框1.内容 ＝ 文本1 ＋ #换行符 ＋ 文本2

番茄吧

这个简单，找到第一个  #换行符的位置， 把前后分开，在中间插入一个 #换行符，等于2个换行符 就是一个空行了

初夏喔

1. .版本 2
   
2. 
   
3. .局部变量 文本, 文本型
   
4. .局部变量 regex, 正则表达式类
   
5. 
   
6. 文本 ＝ #常量1
   
7. 输出调试文本 (文本)
   
8. regex.创建 (“(.*?\s+)”, 文本)
   
9. 文本 ＝ regex.替换 (“$1” ＋ #换行符)
   
10. 输出调试文本 (文本)
    

复制代码

易容术

↓一行代码解决问题↓
指定格式.e (900.42 KB, 下载次数: 9)

2021-10-8 12:10 上传

点击文件名下载附件