.计次循环首 (超级列表框1.取表项数 (), s)
文本 = “http:” + 超级列表框1.取标题 (s - 1, 1)
文本1 = 文本1 + 文本 + #换行符
.计次循环尾 ()
写到文件 (取运行目录 () + “\” + 编辑框3.内容 + “.txt”, 到字节集 (文本1))
.计次循环首 (超级列表框1.取表项数 (), s)
文本 = “http:” + 超级列表框1.取标题 (s - 1, 1)
文本1 = 文本1 + 文本 + #换行符
.计次循环尾 ()
写到文件 (取运行目录 () + “\” + 编辑框3.内容 + “.txt”, 到字节集 (文本1))