彗星正则表达式调试工具

x ＝ 树型框.加入项目 (, 例程分类, 2, , 0)
分行数组 ＝ 分割文本 (例程数据, “

---

”, )
.计次循环首 (取数组成员数 (分行数组), i)
str1 ＝ 彗星取文本中间_按关键字 (分行数组 [i], “”, “”, , )
str2 ＝ 彗星取文本中间_按关键字 (分行数组 [i], “” ＋ #换行符, “”, , )
.如果真 (str1 ≠ “”)
加入成员 (例程说明, str2)
树型框.加入项目 (x, str1, 1, , 取数组成员数 (例程说明))
.如果真结束

.计次循环尾 ()
彗星正则表达式调试工具例子。