开源成语接龙小程序源代码

数据 ＝ “zi1=” ＋ 欲查询的字 ＋ “&zi2=&zi3=&zi4=&sotype=1”
返回 ＝ 到文本 (网页_访问_对象 (网址, 1, 数据))
返回 ＝ 编码_utf8到gb2312 (返回) ' 解码
' 调试输出 (返回)
正则.创建 (#正则开头 ＋ “.*?” ＋ #正则结尾, 返回, 真, 真, 真, )
.如果真 (正则.取匹配数量 () ＝ 1)
返回 ＝ 正则.取匹配文本 (1)
' 调试输出 (返回)
正则.创建 (输入 ＋ “.*?”, 返回, 真, 真, 真, )
' 调试输出 (正则.取匹配数量 ())
.如果真 (正则.取匹配数量 () ≥ 1)
置随机数种子 ()
i ＝ 取随机数 (1, 正则.取匹配数量 ())
返回 ＝ 正则.取匹配文本 (i)
返回 ＝ 子文本替换 (返回, “”, , , , 真)
返回 ＝ 子文本替换 (返回, “”, , , , 真)
' 调试输出 (“11111111” ＋ 返回)
返回 (返回)
.如果真结束
返回 (“错误2”)
.如果真结束
返回 (“错误1”)