超级列表框1导出问题

epwne

点击按键，如何分别保存三个不同的TXT，并且多次保存在TXT里，不会重复保存

企业号 为一个TXT
新人号 为一个TXT
V1号  V2号   为一个TXT





问题.zip (485.11 KB, 下载次数: 3)

2017-4-9 14:47 上传

点击文件名下载附件

EExiaolin

记得给最佳哟

epwne

EExiaolin 发表于 2017-4-9 14:56
记得给最佳哟

如我原已经保存了TXT里有内容的，，，现在如果重新打开软件，注册了，再保存，会把原来TXT里的内容覆盖的？

epwne

EExiaolin 发表于 2017-4-9 14:56
记得给最佳哟

如果这样，要怎么加上去？

EExiaolin

epwne 发表于 2017-4-9 15:21
如果这样，要怎么加上去？

在前面先读入文件
比如V号
V号=到文本(读入文件(原文件路径))

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

秀才遇到兵

.版本 2
.支持库 iext

.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 文本一, 文本型
.局部变量 文本二, 文本型
.局部变量 文本三, 文本型

.计次循环首 (超级列表框1.取表项数 (), i)
    .如果真 (超级列表框1.取标题 (i － 1, 0) ＝ “企业号”)
        文本一 ＝ 文本一 ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “---” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ #换行符
    .如果真结束

    .如果真 (超级列表框1.取标题 (i － 1, 0) ＝ “新人号”)
        文本二 ＝ 文本二 ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “---” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ #换行符

    .如果真结束
    .如果真 (超级列表框1.取标题 (i － 1, 0) ＝ “V1号” 或 超级列表框1.取标题 (i － 1, 0) ＝ “V2号”)
        文本三 ＝ 文本三 ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “---” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ #换行符

    .如果真结束

.计次循环尾 ()
写到文件 (取运行目录 () ＋ “\企业号.txt”, 到字节集 (文本一))
写到文件 (取运行目录 () ＋ “\新人号.txt”, 到字节集 (文本二))
写到文件 (取运行目录 () ＋ “\V号.txt”, 到字节集 (文本三))

.子程序 __启动窗口_创建完毕
.局部变量 数组1, 文本型, , "0"
.局部变量 数组2, 文本型, , "0"
.局部变量 数组3, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 临时数组, 文本型, , "0"
.局部变量 表项, 整数型

数组1 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\企业号.txt”)), #换行符, )
数组2 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\新人号.txt”)), #换行符, )
数组3 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\V号.txt”)), #换行符, )

.计次循环首 (取数组成员数 (数组1), i)
    临时数组 ＝ 分割文本 (数组1 [i], “---”, )
    表项 ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (表项, 0, 临时数组 [1])
    超级列表框1.置标题 (表项, 1, 临时数组 [2])
.计次循环尾 ()
.计次循环首 (取数组成员数 (数组2), i)
    临时数组 ＝ 分割文本 (数组2 [i], “---”, )
    表项 ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (表项, 0, 临时数组 [1])
    超级列表框1.置标题 (表项, 1, 临时数组 [2])
.计次循环尾 ()
.计次循环首 (取数组成员数 (数组3), i)
    临时数组 ＝ 分割文本 (数组3 [i], “---”, )
    表项 ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (表项, 0, 临时数组 [1])
    超级列表框1.置标题 (表项, 1, 临时数组 [2])
.计次循环尾 ()


望采纳，  有读取和导出