| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 文本 | 文本型 | | 0 |
| 分隔符 | 文本型 | | |
| i | 整数型 | | |
| ii | 整数型 | | |
| 单元格文本 | 文本型 | | 0 |
超级列表框1.
全部删除 ()通用对话框1.类型 ＝ 0
通用对话框1.初始目录 ＝
取运行目录 ()通用对话框1.过滤器 ＝
“文本文档|*.txt” 分隔符 ＝
“----” 
如果 (通用对话框1.
打开 ())
文本 ＝
分割文本 (到文本 (读入文件 (通用对话框1.文件名
)),
#换行符, )
计次循环首 (取数组成员数 (文本
), i
)清除数组 (单元格文本
)单元格文本 ＝
分割文本 (文本
[i
], 分隔符,
)超级列表框1.
插入表项 (, , , , ,
)计次循环首 (取数组成员数 (单元格文本
), ii
)超级列表框1.
置标题 (i － 1, ii － 1, 单元格文本
[ii
])
计次循环尾 ()
计次循环尾 ()
如果真 (选择框1.选中 ＝
真 且 选择框2.选中 ＝
假 且 选择框3.选中 ＝
假)信息框 (“请选择至少2列”, 0,
)返回 ()
如果真 (选择框2.选中 ＝
真 且 选择框1.选中 ＝
假 且 选择框3.选中 ＝
假)信息框 (“请选择至少2列”, 0,
)返回 ()如果真 (选择框3.选中 ＝
真 且 选择框2.选中 ＝
假 且 选择框1.选中 ＝
假)信息框 (“请选择至少2列”, 0,
)返回 ()如果真 (选择框1.选中 ＝
真 且 选择框2.选中 ＝
真 且 选择框3.选中 ＝
假)计次循环首 (超级列表框1.
取表项数 (), i
) 数据 ＝ 数据 ＋ 超级列表框1.
取标题 (i － 1, 0
) ＋
“----” ＋ 超级列表框1.
取标题 (i － 1, 1
) ＋
#换行符 写到文件 (取运行目录 () ＋
“\数据_” ＋
到文本 (取日期 (取现行时间 ())
) ＋
“_” ＋
到文本 (取小时 (取现行时间 ())
) ＋
“_” ＋
到文本 (取分钟 (取现行时间 ())
) ＋
“.txt”,
到字节集 (数据
))
计次循环尾 ()如果真 (选择框2.选中 ＝
真 且 选择框3.选中 ＝
真 且 选择框1.选中 ＝
假)计次循环首 (超级列表框1.
取表项数 (), i
) 数据 ＝ 数据 ＋ 超级列表框1.
取标题 (i － 1, 1
) ＋
“----” ＋ 超级列表框1.
取标题 (i － 1, 2
) ＋
#换行符 写到文件 (取运行目录 () ＋
“\数据_” ＋
到文本 (取日期 (取现行时间 ())
) ＋
“_” ＋
到文本 (取小时 (取现行时间 ())
) ＋
“_” ＋
到文本 (取分钟 (取现行时间 ())
) ＋
“.txt”,
到字节集 (数据
))
计次循环尾 ()如果真 (选择框3.选中 ＝
真 且 选择框1.选中 ＝
真 且 选择框2.选中 ＝
假)计次循环首 (超级列表框1.
取表项数 (), i
) 数据 ＝ 数据 ＋ 超级列表框1.
取标题 (i － 1, 0
) ＋
“----” ＋ 超级列表框1.
取标题 (i － 1, 2
) ＋
#换行符 写到文件 (取运行目录 () ＋
“\数据_” ＋
到文本 (取日期 (取现行时间 ())
) ＋
“_” ＋
到文本 (取小时 (取现行时间 ())
) ＋
“_” ＋
到文本 (取分钟 (取现行时间 ())
) ＋
“.txt”,
到字节集 (数据
))
计次循环尾 ()如果真 (选择框1.选中 ＝
真 且 选择框2.选中 ＝
真 且 选择框3.选中 ＝
真)计次循环首 (超级列表框1.
取表项数 (), i
) 数据 ＝ 数据 ＋ 超级列表框1.
取标题 (i － 1, 0
) ＋
“----” ＋ 超级列表框1.
取标题 (i － 1, 1
) ＋
“----” ＋ 超级列表框1.
取标题 (i － 1, 2
) ＋
#换行符 写到文件 (取运行目录 () ＋
“\数据_” ＋
到文本 (取日期 (取现行时间 ())
) ＋
“_” ＋
到文本 (取小时 (取现行时间 ())
) ＋
“_” ＋
到文本 (取分钟 (取现行时间 ())
) ＋
“.txt”,
到字节集 (数据
))
计次循环尾 ()信息框 (“导出完毕”, 0, )
筛选.rar
(2.22 KB, 下载次数: 48)
