.版本 2
.子程序 搜索歌曲, , , 搜索歌曲
.参数 盘符, 文本型, 可空
.局部变量 寻找结果, 文本型
.局部变量 文件尺串, 双精度小数型
.如果真 (取文本右边 (盘符, 1) ≠ “\”)
盘符 = 盘符 + “\”
.如果真结束
寻找结果 = 寻找文件 (盘符 + “*”, )
.判断循环首 (寻找结果 ≠ “”)
编辑框搜索.内容 = “正在搜索: ” + 盘符 + 寻找结果
处理事件 ()
歌曲列表框.加入项目 (盘符 + 寻找结果, )
寻找结果 = 寻找文件 (, )
.判断循环尾 ()
寻找结果 = 寻找文件 (盘符 + “*.*”, #子目录)
.判断循环首 (寻找结果 ≠ “”)
.如果真 (寻找结果 ≠ “.” 且 寻找结果 ≠ “..”)
搜索歌曲 (盘符 + 寻找结果)
.如果真结束
寻找结果 = 寻找文件 (, #子目录)
.判断循环尾 ()
.版本 2.子程序 _按钮1_被单击
通用对话框1.打开 ()
编辑框1.内容 = 取文本左边 (取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) - 倒找文本 (通用对话框1.文件名, “\”, , 假)), 寻找文本 (取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) - 倒找文本 (通用对话框1.文件名, “\”, , 假)), “.”, , 假) - 1)
这样取出来的就是文件名不带后缀的了
把以上代码复制过去贴在你的程序里面,需要先建一个按钮1,和一个通用对话框1,和一个编辑框1,
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)