10元话费帮忙写一个号码输入

jsk3

智能分别输入的号码是1还是10还是11.
例如1,我输入15811,结果是01 05 08 11
例如2,我输入11011,结果是01 10 11

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
单号位数	整数型

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

_启动窗口.获取焦点 ()
编辑框1.获取焦点 ()

子程序名	返回值类型	公开	备 注
重新处理单号1	文本型
参数名	类 型	参考	可空	数组	备 注
单号	文本型

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

文本_逐字分割 (单号, 文本)
数组_输出 (文本)
结果 ＝ “”
计次循环首 (取数组成员数 (文本), 计次)
如果真 (文本 [计次] ＝ “1” 或 文本 [计次] ＝ “2” 或 文本 [计次] ＝ “3” 或 文本 [计次] ＝ “4” 或 文本 [计次] ＝ “5”)
结果 ＝ 结果 ＋ “0” ＋ 文本 [计次] ＋ “+”
如果真 (文本 [计次] ＝ “6” 或 文本 [计次] ＝ “7” 或 文本 [计次] ＝ “8” 或 文本 [计次] ＝ “9”)
结果 ＝ 结果 ＋ “0” ＋ 文本 [计次] ＋ “+”
' 这里加上号码10和11,号码前不用加0,其中1,10,11 这三个号码不能冲突,例如:编辑框输入1,则为01,输入1210则为01 02 10, 输入13811则为01 03 08 11.
计次循环尾 ()
结果 ＝ 取文本左边 (结果, 取文本长度 (结果) － 1)
返回 (结果)

子程序名	返回值类型	公开	备 注
重新处理单号2	文本型
参数名	类 型	参考	可空	数组	备 注
单号	文本型

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

文本_逐字分割 (单号, 文本)
数组_输出 (文本)
结果 ＝ “”
单号位数 ＝ 0
计次循环首 (取数组成员数 (文本), 计次)
如果真 (文本 [计次] ＝ “1” 或 文本 [计次] ＝ “2” 或 文本 [计次] ＝ “3” 或 文本 [计次] ＝ “4” 或 文本 [计次] ＝ “5”)
结果 ＝ 结果 ＋ “0” ＋ 文本 [计次] ＋ “ ”
单号位数 ＝ 单号位数 ＋ 1
如果真 (文本 [计次] ＝ “6” 或 文本 [计次] ＝ “7” 或 文本 [计次] ＝ “8” 或 文本 [计次] ＝ “9”)
结果 ＝ 结果 ＋ “0” ＋ 文本 [计次] ＋ “ ”
单号位数 ＝ 单号位数 ＋ 1
' 这里加上号码10和11,号码前不用加0,其中1,10,11 这三个号码不能冲突,例如:编辑框输入1,则为01,输入1210则为01 02 10, 输入13811则为01 03 08 11.

计次循环尾 ()
结果 ＝ 取文本左边 (结果, 取文本长度 (结果) － 1)
调试输出 (单号位数)
返回 (结果)

子程序名	返回值类型	公开	备 注
_编辑框1_失去焦点

变量名	类 型	静态	数组	备 注
文本	文本型		0
计次8	整数型
处理内容	文本型

清除数组 (文本)
文本_逐字分割 (编辑框1.内容, 文本)
数组_排序 (文本, 0, )
处理内容 ＝ “”
计次循环首 (取数组成员数 (文本), 计次8)
处理内容 ＝ 处理内容 ＋ 文本 [计次8]
计次循环尾 ()
编辑框1.内容 ＝ 重新处理单号1 (处理内容)
调试输出 (“输入的号码是: ” ＋ 处理内容)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 单号位数, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> _启动窗口.获取焦点 ()<br /> 编辑框1.获取焦点 ()<br /> <br /> <br /> .子程序 重新处理单号1, 文本型<br /> .参数 单号, 文本型<br /> .局部变量 计次, 整数型<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 结果, 文本型<br /> <br /> 文本_逐字分割 (单号, 文本)<br /> 数组_输出 (文本)<br /> 结果 ＝ “”<br /> .计次循环首 (取数组成员数 (文本), 计次)<br />     .如果真 (文本 [计次] ＝ “1” 或 文本 [计次] ＝ “2” 或 文本 [计次] ＝ “3” 或 文本 [计次] ＝ “4” 或 文本 [计次] ＝ “5”)<br />         结果 ＝ 结果 ＋ “0” ＋ 文本 [计次] ＋ “+”<br /> <br />     .如果真结束<br />     .如果真 (文本 [计次] ＝ “6” 或 文本 [计次] ＝ “7” 或 文本 [计次] ＝ “8” 或 文本 [计次] ＝ “9”)<br />         结果 ＝ 结果 ＋ “0” ＋ 文本 [计次] ＋ “+”<br />     .如果真结束<br />     ' 这里加上号码10和11,号码前不用加0,其中1,10,11 这三个号码不能冲突,例如:编辑框输入1,则为01,输入1210则为01 02 10, 输入13811则为01 03 08 11.<br /> <br /> .计次循环尾 ()<br /> 结果 ＝ 取文本左边 (结果, 取文本长度 (结果) － 1)<br /> 返回 (结果)<br /> <br /> .子程序 重新处理单号2, 文本型<br /> .参数 单号, 文本型<br /> .局部变量 计次, 整数型<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 结果, 文本型<br /> <br /> 文本_逐字分割 (单号, 文本)<br /> 数组_输出 (文本)<br /> 结果 ＝ “”<br /> 单号位数 ＝ 0<br /> .计次循环首 (取数组成员数 (文本), 计次)<br />     .如果真 (文本 [计次] ＝ “1” 或 文本 [计次] ＝ “2” 或 文本 [计次] ＝ “3” 或 文本 [计次] ＝ “4” 或 文本 [计次] ＝ “5”)<br />         结果 ＝ 结果 ＋ “0” ＋ 文本 [计次] ＋ “ ”<br />         单号位数 ＝ 单号位数 ＋ 1<br />     .如果真结束<br />     .如果真 (文本 [计次] ＝ “6” 或 文本 [计次] ＝ “7” 或 文本 [计次] ＝ “8” 或 文本 [计次] ＝ “9”)<br />         结果 ＝ 结果 ＋ “0” ＋ 文本 [计次] ＋ “ ”<br />         单号位数 ＝ 单号位数 ＋ 1<br />         ' 这里加上号码10和11,号码前不用加0,其中1,10,11 这三个号码不能冲突,例如:编辑框输入1,则为01,输入1210则为01 02 10, 输入13811则为01 03 08 11.<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 结果 ＝ 取文本左边 (结果, 取文本长度 (结果) － 1)<br /> 调试输出 (单号位数)<br /> 返回 (结果)<br /> <br /> .子程序 _编辑框1_失去焦点<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 计次8, 整数型<br /> .局部变量 处理内容, 文本型<br /> <br /> 清除数组 (文本)<br /> 文本_逐字分割 (编辑框1.内容, 文本)<br /> 数组_排序 (文本, 0, )<br /> 处理内容 ＝ “”<br /> .计次循环首 (取数组成员数 (文本), 计次8)<br />     处理内容 ＝ 处理内容 ＋ 文本 [计次8]<br /> .计次循环尾 ()<br /> 编辑框1.内容 ＝ 重新处理单号1 (处理内容)<br /> 调试输出 (“输入的号码是: ” ＋ 处理内容)

补充内容 (2015-8-31 19:53):
定制完成，谢谢！

〆中国人ゞ

那个@点和  .去掉