中文汇编易语言的应用

.计次循环首 (库数, i)
库文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\” ＋ 到文本 (i) ＋ “.txt”))
文本组 ＝ 分割文本 (库文本, “-----以上为库申明-----”, 2)
文本组2 ＝ 分割文本 (文本组 [1], #换行符, )
树型框1.加入项目 (, 文本组2 [1], , , i, , )
文本 ＝ “”
.计次循环首 (取数组成员数 (文本组2) － 1, z)
文本 ＝ 文本 ＋ 文本组2 [z ＋ 1] ＋ #换行符
.计次循环尾 ()
文本组2 ＝ 分割文本 (文本组 [2], #换行符 ＋ “-----申明分割-----”, )
成员数2 ＝ 取数组成员数 (文本组2)
成员数 ＝ 成员数 ＋ 成员数2
重定义数组 (指令表, 真, 成员数)
重定义数组 (对应指令表, 真, 成员数)
成员数 ＝ 成员数 － 成员数2
.计次循环首 (成员数2, z)
文本组2 [z] ＝ 取文本右边 (文本组2 [z], 取文本长度 (文本组2 [z]) － 1)
x ＝ 寻找文本 (文本组2 [z], #换行符, , 假)
文本 ＝ 取文本左边 (文本组2 [z], x)
文本 ＝ 到文本 (取字节集中间 (到字节集 (文本), 2, 取字节集长度 (到字节集 (文本)) － 2))
指令表 [成员数 ＋ z] ＝ 文本
树型框1.加入项目 (i ＋ 树形框项目数, 文本, , , z, , )
y ＝ 寻找文本 (文本组2 [z], #换行符, x ＋ 1, 假)
文本 ＝ 取文本中间 (文本组2 [z], x ＋ 1, y － x)
文本 ＝ 到文本 (取字节集中间 (到字节集 (文本), 2, 取字节集长度 (到字节集 (文本)) － 2))
对应指令表 [成员数 ＋ z] ＝ 文本
.计次循环尾 ()
成员数 ＝ 成员数 ＋ 成员数2
树形框项目数 ＝ 树形框项目数 ＋ z － 1
.计次循环尾 ()

.如果真 (键代码 ＝ #回车键)
变量数 ＝ 变量数 ＋ 1
重定义数组 (变量名, 真, 变量数)
重定义数组 (类型, 真, 变量数)
重定义数组 (初数据, 真, 变量数)
重定义数组 (备注, 真, 变量数)
重定义数组 (数组, 真, 变量数)
复制窗口组件 (变量名编辑框, 变量名 [变量数])
复制窗口组件 (类型编辑框, 类型 [变量数])
复制窗口组件 (初数据编辑框, 初数据 [变量数])
复制窗口组件 (备注编辑框, 备注 [变量数])
复制窗口组件 (数组框, 数组 [变量数])
连续赋值 (变量名 [变量数].顶边 ＋ 19 × 变量数, 变量名 [变量数].顶边, 类型 [变量数].顶边, 初数据 [变量数].顶边, 备注 [变量数].顶边, 数组 [变量数].顶边)
连续赋值 (真, 变量名 [变量数].可视, 类型 [变量数].可视, 初数据 [变量数].可视, 数组 [变量数].可视, 备注 [变量数].可视)
变量名 [变量数].获取焦点 ()