文本批量换行新手版

KD飞飞

接这个文本按长度自动强制换行折行_精易论坛新手提炼一下能看懂的部分~ 至于原贴精华的编码之类的问题我不懂


源码在下面

  

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

变量名	类 型	静态	数组	备 注
文本总长度	整数型
取值定义长度	整数型
除数	整数型
局_a	整数型
局_b	整数型
单行内容	文本型

取值定义长度 ＝ 到数值 (编辑框3.内容)
文本总长度 ＝ 取文本长度 (编辑框1.内容)
除数 ＝ 文本总长度 ÷ 取值定义长度
计次循环首 (除数, 局_a)
单行内容 ＝ 取文本中间 (编辑框1.内容, 1 ＋ 局_b, 取值定义长度)
局_b ＝ 局_b ＋ 取值定义长度
编辑框2.加入文本 (编辑框4.内容 ＋ 单行内容 ＋ #换行符 )
计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本总长度, 整数型<br /> .局部变量 取值定义长度, 整数型<br /> .局部变量 除数, 整数型<br /> .局部变量 局_a, 整数型<br /> .局部变量 局_b, 整数型<br /> .局部变量 单行内容, 文本型<br /> <br /> 取值定义长度 ＝ 到数值 (编辑框3.内容)<br /> 文本总长度 ＝ 取文本长度 (编辑框1.内容)<br /> 除数 ＝ 文本总长度 ÷ 取值定义长度<br /> .计次循环首 (除数, 局_a)<br />     单行内容 ＝ 取文本中间 (编辑框1.内容, 1 ＋ 局_b, 取值定义长度)<br />     局_b ＝ 局_b ＋ 取值定义长度<br />     编辑框2.加入文本 (编辑框4.内容 ＋ 单行内容 ＋ #换行符)<br /> .计次循环尾 ()

胖子葛格

感谢大神分享~！

please

感谢分享，支持开源！！！

12:30错爱

还要判断数字和半角符号吧，或者判断半角符号自动转换成全角

xx1231

这个一看就懂，谢谢分享

bianyuan456

已经顶贴，感谢您对论坛的支持！

kyo9766

如果中英文混排的的话，去文本中间，可能会出现乱码，建议还是去了解一下 原始帖里面的原理，感谢分享

一指温柔

#在这里快速回复#支持开源~！感谢分享

year1970

感谢分享

查过

感谢楼主分享！

豆豆灰常开心

感谢分享，很给力！~