.版本 2 .支持库 RegEx .支持库 iext .子程序 __启动窗口_创建完毕 编辑框1.内容 ＝ #常量1 .子程序 _按钮1_被单击 .局部变量 文本, 文本型 .局部变量 表达式1, 正则表达式 .局部变量 表达式2, 正则表达式 .局部变量 结果1, 搜索结果, , "0" .局部变量 i, 整数型 .局部变量 结果2, 搜索结果, , "0" .局部变量 a, 整数型 .局部变量 序号, 整数型 文本 ＝ #常量1 表达式1.创建 (“<link>(.*?)</link>”, ) 表达式2.创建 (“<name>(.*?)</name>”, ) 结果1 ＝ 表达式1.搜索全部 (文本) 结果2 ＝ 表达式2.搜索全部 (文本) 超级列表框1.全部删除 () 序号 ＝ 0 .如果真 (取数组成员数 (结果1) ＝ 取数组成员数 (结果2)) .计次循环首 (取数组成员数 (结果1), i) .如果真 (寻找文本 (结果2 [i].取子匹配文本 (文本, 1, ), 编辑框2.内容, , 假) ≠ -1) 序号 ＝ 序号 ＋ 1 a ＝ 超级列表框1.插入表项 (, 到文本 (序号), , , , ) 超级列表框1.置标题 (a, 1, 结果2 [i].取子匹配文本 (文本, 1, )) 超级列表框1.置标题 (a, 2, 结果1 [i].取子匹配文本 (文本, 1, )) .如果真结束 .计次循环尾 ()