文本按长度自动强制换行折行

七夜网

虽然之前有大佬们已经发过了，但是看评论有反应说半角全角不行，所以我自己又重新写了一个，无视全角半角自动折行换行，原文有换行的也会自动换行，就是增加了一个判断全角和半角的，Unicode这个肯定是没有的，毕竟原生的易不支持那玩意，因为这个功能没什么技术含量，作用也不大，一般用在需要强制文本对齐长度的地方，例如带的LICENSE.txt之类的（但这个没有单词对齐功能，所以有时候你会看到一个单词被强制断行了），所以直接粘贴源码代码了，截图中的每行前面自动加符号的，各位猜猜用什么命令可以实现！

  

子程序名	返回值类型	公开	备 注
isChineseChar	逻辑型		注：检测GBK的编码
参数名	类 型	参考	可空	数组	备 注
highByte	字节型

返回 (highByte ≥ 129 且 highByte ≤ 254)

子程序名	返回值类型	公开	备 注
str_wrap	文本型		将长行文本按指定长度自动折行。注：仅支持GBK！
参数名	类 型	参考	可空	数组	备 注
text	文本型				被自动折行的文本。
lineLength	整数型				每行长度，默认50个字符。

变量名	类 型	静态	数组	备 注
buf	字节集
wrappedText	字节集
currentLineLength	整数型
charWidth	整数型
N	整数型
i	整数型
newLine	逻辑型

lineLength ＝ 选择 (是否为空 (lineLength), 50, 选择 (lineLength ＜ 1, 1, lineLength))
buf ＝ 到字节集 (text)
判断循环首 (i ＜ 取字节集长度 (buf))
i ＝ i ＋ 1
newLine ＝ 假
判断 (isChineseChar (buf [i]))
如果真 (i ＜ 取字节集长度 (buf))
i ＝ i ＋ 1
charWidth ＝ 2
判断 (buf [i] ＝ 13)
如果真 (i ＜ 取字节集长度 (buf))
i ＝ i ＋ 1
charWidth ＝ 2
newLine ＝ 真
charWidth ＝ 1

如果真 (currentLineLength ＋ charWidth ＞ lineLength 或 newLine)
wrappedText ＝ wrappedText ＋ 选择 (newLine, {  }, { 13, 10 })
currentLineLength ＝ 0
wrappedText ＝ wrappedText ＋ 取字节集中间 (buf, i － charWidth ＋ 1, charWidth)
currentLineLength ＝ currentLineLength ＋ 选择 (newLine, 0, charWidth)
判断循环尾 ()
返回 (取字节集数据 (wrappedText, #文本型, ))

.版本 2<br /> <br /> .子程序 isChineseChar, 逻辑型, , 注：检测GBK的编码<br /> .参数 highByte, 字节型<br /> <br /> 返回 (highByte ≥ 129 且 highByte ≤ 254)<br /> <br /> .子程序 str_wrap, 文本型, 公开, 将长行文本按指定长度自动折行。注：仅支持GBK！<br /> .参数 text, 文本型, , 被自动折行的文本。<br /> .参数 lineLength, 整数型, 可空, 每行长度，默认50个字符。<br /> .局部变量 buf, 字节集<br /> .局部变量 wrappedText, 字节集<br /> .局部变量 currentLineLength, 整数型<br /> .局部变量 charWidth, 整数型<br /> .局部变量 N, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 newLine, 逻辑型<br /> <br /> lineLength ＝ 选择 (是否为空 (lineLength), 50, 选择 (lineLength ＜ 1, 1, lineLength))<br /> buf ＝ 到字节集 (text)<br /> .判断循环首 (i ＜ 取字节集长度 (buf))<br />     i ＝ i ＋ 1<br />     newLine ＝ 假<br />     .判断开始 (isChineseChar (buf <i>))<br />         .如果真 (i ＜ 取字节集长度 (buf))<br />             i ＝ i ＋ 1<br />         .如果真结束<br />         charWidth ＝ 2<br />     .判断 (buf <i> ＝ 13)<br />         .如果真 (i ＜ 取字节集长度 (buf))<br />             i ＝ i ＋ 1<br />         .如果真结束<br />         charWidth ＝ 2<br />         newLine ＝ 真<br />     .默认<br />         charWidth ＝ 1<br />     .判断结束<br /> <br />     .如果真 (currentLineLength ＋ charWidth ＞ lineLength 或 newLine)<br />         wrappedText ＝ wrappedText ＋ 选择 (newLine, {  }, { 13, 10 })<br />         currentLineLength ＝ 0<br />     .如果真结束<br />     wrappedText ＝ wrappedText ＋ 取字节集中间 (buf, i － charWidth ＋ 1, charWidth)<br />     currentLineLength ＝ currentLineLength ＋ 选择 (newLine, 0, charWidth)<br /> .判断循环尾 ()<br /> 返回 (取字节集数据 (wrappedText, #文本型, ))

XJxaiojing

666666666666666

蓝河笑月

开源精神必须支持~

pshq123

胖子葛格

感谢分享

查过

感谢发布原创作品，精易因你更精彩！6666666666666

豆豆灰常开心

全都是大佬~

kenan236

6666666666666666666

wh1234567

感谢分享