修改可以手动导出分类

Mc萌主 · 发表于 2024-11-13 08:11:33

网易云cha询软件.e (2.99 MB, 下载次数: 3)

cobi · 发表于 2024-11-13 08:38:20

子程序名	返回值类型	公开	备注
导出数据

变量名	类型	静态	数组	备注
导出目录	文本型
文件名	文本型
临时内容	快速文本对象
等级	文本型
i

计次循环首 (超级列表框1.取表项数 (), i)

等级＝超级列表框1.取标题 (i － 1, 5)

如果真 (到整数 (等级) ＞ 10)

到循环尾 ()

文件名＝导出目录＋等级＋ “.txt”

如果真 (文件是否存在 (文件名))

临时内容.从文件读 (文件名)

临时内容.添加 (超级列表框1.取标题 (i － 1, 1) ＋ “----” ＋超级列表框1.取标题 (i － 1, 2) ＋ #换行符 )

临时内容.写到文件 (文件名)

计次循环尾 ()

i支持库列表	支持库注释
commobj	通用对象支持库
iext	扩展界面支持库一

jtg827 · 发表于 2024-11-13 08:43:16

.版本 2
.支持库 iext

.子程序导出
.局部变量计次, 整数型
.局部变量等级, 整数型
.局部变量比较等级, 整数型
.局部变量级别组, 整数型, , "0"
.局部变量文件号组, 整数型, , "0"
.局部变量计数, 整数型
.局部变量找到, 逻辑型
.局部变量文件号, 整数型

.计次循环首 (超级列表框1.取表项数 (), 计次)
等级＝超级列表框1.取标题 (计次－ 1, 5)
.计次循环首 (取数组成员数 (级别组), 计数)
      .判断开始 (等级＝级别组 [计数])
         找到＝真
         跳出循环 ()
      .默认

      .判断结束

.计次循环尾 ()
.判断开始 (找到)
      写文本行 (文件号组 [计数], 超级列表框1.取标题 (计次－ 1, 0) ＋ “-----” ＋超级列表框1.取标题 (计次－ 1, 1))
      找到＝假
.默认
      加入成员 (级别组, 等级)
      写到文件 (取运行目录 () ＋ “\” ＋到文本 (等级) ＋ “.TXT”, {  })
      文件号＝打开文件 (取运行目录 () ＋ “\” ＋到文本 (等级) ＋ “.TXT”, , )
      加入成员 (文件号组, 文件号)
      写文本行 (文件号, 超级列表框1.取标题 (计次－ 1, 0) ＋ “-----” ＋超级列表框1.取标题 (计次－ 1, 1))
.判断结束

.计次循环尾 ()
.计次循环首 (取数组成员数 (文件号组), 计数)
关闭文件 (文件号组 [计数])
.计次循环尾 ()

Mc萌主 · 发表于 2024-11-13 12:36:26

cobi 发表于 2024-11-13 08:38
[e=1].版本 2
.支持库 commobj
.支持库 iext

大哥能给写下不。。。。弄进去不行

秋天的雪015 · 发表于 2024-11-13 12:55:43

能自动保存你非要手动！

cobi · 发表于 2024-11-13 13:18:36

Mc萌主发表于 2024-11-13 12:36
大哥能给写下不。。。。弄进去不行

网易云cha询软件.e (2.85 MB, 下载次数: 0)

j1angtaojy · 发表于 2024-11-15 10:22:07

能自动保存你非要手动！

		自动登录	找回密码
密码			注册

[易语言] 修改可以手动导出分类