易语言读取服务器列表文件

.版本 2

.支持库 iext

.如果 (客户1.连接 (超级列表框1.取标题 (超级列表框1.现行选中项, 1), 到整数 (超级列表框1.取标题 (超级列表框1.现行选中项, 2))))

信息框 (“你连接的是” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 2), 0, )

.否则

信息框 (“你连接的是” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 2), 0, )

.如果结束

文件号 = 写到文件 (取运行目录 () ＋ “自己取名字”, HTTP读文件 (“自己的FTP列表”))

循环判断首 ()

列表框1.加入项目 (读入一行 (文件号), )

循环判断尾 (是否在文件尾 (文件号, ) ＝ 假)

你的用法有误，帮你改造下代码你就明白了：

.版本 2

.支持库 iext

.子程序 _窗口2_创建完毕

.局部变量 索引, 整数型

.局部变量 i, 整数型

打开 (取运行目录 () ＋ “\1.edb”, , , , , , )

到首记录 ()

.计次循环首 (取记录数 (), i)

索引 ＝ 超级列表框1.插入表项 (, , , , , )

超级列表框1.置标题 (索引, 0, 读字段 (1, ))

超级列表框1.置标题 (索引, 1, 读字段 (2, ))

跳过 ()

.计次循环尾 ()

---