易语言教学代码片段-超级列表框导出内容到TXT

.版本 2
.支持库 iext
.支持库 exui
.支持库 shell
.子程序 _按钮_导出_被单击
.局部变量 i, 整数型
.局部变量 文本, 文本型
.局部变量 数值, 整数型
.如果真 (超级列表框_外部引流RUL.取表项数 () ≤ 0)  ' 超级列表没内容,不执行
    信息框 (“导出内容不能为空”, 0, , )
    返回 ()
.如果真结束
.计次循环首 (超级列表框_外部引流RUL.取表项数 (), i)
    文本 = 文本 + 超级列表框_外部引流RUL.取标题 (i - 1, 1) + #换行符
.计次循环尾 ()
写到文件 (取运行目录 () + “\URL.txt”, 到字节集 (文本))
数值 = 信息框EX (, “提示 :”, , “要立刻查看导出吗?”, , { “确认”, “取消” }, , , , , , , )
.如果 (数值 = 1)
    执行 (2, 取运行目录 (), , , )
    返回 ()
.否则
    返回 ()

修改下几个地方就可以

赞 (0)