文本取反

老赵0912

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 a, 整数型

a ＝ 1
.计次循环首 (取文本长度 (编辑框1.内容) ÷ 2, )
    .如果 (a ＝ 1)
        编辑框2.内容 ＝ 取文本中间 (编辑框1.内容, a, 2)
    .否则
        编辑框2.内容 ＝ 取文本中间 (编辑框1.内容, a, 2) ＋ “” ＋ 编辑框2.内容
    .如果结束
    a ＝ a ＋ 2
.计次循环尾 ()

bianyuan456

已经顶贴，感谢您对论坛的支持！

真冬

  

调试输出 (文本取反 (“老赵0912”))

子程序名	返回值类型	公开	备 注
文本取反	文本型
参数名	类 型	参考	可空	数组	备 注
参数_来源	文本型

变量名	类 型	静态	数组	备 注
局_i1	整数型
局_i2	整数型
局_原文	字节集
局_长度	整数型
局_结果	字节集

局_原文 ＝ 到字节集 (参数_来源)
局_长度 ＝ 取字节集长度 (局_原文)
局_结果 ＝ 取空白字节集 (局_长度)
局_i2 ＝ 局_长度
判断循环首 (局_i1 ＜ 局_长度)
局_i1 ＝ 局_i1 ＋ 1
判断 (局_原文 [局_i1] ＞ 127)
局_结果 [局_i2 － 1] ＝ 局_原文 [局_i1]
局_i1 ＝ 局_i1 ＋ 1
局_结果 [局_i2] ＝ 局_原文 [局_i1]
局_i2 ＝ 局_i2 － 2
局_结果 [局_i2] ＝ 局_原文 [局_i1]
局_i2 ＝ 局_i2 － 1

判断循环尾 ()
返回 (到文本 (局_结果))

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

.版本 2<br /> .支持库 spec<br /> <br /> 调试输出 (文本取反 (“老赵0912”))<br /> <br /> .子程序 文本取反, 文本型<br /> .参数 参数_来源, 文本型<br /> .局部变量 局_i1, 整数型<br /> .局部变量 局_i2, 整数型<br /> .局部变量 局_原文, 字节集<br /> .局部变量 局_长度, 整数型<br /> .局部变量 局_结果, 字节集<br /> <br /> 局_原文 ＝ 到字节集 (参数_来源)<br /> 局_长度 ＝ 取字节集长度 (局_原文)<br /> 局_结果 ＝ 取空白字节集 (局_长度)<br /> 局_i2 ＝ 局_长度<br /> .判断循环首 (局_i1 ＜ 局_长度)<br />     局_i1 ＝ 局_i1 ＋ 1<br />     .判断开始 (局_原文 [局_i1] ＞ 127)<br />         局_结果 [局_i2 － 1] ＝ 局_原文 [局_i1]<br />         局_i1 ＝ 局_i1 ＋ 1<br />         局_结果 [局_i2] ＝ 局_原文 [局_i1]<br />         局_i2 ＝ 局_i2 － 2<br />     .默认<br />         局_结果 [局_i2] ＝ 局_原文 [局_i1]<br />         局_i2 ＝ 局_i2 － 1<br />     .判断结束<br /> <br /> .判断循环尾 ()<br /> 返回 (到文本 (局_结果))

ttyyy06

支持开源~！感谢分享

艾玛克138

感谢老大，太好了

wscpf1919

你这种不支持中英数字组合的文本内容

煞老尸

1111111111111111

Gato

也可以用数组。