|
发表于 2020-6-13 10:44:58
|
显示全部楼层
浙江省温州市
.版本 2
.支持库 iext
.程序集 窗口程序集_启动窗口
.程序集变量 线程句柄, 整数型
.子程序 导入shuj1
.局部变量 文本数组1, 文本型, , "0"
.局部变量 文本数组11, 文本型, , "0"
.局部变量 i1, 整数型
.局部变量 j1, 整数型
通用对话框1.初始目录 = 取运行目录 ()
通用对话框1.类型 = 0
通用对话框1.过滤器 = “文本文件|*.txt”
.如果真 (通用对话框1.打开 ())
.如果真结束
文本数组1 = 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
.计次循环首 (取数组成员数 (文本数组1), i1)
文本数组11 = 分割文本 (文本数组1 [i1], “----”, )
j1 = j1 + 1
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (j1 - 1, 0, 到文本 (j1))
超级列表框1.置标题 (j1 - 1, 0, 文本数组11 [1])
.计次循环尾 ()
.版本 2
.子程序 _导入账号第1列_按钮_被单击
导入shuj1 ()
.版本 2
.支持库 iext
.支持库 HtmlView
.支持库 spec
.子程序 _打开账号1列_按钮_被单击
.局部变量 i1, 整数型
.计次循环首 (超级列表框1.取表项数 (), i1)
超文本浏览框_账号1列.地址 = “https://” + “amos.alicdn.com/getcid.aw?v=3&site=cntaobao&groupid=0&s=1&fromid=&uid=” + 编码_URL编码 (超级列表框1.取标题 (i1 - 1, 0), 真, 真) + “&status=1&charset=utf-8”
.循环判断首 ()
延迟 (到整数 (编辑框_延迟.内容))
.循环判断尾 (假)
.计次循环尾 ()
|
|