那个大神帮我看看为什么输入错误的内容软件会奔

E小菜鸟

那个大神帮我看看为什么输入错误的IP软件会奔，要怎么弄呀？新手一枚。研究一天了。。感谢。。。

  

子程序名	返回值类型	公开	备 注
批量查询

变量名	类 型	静态	数组	备 注
表项数	整数型
当前行第一列内容	文本型
循环变量	整数型			记录循环次数

延迟 (500)
表项数 ＝ 超级列表框1.取表项数 ()
如果 (内容 ＝ “”)
提示框 (“请导入IP地址。”, 16, , , )



计次循环首 (表项数, 循环变量)
当前行第一列内容 ＝ 超级列表框1.取标题 (循环变量 － 1, 0)
返回信息 ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (“https://qifu-api.baidubce.com/ip/geo/v1/district?ip=” ＋ 当前行第一列内容, 0, , , , , , , , , , , , , , , , , )))
cod ＝ 到文本 (文本_取出中间文本 (返回信息, #英文前, #英文后, , ))
延迟 (到整数 (编辑框_延迟时间.内容))
调试输出 (返回信息)
状态 ＝ 文本区分_只取汉字 (文本_取出中间文本 (返回信息, “continent”, “country”, , ), , )
如果 (cod ＝ “Success”)
超级列表框1.置标题 (循环变量 － 1, 7, “查询成功”)  ' 将 超级列表框1.置标题(0,...) 中的 0 替换为 循环变量 - 1，以确保每次循环能将信息设置在不同的行。
国家 ＝ 文本区分_只取汉字 (文本_取出中间文本 (返回信息, “country”, “zipcode”, , ), , )
超级列表框1.置标题 (循环变量 － 1, 1, 国家)
省份 ＝ 文本区分_只取汉字 (文本_取出中间文本 (返回信息, “prov”, “city”, , ), , )
超级列表框1.置标题 (循环变量 － 1, 3, 省份)
城市 ＝ 文本区分_只取汉字 (文本_取出中间文本 (返回信息, “city”, “district”, , ), , )
超级列表框1.置标题 (循环变量 － 1, 4, 城市)
地区 ＝ 文本区分_只取汉字 (文本_取出中间文本 (返回信息, “district”, “ip”, , ), , )
超级列表框1.置标题 (循环变量 － 1, 5, 地区)
运营商 ＝ 文本区分_只取汉字 (文本_取出中间文本 (返回信息, “isp”, “adcode”, , ), , )
超级列表框1.置标题 (循环变量 － 1, 2, 运营商)
邮政 ＝ 文本_取出中间文本 (返回信息, #邮政前, #邮政后, , )
超级列表框1.置标题 (循环变量 － 1, 6, 邮政)

超级列表框1.置标题 (循环变量 － 1, 7, “请输入正确IP”)

如果真 (状态 ＝ “保留”)
超级列表框1.置标题 (循环变量 － 1, 7, “此IP属于本地局域网”)

计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .子程序 批量查询<br /> .局部变量 表项数, 整数型<br /> .局部变量 当前行第一列内容, 文本型<br /> .局部变量 循环变量, 整数型, , , 记录循环次数<br /> <br /> 延迟 (500)<br /> 表项数 ＝ 超级列表框1.取表项数 ()<br /> <br /> .如果 (内容 ＝ “”)<br />     提示框 (“请导入IP地址。”, 16, , , )<br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> .计次循环首 (表项数, 循环变量)<br />     当前行第一列内容 ＝ 超级列表框1.取标题 (循环变量 － 1, 0)<br /> <br />     返回信息 ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (“https://qifu-api.baidubce.com/ip/geo/v1/district?ip=” ＋ 当前行第一列内容, 0, , , , , , , , , , , , , , , , , )))<br /> <br />     cod ＝ 到文本 (文本_取出中间文本 (返回信息, #英文前, #英文后, , ))<br /> <br />     延迟 (到整数 (编辑框_延迟时间.内容))<br /> <br />     调试输出 (返回信息)<br /> <br />     状态 ＝ 文本区分_只取汉字 (文本_取出中间文本 (返回信息, “continent”, “country”, , ), , )<br /> <br /> <br /> <br />     .如果 (cod ＝ “Success”)<br />         超级列表框1.置标题 (循环变量 － 1, 7, “查询成功”)  ' 将 超级列表框1.置标题(0,...) 中的 0 替换为 循环变量 - 1，以确保每次循环能将信息设置在不同的行。<br /> <br />         国家 ＝ 文本区分_只取汉字 (文本_取出中间文本 (返回信息, “country”, “zipcode”, , ), , )<br />         超级列表框1.置标题 (循环变量 － 1, 1, 国家)<br /> <br />         省份 ＝ 文本区分_只取汉字 (文本_取出中间文本 (返回信息, “prov”, “city”, , ), , )<br />         超级列表框1.置标题 (循环变量 － 1, 3, 省份)<br /> <br />         城市 ＝ 文本区分_只取汉字 (文本_取出中间文本 (返回信息, “city”, “district”, , ), , )<br />         超级列表框1.置标题 (循环变量 － 1, 4, 城市)<br /> <br />         地区 ＝ 文本区分_只取汉字 (文本_取出中间文本 (返回信息, “district”, “ip”, , ), , )<br />         超级列表框1.置标题 (循环变量 － 1, 5, 地区)<br /> <br />         运营商 ＝ 文本区分_只取汉字 (文本_取出中间文本 (返回信息, “isp”, “adcode”, , ), , )<br />         超级列表框1.置标题 (循环变量 － 1, 2, 运营商)<br /> <br />         邮政 ＝ 文本_取出中间文本 (返回信息, #邮政前, #邮政后, , )<br />         超级列表框1.置标题 (循环变量 － 1, 6, 邮政)<br /> <br /> <br />     .否则<br />         超级列表框1.置标题 (循环变量 － 1, 7, “请输入正确IP”)<br />     .如果结束<br /> <br /> <br />     .如果真 (状态 ＝ “保留”)<br />         超级列表框1.置标题 (循环变量 － 1, 7, “此IP属于本地局域网”)<br />     .如果真结束<br /> <br /> <br /> .计次循环尾 ()

E小菜鸟

.版本 2
.支持库 iext

    .如果 (cod ＝ “Success”)
        超级列表框1.置标题 (循环变量 － 1, 7, “cha询成功”)  ' 将 超级列表框1.置标题(0,...) 中的 0 替换为 循环变量 - 1，以确保每次循环能将信息设置在不同的行。

        国家 ＝ 文本区分_只取汉字 (文本_取出中间文本 (返回信息, “country”, “zipcode”, , ), , )
        超级列表框1.置标题 (循环变量 － 1, 1, 国家)

        省份 ＝ 文本区分_只取汉字 (文本_取出中间文本 (返回信息, “prov”, “city”, , ), , )
        超级列表框1.置标题 (循环变量 － 1, 3, 省份)

        城市 ＝ 文本区分_只取汉字 (文本_取出中间文本 (返回信息, “city”, “district”, , ), , )
        超级列表框1.置标题 (循环变量 － 1, 4, 城市)

        地区 ＝ 文本区分_只取汉字 (文本_取出中间文本 (返回信息, “district”, “ip”, , ), , )
        超级列表框1.置标题 (循环变量 － 1, 5, 地区)

        运营商 ＝ 文本区分_只取汉字 (文本_取出中间文本 (返回信息, “isp”, “adcode”, , ), , )
        超级列表框1.置标题 (循环变量 － 1, 2, 运营商)

        邮政 ＝ 文本_取出中间文本 (返回信息, #邮政前, #邮政后, , )
        超级列表框1.置标题 (循环变量 － 1, 6, 邮政)


    .否则
        超级列表框1.置标题 (循环变量 － 1, 7, “请输入正确IP”)


正常输入错误不是应该显示 输入正确的吗？ 单个cha询可以显示

E小菜鸟

cha询ip.e (979.53 KB, 下载次数: 2)

2025-1-18 18:32 上传

点击文件名下载附件
源码

chenboss

测试没发现崩溃，换个版本的精易模块

编程阿狸

测试没发现崩溃，换个版本的精易模块