列表框，提取文件名到指定编辑框

ytm易小白

根据右侧编辑框内文件名后缀，把列表框的对应文件名写入前面的编辑框
比如：列表框后缀为rou1的文件名写到编辑框6

如果有后缀为map的文件名， 写入编辑框20后，把后缀改为rou




补充内容 (2024-7-23 21:24):
Layer_2.rou   这个文件以及txt文件不在写入范围

LEOONL

2.e (965.55 KB, 下载次数: 7)

2024-7-24 11:17 上传

点击文件名下载附件

南影

可以把源码发出来改不？

abnerll

.版本 2
.支持库 iext

.子程序 子程序1
.参数 i, 整数型
.参数 内容, 文本型
.局部变量 内容arr, 文本型

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

    内容 ＝ 超级列表框.取标题 (i － 1, 1)
    .如果真 (内容 ≠ “Layer_2.rou” 或 寻找文本 (内容, “.txt”, , 假) ≠ -1)
        内容arr ＝ 分割文本 (内容, “.”, )

        .如果真 (内容arr [2] ＝ “map”)
            内容arr [2] ＝ “rou”
        .如果真结束

        .判断开始 (i ＝ 1)
            编辑框_文件名前缀.内容_1 ＝ 内容arr [1]
            编辑框_文件名后缀.内容_1 ＝ 内容arr [2]

        .判断 (i ＝ 2)
            编辑框_文件名前缀.内容_2 ＝ 内容arr [1]
            编辑框_文件名后缀.内容_2 ＝ 内容arr [2]

        .判断 (i ＝ 3)
            编辑框_文件名前缀.内容_3 ＝ 内容arr [1]
            编辑框_文件名后缀.内容_3 ＝ 内容arr [2]

        .判断 (i ＝ 4)
            编辑框_文件名前缀.内容_4 ＝ 内容arr [1]
            编辑框_文件名后缀.内容_4 ＝ 内容arr [2]

        .判断 (i ＝ 5)
            编辑框_文件名前缀.内容_5 ＝ 内容arr [1]
            编辑框_文件名后缀.内容_5 ＝ 内容arr [2]

        .判断 (i ＝ 6)
            编辑框_文件名前缀.内容_6 ＝ 内容arr [1]
            编辑框_文件名后缀.内容_6 ＝ 内容arr [2]

        .默认

        .判断结束

    .如果真结束

    ' ''具体的 需要你根据实际改编辑框和超级列表框的名字

.计次循环尾 ()





后面的前缀后缀两个编辑框,可以用一个超级列表框代替锕

abnerll

这样省事一点

ytm易小白

LEOONL 发表于 2024-7-24 11:17

我增加了两个，运行完有，map和rouy
不显示名字了

LEOONL

ytm易小白 发表于 2024-7-25 09:12
我增加了两个，运行完有，map和rouy
不显示名字了

什么 看不清图 你增加了什么