循环取出列表框内容，然后写出文件即可：
.版本 2
.子程序 _按钮1_被单击
.局部变量 计次, 整数型
.局部变量 文件内容, 文本型
文件内容 ＝ “”
.计次循环首 (列表框1.取项目数 (), 计次)
文件内容 ＝ 文件内容 ＋ 列表框1.取项目文本 (计次 － 1) ＋ #换行符
' 调试输出 (列表框1.取项目文本 (计次 － 1))
写到文件 (取运行目录 () ＋ “\1.txt”, 到字节集 (文件内容))
.计次循环尾 ()
信息框 (“导出完成”, 0, )
.版本 2
.局部变量 文件, 文本型
通用对话框1.类型 ＝ 1
通用对话框1.默认文件后缀 ＝ “txt”
通用对话框1.过滤器 ＝ “文本文件(*.txt)|*.txt”
.计次循环首 (列表框1.取项目数 (), i)
文件 ＝ 文件 ＋ 列表框1.取项目文本 (i) ＋ #换行符
.计次循环尾 ()
.如果真 (通用对话框1.打开 ())
写到文件 (通用对话框1.文件名, 到字节集 (文件))
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024