字符串、文本按长度切割、分割

勤勤学长

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

调试输出 (文本_按长度切割 (“3047433685499605800046354122549545437108929334900156254661480015”, 7, “-”))
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
文本_按长度切割	文本型
参数名	类 型	参考	可空	数组	备 注
内容	文本型
每行字数	整数型
符号	文本型

变量名	类 型	静态	数组	备 注
分割数组	文本型		0
i1	整数型
返回文本	文本型
总数
余数
a
每行	文本型
结果	文本型

文本_逐字分割 (内容, 分割数组)
总数 ＝ 取数组成员数 (分割数组)
返回文本 ＝ “”
如果真 (总数 ≤ 每行字数)
返回 (内容)
余数 ＝ 总数 ％ 每行字数
计次循环首 (总数, i1)
' 调试输出 (i1)
a ＝ a ＋ 1
每行 ＝ 每行 ＋ 分割数组 [i1]
判断 (a ＝ 每行字数)
a ＝ 0
判断 (i1 ＝ 每行字数)
结果 ＝ 结果 ＋ 每行
结果 ＝ 结果 ＋ 符号 ＋ 每行

每行 ＝ “”



如果真 (余数 ≠ 0 且 i1 ＞ 总数 － 余数)
如果真 (i1 － 1 ＝ 总数 － 余数)
每行 ＝ “”

每行 ＝ 每行 ＋ 分割数组 [i1]
如果真 (i1 ＝ 总数)
结果 ＝ 结果 ＋ 符号 ＋ 每行


' 调试输出 (a)
计次循环尾 ()
返回 (结果)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 调试输出 (文本_按长度切割 (“3047433685499605800046354122549545437108929334900156254661480015”, 7, “-”))<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 文本_按长度切割, 文本型<br /> .参数 内容, 文本型<br /> .参数 每行字数, 整数型<br /> .参数 符号, 文本型<br /> .局部变量 分割数组, 文本型, , "0"<br /> .局部变量 i1, 整数型<br /> .局部变量 返回文本, 文本型<br /> .局部变量 总数<br /> .局部变量 余数<br /> .局部变量 a<br /> .局部变量 每行, 文本型<br /> .局部变量 结果, 文本型<br /> <br /> <br /> 文本_逐字分割 (内容, 分割数组)<br /> 总数 ＝ 取数组成员数 (分割数组)<br /> <br /> 返回文本 ＝ “”<br /> .如果真 (总数 ≤ 每行字数)<br />     返回 (内容)<br /> .如果真结束<br /> 余数 ＝ 总数 ％ 每行字数<br /> .计次循环首 (总数, i1)<br />     ' 调试输出 (i1)<br />     a ＝ a ＋ 1<br />     每行 ＝ 每行 ＋ 分割数组 [i1]<br />     .判断开始 (a ＝ 每行字数)<br />         a ＝ 0<br />         .判断开始 (i1 ＝ 每行字数)<br />             结果 ＝ 结果 ＋ 每行<br />         .默认<br />             结果 ＝ 结果 ＋ 符号 ＋ 每行<br />         .判断结束<br /> <br />         每行 ＝ “”<br /> <br />     .默认<br /> <br />         .如果真 (余数 ≠ 0 且 i1 ＞ 总数 － 余数)<br /> <br />             .如果真 (i1 － 1 ＝ 总数 － 余数)<br />                 每行 ＝ “”<br /> <br />             .如果真结束<br /> <br />             每行 ＝ 每行 ＋ 分割数组 [i1]<br /> <br />             .如果真 (i1 ＝ 总数)<br />                 结果 ＝ 结果 ＋ 符号 ＋ 每行<br /> <br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .判断结束<br />     ' 调试输出 (a)<br /> .计次循环尾 ()<br /> 返回 (结果)

夏亿

感谢分享

醉卧美人膝

666666666666666

本森Bin

感谢分享

亿万

感谢分享

yzl666

感谢分享

夏亿

感谢分享

59hdvj

感谢分享

BIG牛肉面

路过围观一下，顺便帮顶

elecdiy

支持开源~！感谢分享