列表框怎么过滤文件路径

wangxinhui1314

如题，列表款怎么过滤掉文件路径，只显示文件名称、、

比如打开一个mp3音乐文件件，列边框只添加音乐文件的文件名而不显示路径和后缀名。
如图D:\KuGou\和.mp3不显示只显示音乐文件名。
坐等答案
附件.rar (1.49 KB, 下载次数: 4)

2017-2-10 00:38 上传

点击文件名下载附件
需要修改的源码

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
配置文件	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
A	整数型
AB	文本型

配置文件 ＝ 取运行目录 ()
如果真 (取文本右边 (配置文件, 1) ≠ “\”)
配置文件 ＝ 配置文件 ＋ “\”
配置文件 ＝ 配置文件 ＋ “\MP3播放列表.ini”
A ＝ 1
判断循环首 (真)
AB ＝ 读配置项 (配置文件, “MP3列表”, “曲目” ＋ 到文本 (A), “”)
如果真 (AB ＝ “”)
跳出循环 ()
_启动窗口.列表框_MP3列表.加入项目 (AB, )
A ＝ A ＋ 1
判断循环尾 ()

子程序名	返回值类型	公开	备 注
写MP3配置

变量名	类 型	静态	数组	备 注
A	整数型

删除文件 (配置文件)
A ＝ 1
判断循环首 (A ≤ _启动窗口.列表框_MP3列表.取项目数 ())
写配置项 (配置文件, “MP3列表”, “曲目” ＋ 到文本 (A), _启动窗口.列表框_MP3列表.取项目文本 (A － 1))
A ＝ A ＋ 1
判断循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

通用对话框_MP3.过滤器 ＝ “媒体文件（*.mp3）|*.mp3”
通用对话框_MP3.打开 ()
列表框_MP3列表.加入项目 (通用对话框_MP3.文件名, )
写MP3配置 ()

子程序名	返回值类型	公开	备 注
_列表框_MP3列表_双击选择

播放MP3 (, 列表框_MP3列表.取项目文本 (列表框_MP3列表.现行选中项))

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 配置文件, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 A, 整数型<br /> .局部变量 AB, 文本型<br /> <br /> 配置文件 ＝ 取运行目录 ()<br /> .如果真 (取文本右边 (配置文件, 1) ≠ “\”)<br />     配置文件 ＝ 配置文件 ＋ “\”<br /> .如果真结束<br /> 配置文件 ＝ 配置文件 ＋ “\MP3播放列表.ini”<br /> A ＝ 1<br /> .判断循环首 (真)<br />     AB ＝ 读配置项 (配置文件, “MP3列表”, “曲目” ＋ 到文本 (A), “”)<br />     .如果真 (AB ＝ “”)<br />         跳出循环 ()<br />     .如果真结束<br />     _启动窗口.列表框_MP3列表.加入项目 (AB, )<br />     A ＝ A ＋ 1<br /> .判断循环尾 ()<br /> <br /> <br /> .子程序 写MP3配置<br /> .局部变量 A, 整数型<br /> <br /> 删除文件 (配置文件)<br /> A ＝ 1<br /> .判断循环首 (A ≤ _启动窗口.列表框_MP3列表.取项目数 ())<br />     写配置项 (配置文件, “MP3列表”, “曲目” ＋ 到文本 (A), _启动窗口.列表框_MP3列表.取项目文本 (A － 1))<br />     A ＝ A ＋ 1<br /> .判断循环尾 ()<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 通用对话框_MP3.过滤器 ＝ “媒体文件（*.mp3）|*.mp3”<br /> 通用对话框_MP3.打开 ()<br /> 列表框_MP3列表.加入项目 (通用对话框_MP3.文件名, )<br /> 写MP3配置 ()<br /> <br /> <br /> .子程序 _列表框_MP3列表_双击选择<br /> <br /> 播放MP3 (, 列表框_MP3列表.取项目文本 (列表框_MP3列表.现行选中项))

易正易则

改好试试.zip (167.93 KB, 下载次数: 4)

2017-2-10 01:27 上传

点击文件名下载附件

拉面

文本_取出中间文本 (路径, “\”, “.mp3”, , )  

取出后再把.mp3加回去就好了

补充内容 (2017-2-10 00:45):
文件=文本_取出中间文本 (通用对话框_MP3.文件名, “\”, “.mp3”, , )

福仔

  

子程序名	返回值类型	公开	备 注
子程序1	文本型
参数名	类 型	参考	可空	数组	备 注
路径	文本型

变量名	类 型	静态	数组	备 注
文件名	文本型

文件名 ＝ PathFindFileName (路径)
返回 (取文本左边 (文件名, 取文本长度 (文件名) － 取文本长度 (PathFindExtensionA (文件名))))

.版本 2<br /> <br /> .子程序 子程序1, 文本型, 公开<br /> .参数 路径, 文本型<br /> .局部变量 文件名, 文本型<br /> <br /> 文件名 ＝ PathFindFileName (路径)<br /> 返回 (取文本左边 (文件名, 取文本长度 (文件名) － 取文本长度 (PathFindExtensionA (文件名))))

两个API

易正易则

列表框_MP3列表.加入项目 (文件_取文件名 (通用对话框_MP3.文件名), )

小李吊炸天

用精易模块的文件_取文件名