|
2精币
本帖最后由 自问自答 于 2011-11-23 18:18 编辑
[e].版本 2
.支持库 shell
.支持库 iext
.支持库 spec
.程序集 窗口程序集1
.程序集变量 欲播放的MP3文件名, 文本型
.程序集变量 目录名临时, 文本型
.程序集变量 真暂停, 逻辑型
.程序集变量 歌曲数组, 文本型, , "0"
.子程序 _按钮1_被单击
.局部变量 目录名, 文本型
.局部变量 文件名, 文本型
.局部变量 次数, 整数型
目录名 = 浏览文件夹 (“浏览文件夹”, )
文件名 = “1”
编辑框1.内容 = 目录名
目录名临时 = 目录名
.如果 (取文本右边 (目录名, 1) = “\”)
目录名 = 目录名 + “*.mp3”
.否则
目录名 = 目录名 + “\*.mp3”
.如果结束
.判断循环首 (文件名 ≠ “”)
文件名 = 寻找文件 (目录名, )
超级列表框1.插入表项 (, 文件名, , , , )
次数 = 次数 + 1
歌曲数组 [次数] = 目录名临时 + 文件名 '←报错后停在这里.选择文件夹后提示数组超出定义.我是哪里犯错误了?
调试输出 (歌曲数组 [次数])
目录名 = “”
.判断循环尾 ()
标签5.标题 = “共有” + 到文本 (超级列表框1.取表项数 () - 1) + “首歌曲”
[/e] |
最佳答案
查看完整内容
初始化时:数组的成员数是0 [ .程序集变量 歌曲数组, 文本型, , "0"]
而后直接调用数组中的 [次数] 个成员 所以造成超出定义
如果想往数组中添加成员,使用 加入成员()命令
|