编辑框显示特效数字符号源码文本操作

根据这个方法可以自己做出各种汉字或者动漫人物。

.子程序 取单个文本, 整数型, , 返回个数
.参数 要分解的文本, 文本型
.参数 接收数组, 文本型, 数组
.局部变量 e, 整数型

.计次循环首 (取文本长度 (要分解的文本), e)
加入成员 (接收数组, 取文本中间 (要分解的文本, e, 1))
.计次循环尾 ()
返回 (取数组成员数 (接收数组))

.子程序 精灵时间
.局部变量 时, 文本型
.局部变量 分, 文本型
.局部变量 秒, 文本型

时 ＝ 到文本 (取小时 (取现行时间 ()))
分 ＝ 到文本 (取分钟 (取现行时间 ()))
秒 ＝ 到文本 (取秒 (取现行时间 ()))
.如果真 (取文本长度 (时) ＝ 1) ' 补齐长度
时 ＝ “0” ＋ 时
.如果真结束
.如果真 (取文本长度 (分) ＝ 1) ' 补齐长度
分 ＝ “0” ＋ 分
.如果真结束
.如果真 (取文本长度 (秒) ＝ 1) ' 补齐长度
秒 ＝ “0” ＋ 秒
.如果真结束
.如果真 (精灵完成 (时 ＋ “:” ＋ 分 ＋ “:” ＋ 秒, 编辑框1))
延迟 (600)
编辑框1.内容 ＝ “”
.如果真结束
精灵时间 ()