每两个字符分割一次

Mavrick

有谁能写个每两个字符分割一次 有中文有字母有数字 比如 {12版本VSG} 分割后是 {12 版本 vs g}

b0y

  

变量名	类 型	静态	数组	备 注
str	文本型
bin	字节集
pos	整数型
tmp	字节集
res	字节集

str ＝ “12版本VSG”
bin ＝ 到字节集 (str)
判断循环首 (pos ≤ 取字节集长度 (bin))
pos ＝ pos ＋ 1
如果 (isDB (bin, pos))
tmp ＝ 取字节集中间 (bin, pos, 2)
pos ＝ pos ＋ 1
tmp ＝ 取字节集中间 (bin, pos, 1)

如果 (res ＝ {  })
res ＝ tmp
调试输出 (到文本 (res ＋ tmp))
res ＝ {  }

判断循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 str, 文本型<br /> .局部变量 bin, 字节集<br /> .局部变量 pos, 整数型<br /> .局部变量 tmp, 字节集<br /> .局部变量 res, 字节集<br /> <br /> str ＝ “12版本VSG”<br /> bin ＝ 到字节集 (str)<br /> .判断循环首 (pos ≤ 取字节集长度 (bin))<br />     pos ＝ pos ＋ 1<br />     .如果 (isDB (bin, pos))<br />         tmp ＝ 取字节集中间 (bin, pos, 2)<br />         pos ＝ pos ＋ 1<br />     .否则<br />         tmp ＝ 取字节集中间 (bin, pos, 1)<br />     .如果结束<br /> <br />     .如果 (res ＝ {  })<br />         res ＝ tmp<br />     .否则<br />         调试输出 (到文本 (res ＋ tmp))<br />         res ＝ {  }<br />     .如果结束<br /> <br /> .判断循环尾 ()

开始运行被调试程序
* “12”
* “版本”
* “VS”
* “G”
被调试易程序运行完毕

a.e (3.16 KB, 下载次数: 5)

2023-11-15 10:01 上传

点击文件名下载附件

b0y

  

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

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

str ＝ “12版本VSG”
变量循环首 (1, 取文本长度 (str), 2, i)
调试输出 (i, 取文本中间 (str, i, 2))
变量循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 str, 文本型<br /> .局部变量 i, 整数型<br /> <br /> str ＝ “12版本VSG”<br /> .变量循环首 (1, 取文本长度 (str), 2, i)<br />     调试输出 (i, 取文本中间 (str, i, 2))<br /> .变量循环尾 ()

开始运行被调试程序
* 1 | “12”
* 3 | “版”
* 5 | “本”
* 7 | “VS”
* 9 | “G”
被调试易程序运行完毕

补充内容 (2023-11-15 09:31):
没看中文.

wtflxk

  

子程序名	返回值类型	公开	备 注
文本_逐字分割	整数型		将指定文本,逐字分割成数组,保存为指定的变量数组中,返回成员个数,可识别换行符及全半角字符和汉字
参数名	类 型	参考	可空	数组	备 注
文本	文本型				需要分割的文本
返回的数组	文本型				保存分割结果的数组变量

变量名	类 型	静态	数组	备 注
c	整数型
n	整数型
z	整数型
返回文本	文本型
临时字节集	字节集

清除数组 (返回的数组)
临时字节集 ＝ 到字节集 (文本)
c ＝ 取字节集长度 (临时字节集)
n ＝ 1
判断循环首 (n ≤ c)
如果 (n ＋ 1 ＞ c)
z ＝ 1
如果 (临时字节集 [n] ＞ 128)
z ＝ 2
如果 (临时字节集 [n] ≠ 13)
z ＝ 1
如果 (临时字节集 [n ＋ 1] ＝ 10)
z ＝ 2
z ＝ 1



加入成员 (返回的数组, 到文本 (取字节集中间 (临时字节集, n, z)))
n ＝ n ＋ z
判断循环尾 ()
返回 (取数组成员数 (返回的数组))

.版本 2<br /> <br /> .子程序 文本_逐字分割, 整数型, 公开, 将指定文本,逐字分割成数组,保存为指定的变量数组中,返回成员个数,可识别换行符及全半角字符和汉字<br /> .参数 文本, 文本型, , 需要分割的文本<br /> .参数 返回的数组, 文本型, 参考 可空 数组, 保存分割结果的数组变量<br /> .局部变量 c, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 z, 整数型<br /> .局部变量 返回文本, 文本型<br /> .局部变量 临时字节集, 字节集<br /> <br /> 清除数组 (返回的数组)<br /> 临时字节集 ＝ 到字节集 (文本)<br /> c ＝ 取字节集长度 (临时字节集)<br /> n ＝ 1<br /> .判断循环首 (n ≤ c)<br />     .如果 (n ＋ 1 ＞ c)<br />         z ＝ 1<br />     .否则<br />         .如果 (临时字节集 [n] ＞ 128)<br />             z ＝ 2<br />         .否则<br />             .如果 (临时字节集 [n] ≠ 13)<br />                 z ＝ 1<br />             .否则<br />                 .如果 (临时字节集 [n ＋ 1] ＝ 10)<br />                     z ＝ 2<br />                 .否则<br />                     z ＝ 1<br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br />     加入成员 (返回的数组, 到文本 (取字节集中间 (临时字节集, n, z)))<br />     n ＝ n ＋ z<br /> .判断循环尾 ()<br /> 返回 (取数组成员数 (返回的数组))

先用这段代码把文本内容分割成一个字一字 然后 i%2=0 取数组就搞定了