.版本 2
.支持库 RegEx
.支持库 spec
.局部变量 a, 文本型
.局部变量 正则, 正则表达式
.局部变量 搜索结果, 搜索结果, , “0”
.局部变量 临时, 文本型
.局部变量 z, 整数型
.局部变量 y, 整数型
.局部变量 i, 整数型
a ＝ 到文本 (彗星HTTP读文件 (域名 ＋ “/logging.php?action=login”))
调试输出 (a)
z ＝ 寻找文本 (a, “<option value=” ＋ #引号 ＋ “0” ＋ #引号 ＋ “>”, , 假)
‘ 调试输出 (z)
y ＝ 寻找文本 (a, “</select>”, z, 假)
‘ 调试输出 (y)
临时 ＝ 取文本中间 (a, z, y － z)
‘ 调试输出 (临时)
正则.创建 (“<option value=” ＋ #引号 ＋ “[\d]” ＋ #引号 ＋ “>(.*?)</option>”, )
搜索结果 ＝ 正则.搜索全部 (临时)
.计次循环首 (取数组成员数 (搜索结果), i)
问题 ＝ 问题 ＋ 搜索结果 [i].取子匹配文本 (临时, 1, ) ＋ #换行符
.计次循环尾 ()
调试输出 (问题)
