易语言开发的拆字工具

易语言开发的拆字工具例子。
c ＝ 编辑框1.内容
进度条1.最大位置 ＝ 1683
进度条1.位置 ＝ 0
.计次循环首 (1683, i)
A ＝ 数组1 [i]
B ＝ 数组2 [i]
.如果真 (寻找文本 (c, A, , 假) ≠ -1)
c ＝ 子文本替换 (c, A, B, , , 真)
.如果真结束
进度条1.位置 ＝ i
.计次循环尾 ()