正则树形框配合数据库mdb配置项文件读写删操作附易团雪模块

用到命令：如果真，计次循环首，取配置节名，读配置项，写配置项，取运行目录等
求优化/希望能给出更简单方便的写法。

.如果真 (编辑框_正则表达式.内容 ＝ “”)
返回 ()
.如果真结束
成功与否 ＝ 正则表达式类.创建 (编辑框_正则表达式.内容, 选择框_区分大小写.选中, 选择框_匹配多行.选中, 选择框_搜索全部.选中)
.如果真 (成功与否 ＝ 假)
信息框 (“表达式不正确！”, #警告图标, “错误提示”)
返回 ()
.如果真结束
正则搜索结果 ＝ 正则表达式类.搜索全部 (编辑框_欲测试文本.内容)
' 超级列表框初始化
j ＝ 正则表达式类.取子表达式个数 () ＋ 2 － 超级列表框_匹配结果.取列数 () ' 这里的 2 是为了固定的保留两列
.如果 (j ＜ 0)
.计次循环首 (－j, )
超级列表框_匹配结果.删除列 (超级列表框_匹配结果.取列数 () － 1)
.计次循环尾 ()
.否则
.计次循环首 (j, i)
超级列表框_匹配结果.插入列 (, “子匹配文本” ＋ 到文本 (超级列表框_匹配结果.取列数 () － 1), 100, , , )
.计次循环尾 ()
.如果结束
超级列表框_匹配结果.全部删除 ()
.计次循环首 (正则搜索结果, i)
索引 ＝ 超级列表框_匹配结果.插入表项 (, 到文本 (i), , , , )
超级列表框_匹配结果.置标题 (索引, 1, 正则表达式类.取匹配文本 (i))
.计次循环首 (正则表达式类.取子表达式个数 (), j)
超级列表框_匹配结果.置标题 (索引, j ＋ 1, 正则表达式类.取子匹配文本 (i, j))
.计次循环尾 ()
.计次循环尾 ()
选择夹_正则.现行子夹 ＝ 2