如何每隔2个分割

一C

文本内容: A1B2C3D4F............ （很长后面）备注:最终长度可能是奇数

请教下各位大佬 如何效率隔2个分开~

结果数组: A1 B2 C3 D4 F. ...........

大漠小鸟

  

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

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

文本 ＝ “A1B2C3D4F11”
文本 ＝ 取重复文本 (1024, 文本)
调试输出 (文本_间隔 (文本, 10))
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
文本_间隔	文本型
参数名	类 型	参考	可空	数组	备 注
文本	文本型
间隔数	整数型

变量名	类 型	静态	数组	备 注
长度	整数型
指针	整数型
I	整数型
内存长度	整数型
返回文本	文本型
偏移	整数型

长度 ＝ 取文本长度 (文本)
内存长度 ＝ 长度 ＋ 长度 ÷ 间隔数
指针 ＝ 申请内存 (内存长度, 假)
变量循环首 (1, 长度, 间隔数, I)
判断 (I ＋ 1 ≥ 长度)
写到内存 (取文本中间 (文本, I, 间隔数), 指针 ＋ 偏移, 内存长度)
写到内存 (取文本中间 (文本, I, 间隔数) ＋ “ ”, 指针 ＋ 偏移, 内存长度)
偏移 ＝ 偏移 ＋ 间隔数 ＋ 1
变量循环尾 ()
返回文本 ＝ 指针到文本 (指针)
释放内存 (指针)
返回 (返回文本)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 文本, 文本型<br /> <br /> 文本 ＝ “A1B2C3D4F11”<br /> 文本 ＝ 取重复文本 (1024, 文本)<br /> 调试输出 (文本_间隔 (文本, 10))<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 文本_间隔, 文本型<br /> .参数 文本, 文本型<br /> .参数 间隔数, 整数型<br /> .局部变量 长度, 整数型<br /> .局部变量 指针, 整数型<br /> .局部变量 I, 整数型<br /> .局部变量 内存长度, 整数型<br /> .局部变量 返回文本, 文本型<br /> .局部变量 偏移, 整数型<br /> <br /> 长度 ＝ 取文本长度 (文本)<br /> 内存长度 ＝ 长度 ＋ 长度 ÷ 间隔数<br /> 指针 ＝ 申请内存 (内存长度, 假)<br /> .变量循环首 (1, 长度, 间隔数, I)<br />     .判断开始 (I ＋ 1 ≥ 长度)<br />         写到内存 (取文本中间 (文本, I, 间隔数), 指针 ＋ 偏移, 内存长度)<br />     .默认<br />         写到内存 (取文本中间 (文本, I, 间隔数) ＋ “ ”, 指针 ＋ 偏移, 内存长度)<br />     .判断结束<br />     偏移 ＝ 偏移 ＋ 间隔数 ＋ 1<br /> .变量循环尾 ()<br /> 返回文本 ＝ 指针到文本 (指针)<br /> 释放内存 (指针)<br /> 返回 (返回文本)

传奇

文本_均分文本1(, )

rectdbszy

  

子程序名	返回值类型	公开	备 注
文本_均分文本2	文本型
参数名	类 型	参考	可空	数组	备 注
欲均分的文本	文本型
每行文本长度	整数型
分隔	文本型				默认为加空隔隔开

变量名	类 型	静态	数组	备 注
局_判断	逻辑型
局_分割	文本型		0
局_编码	文本型
局_返回	文本型
i	整数型
局_分隔	文本型

如果 (是否为空 (分隔) ＝ 真)
局_分隔 ＝ “ ”


局_分隔 ＝ 分隔

局_编码 ＝ 编码_Ansi到Unicode_文本型 (欲均分的文本)
局_分割 ＝ 分割文本 (局_编码, “&#”, )
局_判断 ＝ 真
计次循环首 (取数组成员数 (局_分割), i)
局_返回 ＝ 局_返回 ＋ 编码_Unicode到Ansi_文本型 (“&#” ＋ 局_分割 [i])
如果真 (取文本长度 (局_返回) ≥ 每行文本长度 且 局_判断 ＝ 真)
局_返回 ＝ 局_返回 ＋ 局_分隔
局_判断 ＝ 假
如果真 (局_判断 ＝ 假)
如果真 (取文本长度 (文本_取右边 (局_返回, 局_分隔, , )) ≥ 每行文本长度)
局_返回 ＝ 局_返回 ＋ 局_分隔


计次循环尾 ()

.版本 2<br /> <br /> .子程序 文本_均分文本2, 文本型, 公开<br /> .参数 欲均分的文本, 文本型<br /> .参数 每行文本长度, 整数型<br /> .参数 分隔, 文本型, 可空, 默认为加空隔隔开<br /> .局部变量 局_判断, 逻辑型<br /> .局部变量 局_分割, 文本型, , "0"<br /> .局部变量 局_编码, 文本型<br /> .局部变量 局_返回, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 局_分隔, 文本型<br /> <br /> .如果 (是否为空 (分隔) ＝ 真)<br />     局_分隔 ＝ “ ”<br /> .否则<br /> <br />     局_分隔 ＝ 分隔<br /> .如果结束<br /> <br /> 局_编码 ＝ 编码_Ansi到Unicode_文本型 (欲均分的文本)<br /> 局_分割 ＝ 分割文本 (局_编码, “&#”, )<br /> 局_判断 ＝ 真<br /> .计次循环首 (取数组成员数 (局_分割), i)<br />     局_返回 ＝ 局_返回 ＋ 编码_Unicode到Ansi_文本型 (“&#” ＋ 局_分割 <i>)<br />     .如果真 (取文本长度 (局_返回) ≥ 每行文本长度 且 局_判断 ＝ 真)<br />         局_返回 ＝ 局_返回 ＋ 局_分隔<br />         局_判断 ＝ 假<br />     .如果真结束<br />     .如果真 (局_判断 ＝ 假)<br />         .如果真 (取文本长度 (文本_取右边 (局_返回, 局_分隔, , )) ≥ 每行文本长度)<br />             局_返回 ＝ 局_返回 ＋ 局_分隔<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()

补充内容 (2023-10-15 17:49):
返回 (局_返回)

b0y

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
str	文本型
i	整数型
结果	文本型		0

str ＝ “A1B2C3D4E5F6G7H8I9J”
调试输出 (均分文本 (str, 结果))
调试输出 (结果)

子程序名	返回值类型	公开	备 注
均分文本	整数型		返回分割成员数
参数名	类 型	参考	可空	数组	备 注
文本	文本型
接收数组	文本型

变量名	类 型	静态	数组	备 注
i	整数型

变量循环首 (1, 取文本长度 (文本), 2, i)
加入成员 (接收数组, 取文本中间 (文本, i, 2))
变量循环尾 ()
返回 (取数组成员数 (接收数组))

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 str, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 结果, 文本型, , "0"<br /> <br /> str ＝ “A1B2C3D4E5F6G7H8I9J”<br /> 调试输出 (均分文本 (str, 结果))<br /> 调试输出 (结果)<br /> <br /> .子程序 均分文本, 整数型, , 返回分割成员数<br /> .参数 文本, 文本型<br /> .参数 接收数组, 文本型, 可空 数组<br /> .局部变量 i, 整数型<br /> <br /> .变量循环首 (1, 取文本长度 (文本), 2, i)<br />     加入成员 (接收数组, 取文本中间 (文本, i, 2))<br /> .变量循环尾 ()<br /> 返回 (取数组成员数 (接收数组))

开始运行被调试程序
* 10
* 数组:10{“A1”,“B2”,“C3”,“D4”,“E5”,“F6”,“G7”,“H8”,“I9”,“J”}
被调试易程序运行完毕