文本模仿打字特效软件

.子程序 文本打字特效, , , 提百万
.参数 源文本, 文本型
.参数 打字速度, 整数型, , 毫秒
.参数 拼音首字母大写, 逻辑型, 可空, 真为大写，假为小写；默认小写
.参数 显示标签, 标签, , 显示到标签上
.局部变量 处理数组, 文本型, , "0"
.局部变量 a, 整数型
.局部变量 b, 文本型
.局部变量 c, 整数型
.局部变量 位置_, 整数型

分割文本为数组 (源文本, 处理数组)
.计次循环首 (取数组成员数 (处理数组), a)
b ＝ 取拼音 (处理数组 [a], 1)
.如果 (b ＝ “”)
显示标签.标题 ＝ 显示标签.标题 ＋ 处理数组 [a]
延时处理 (打字速度)
.否则
位置_ ＝ 取文本长度 (显示标签.标题)
.计次循环首 (取文本长度 (b), c)
.判断开始 (拼音首字母大写 ＝ 真)
.判断开始 (c ＝ 1)
显示标签.标题 ＝ 显示标签.标题 ＋ 到大写 (取文本中间 (b, c, 1))
.默认
显示标签.标题 ＝ 显示标签.标题 ＋ 取文本中间 (b, c, 1)
.判断结束

.默认
显示标签.标题 ＝ 显示标签.标题 ＋ 取文本中间 (b, c, 1)
.判断结束
延时处理 (打字速度)
.计次循环尾 ()
显示标签.标题 ＝ 子文本替换 (显示标签.标题, b, 处理数组 [a], 位置_ － 1, 1, 假)
.如果结束

.计次循环尾 ()