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