求问一个列表框和写配置项的问题

wangxinhui1314

如题我写了一个类似MP3添加到列表框的问题
准备利用两个按钮一天添加一个删除的。列边框内添加音乐文件之后本来是只显示文件名不显示地址的。

但是添加mp3文件到列表框后不显示地址只显示文件名的话双击列表框就不能播放MP3文件了。

并且我也找了几种写配置项的方法，也添加了写配置项的代码但是配置文件始终写不出来，应该是代码问题。

上次询问过这个问题，说是利用精易模块的文件_取文件名命令进行过滤掉文件地址。但是过滤能过滤却在写


配置项的时候写出的多个配置项都是相同的。


我就是想用一个按钮添加多个MP3文件到列表框（列表框过滤掉MP3的路径，只显示文件的名称。）然后双击列


表框选中项就播放这个选中项的MP3文件。然后在按钮将MP3加入列表框的时候同时写列表框的配置项。启动窗


口的时候在读取列表框的MP3文件。
下面是代码和附件

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

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

通用对话框1.打开 ()
列表框1.加入项目 (取文本中间 (通用对话框1.文件名, 倒找文本 (通用对话框1.文件名, “\”, , 假) ＋ 1, 取文本长度 (通用对话框1.文件名) － 倒找文本 (通用对话框1.文件名, “\”, , 假) － 4), )
写MP3配置 ()

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

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

A ＝ 1
判断循环首 (A ≤ _启动窗口.列表框1.取项目数 ())
写配置项 (取运行目录 (), “音乐”, “1” ＋ 到文本 (A), _启动窗口.列表框1.取项目文本 (A － 1))
A ＝ A ＋ 1
判断循环尾 ()

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

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

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 通用对话框1.打开 ()<br /> 列表框1.加入项目 (取文本中间 (通用对话框1.文件名, 倒找文本 (通用对话框1.文件名, “\”, , 假) ＋ 1, 取文本长度 (通用对话框1.文件名) － 倒找文本 (通用对话框1.文件名, “\”, , 假) － 4), )<br /> 写MP3配置 ()<br /> <br /> <br /> .子程序 写MP3配置<br /> .局部变量 A, 整数型<br /> <br /> A ＝ 1<br /> .判断循环首 (A ≤ _启动窗口.列表框1.取项目数 ())<br />     写配置项 (取运行目录 (), “音乐”, “1” ＋ 到文本 (A), _启动窗口.列表框1.取项目文本 (A － 1))<br />     A ＝ A ＋ 1<br /> .判断循环尾 ()<br /> <br /> .子程序 _列表框1_双击选择<br /> <br /> 播放MP3 (, 列表框1.取项目文本 (列表框1.现行选中项))

附件.rar (1.18 KB, 下载次数: 7)

2017-3-5 21:42 上传

点击文件名下载附件
问题易语言附件

唐老湿

123.zip (2.24 KB, 下载次数: 12)

2017-3-5 22:22 上传

点击文件名下载附件


补充内容 (2017-3-5 22:28):
我好像搞错需求了，感觉答非所问了，觉得对你有帮助就行了

补充内容 (2017-3-5 22:51):
贼尴尬，太急忙了
原代码  ：保存 ＝ 保存 ＋ 音乐名 ＋ “----” ＋ 文件路径
改成：保存 ＝ 保存 ＋ 音乐名 ＋ “----” ＋ 文件路径 ＋ #换行符

常飞

用个超级列表框，间距0 保存完整路径，最简单，最有效的解决方法。。。

liu2220

配置项本来就是一个项目一个值的。你可以写到文本内啊，一行一条路径。然后再取文本，用换行符分割就好了啊。

羊羽子

非要用列表框的话   建议你建个程序集文本数组来保存文件地址

唐老湿

这写的什么鬼，等我下，给你写个好的

羊羽子

  

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

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

通用对话框1.打开 ()
列表框1.加入项目 (取文本中间 (通用对话框1.文件名, 倒找文本 (通用对话框1.文件名, “\”, , 假) ＋ 1, 取文本长度 (通用对话框1.文件名) － 倒找文本 (通用对话框1.文件名, “\”, , 假) － 4), )
加入成员 (文件地址, 通用对话框1.文件名)
写MP3配置 ()

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

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

A ＝ 1
判断循环首 (A ≤ _启动窗口.列表框1.取项目数 ())
写配置项 (取运行目录 (), “音乐”, “1” ＋ 到文本 (A), _启动窗口.列表框1.取项目文本 (A － 1))
写配置项 (取运行目录 (), “文件”, “1” ＋ 到文本 (A), _启动窗口.列表框1.取项目文本 (A － 1))
A ＝ A ＋ 1
判断循环尾 ()

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

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

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 文件地址, 文本型, , "0"<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 通用对话框1.打开 ()<br /> 列表框1.加入项目 (取文本中间 (通用对话框1.文件名, 倒找文本 (通用对话框1.文件名, “\”, , 假) ＋ 1, 取文本长度 (通用对话框1.文件名) － 倒找文本 (通用对话框1.文件名, “\”, , 假) － 4), )<br /> 加入成员 (文件地址, 通用对话框1.文件名)<br /> 写MP3配置 ()<br /> <br /> <br /> .子程序 写MP3配置<br /> .局部变量 A, 整数型<br /> <br /> A ＝ 1<br /> .判断循环首 (A ≤ _启动窗口.列表框1.取项目数 ())<br />     写配置项 (取运行目录 (), “音乐”, “1” ＋ 到文本 (A), _启动窗口.列表框1.取项目文本 (A － 1))<br />     写配置项 (取运行目录 (), “文件”, “1” ＋ 到文本 (A), _启动窗口.列表框1.取项目文本 (A － 1))<br />     A ＝ A ＋ 1<br /> .判断循环尾 ()<br /> <br /> .子程序 _列表框1_双击选择<br /> <br /> 播放MP3 (, 列表框1.取项目文本 (列表框1.现行选中项))

wangxinhui1314

唐老湿 发表于 2017-3-5 22:08
这写的什么鬼，等我下，给你写个好的

谢了，等你

wangxinhui1314

唐老湿 发表于 2017-3-5 22:22
补充内容 (2017-3-5 22:28):
我好像搞错需求了，感觉答非所问了，觉得对你有帮助就行了

好像还有点小问题，就是你写的这个添加多个MP3文件的时候，在重启读配置的时候只能读到第一个，而其他的却读不了。

唐老湿

wangxinhui1314 发表于 2017-3-5 22:42
好像还有点小问题，就是你写的这个添加多个MP3文件的时候，在重启读配置的时候只能读到第一个，而其他的 ...

贼尴尬，太急忙了
原代码  ：保存 ＝ 保存 ＋ 音乐名 ＋ “----” ＋ 文件路径
改成：保存 ＝ 保存 ＋ 音乐名 ＋ “----” ＋ 文件路径 ＋ #换行符