.版本 2
.支持库 e2ee
.支持库 shell
.子程序 _按钮1_被单击, , , 导出全部
.局部变量 keyData, 存取键值表, , , VCS数据
.局部变量 listData, 存取列表, , , VCS数据
.局部变量 intI, 整数型, , , 计次
.计次循环首 (m_ListBoxShow.取表项数 (), intI)
keyData.置文本 (“序号”, m_ListBoxShow.取标题 (intI, 1))
keyData.置文本 (“商品编码”, m_ListBoxShow.取标题 (intI, 2))
keyData.置文本 (“商品标题”, m_ListBoxShow.取标题 (intI, 3))
keyData.置文本 (“长度”, m_ListBoxShow.取标题 (intI, 4))
keyData.置文本 (“价格”, m_ListBoxShow.取标题 (intI, 5))
keyData.置文本 (“京东类目”, m_ListBoxShow.取标题 (intI, 6))
keyData.置文本 (“店内类目”, m_ListBoxShow.取标题 (intI, 7))
keyData.置文本 (“状态”, m_ListBoxShow.取标题 (intI, 8))
keyData.置文本 (“上架时间”, m_ListBoxShow.取标题 (intI, 9))
keyData.置文本 (“修改时间”, m_ListBoxShow.取标题 (intI, 10))
keyData.置文本 (“累访客”, m_ListBoxShow.取标题 (intI, 11))
keyData.置文本 (“累浏览”, m_ListBoxShow.取标题 (intI, 12))
keyData.置文本 (“累销量”, m_ListBoxShow.取标题 (intI, 13))
keyData.置文本 (“累加购”, m_ListBoxShow.取标题 (intI, 14))
listData.添加键值表 (keyData)
处理事件 ()
.计次循环尾 ()
CollectionJDshopListData (listData)
.子程序 CollectionJDshopListData, , , 写出数据
.参数 listData, 存取列表, , VCS数据
通用对话框_导入导出.初始目录 = 取特定目录 (#系统桌面)
通用对话框_导入导出.过滤器 = “CSV(*.CSV)|*.CSV”
.如果真 (取反 (通用对话框_导入导出.打开 ()))
信息框 (“文件名不允许为空”, 0, “温馨提示”, )
返回 ()
.如果真结束
' 调试输出 (通用对话框.文件名)
.如果 (写到文件 (通用对话框_导入导出.文件名, 到字节集 (listData.到CSV (真, 创建列表 (“序号”, “商品编码”, “商品标题”, “长度”, “价格”, “京东类目”, “店内类目”, “状态”, “上架时间”, “修改时间”, “累访客”, “累浏览”, “累销量”, “累加购”)))))
信息框 (“导出成功”, 0, “温馨提示”, )
.否则
信息框 (“导出失败”, 0, “温馨提示”, )
.如果结束
销毁 ()
m_ListBoxShow 是全局变量 虚拟列表框
我这个写出成功以后 文件没有默认为EX 格式 而且导出的格式 内容个表头不照
|