求一个字节集倒叙文本要区分全角和半角

2277911286

最好要快点谢谢

jr21066

例子来了..

  

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

变量名	类 型	静态	数组	备 注
内容	字节集
偏移	整数型
结果	字节集		0
计数器	整数型

内容 ＝ 到字节集 (“中国ABC”)
偏移 ＝ 1
判断循环首 (偏移 ≤ 取字节集长度 (内容))
如果 (内容 [偏移] ＞ 128)
插入成员 (结果, 1, 取字节集中间 (内容, 偏移, 2))
偏移 ＝ 偏移 ＋ 2
插入成员 (结果, 1, 取字节集中间 (内容, 偏移, 1))
偏移 ＝ 偏移 ＋ 1

判断循环尾 ()
内容 ＝ {  }
计次循环首 (取数组成员数 (结果), 计数器)
内容 ＝ 内容 ＋ 结果 [计数器]
计次循环尾 ()
调试输出 (到文本 (内容))
返回 (0)  ' 可以根据您的需要返回任意数值

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 内容, 字节集<br /> .局部变量 偏移, 整数型<br /> .局部变量 结果, 字节集, , "0"<br /> .局部变量 计数器, 整数型<br /> <br /> 内容 ＝ 到字节集 (“中国ABC”)<br /> 偏移 ＝ 1<br /> .判断循环首 (偏移 ≤ 取字节集长度 (内容))<br />     .如果 (内容 [偏移] ＞ 128)<br />         插入成员 (结果, 1, 取字节集中间 (内容, 偏移, 2))<br />         偏移 ＝ 偏移 ＋ 2<br />     .否则<br />         插入成员 (结果, 1, 取字节集中间 (内容, 偏移, 1))<br />         偏移 ＝ 偏移 ＋ 1<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> 内容 ＝ {  }<br /> .计次循环首 (取数组成员数 (结果), 计数器)<br />     内容 ＝ 内容 ＋ 结果 [计数器]<br /> .计次循环尾 ()<br /> 调试输出 (到文本 (内容))<br /> 返回 (0)  ' 可以根据您的需要返回任意数值