文本按长度自动强制换行折行 - 精易论坛

子程序名	返回值类型	公开	备注
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, #文本型, ))