分享一个成语接龙

雨田9527

  

子程序名	返回值类型	公开	备 注
成语接龙	逻辑型
参数名	类 型	参考	可空	数组	备 注
成语	文本型

变量名	类 型	静态	数组	备 注
局_网址	文本型
局_方式	整数型
局_结果	字节集
局_返回	文本型

判断 (取文本长度 (成语) ≥ 8)‘            这个网站的问题？    比如 一心一意   输入一心一  / 一心  都能cha询到  所以加了个长度判断
局_网址 ＝ “https://chengyu.bmcx.com/” ＋ 成语 ＋ “__chengyu/”
局_方式 ＝ 0
网页_访问S (局_网址, 局_方式, , , , , , , , , , , , , , , 局_结果, , , , )
局_返回 ＝ 编码_utf8到gb2312 (到文本 (局_结果))
如果 (寻找文本 (局_返回, “对不起，没有找到您要查找的信息”, 4000, 假) ＞ 0)
返回 (假)



返回 (真)




返回 (假)

.版本 2<br /> <br /> <br /> <br /> .子程序 成语接龙, 逻辑型<br /> <br /> .参数 成语, 文本型<br /> <br /> .局部变量 局_网址, 文本型<br /> <br /> .局部变量 局_方式, 整数型<br /> <br /> .局部变量 局_结果, 字节集<br /> <br /> .局部变量 局_返回, 文本型<br /> <br /> <br /> <br /> .判断开始 (取文本长度 (成语) ≥ 8)‘            这个网站的问题？    比如 一心一意   输入一心一  / 一心  都能cha询到  所以加了个长度判断<br /> <br />     局_网址 ＝ “https://chengyu.bmcx.com/” ＋ 成语 ＋ “__chengyu/”<br /> <br />     局_方式 ＝ 0<br /> <br />     网页_访问S (局_网址, 局_方式, , , , , , , , , , , , , , , 局_结果, , , , )<br /> <br />     局_返回 ＝ 编码_utf8到gb2312 (到文本 (局_结果))<br /> <br />     .如果 (寻找文本 (局_返回, “对不起，没有找到您要查找的信息”, 4000, 假) ＞ 0)<br /> <br />         返回 (假)<br /> <br />     .否则<br /> <br />         返回 (真)<br /> <br />     .如果结束<br /> <br /> <br /> <br /> .默认<br /> <br />     返回 (假)<br /> <br /> .判断结束

想做成语接龙的拿走！


大家有什么有趣的cha询功能也可以分享在此帖

雨田9527

粘贴的问题？ 逻辑判断位置不对   问题不大 只是个思路