[已解决]VBS如何根据歌单判断所缺歌曲并写入id3v1&v2信息？

czjt1234 · 发表于 2013-5-6 23:29:04

啊，惭愧惭愧，考虑不周

这样

If Lcase(Right(objFile.Name, 3)) = "txt" Then

czjt1234 · 发表于 2013-5-6 23:33:29

本帖最后由 czjt1234 于 2013-5-6 23:37 编辑

Set objFSO = CreateObject("Scripting.FileSystemObject")
set objWmp = CreateObject("WMPlayer.ocx")
strFolder = CreateObject("Wscript.Shell").CurrentDirectory & ""
strResult = "缺少以下歌曲：" & vbCrLf & vbCrLf
Set objFolders = objFSO.GetFolder(strFolder).SubFolders
For Each objFolder In objFolders '遍历所有歌手名
Set objFiles = objFSO.GetFolder(objFolder).Files
For Each objFile In objFiles '遍历所有专辑名
If Lcase(Right(objFile.Name, 3)) = "txt" Then
Set objTextStream = objFSO.OpenTextFile(objFile.Path, 1, False)
strLost = ""
Do Until objTextStream.AtEndOfStream
strLine = Trim(objTextStream.ReadLine)
If strLine = "" Then Exit Do '遇到空行就认为文件已结束
If objFSO.FileExists(strFolder & strLine & ".mp3") Then
Set objMp3File = objWmp.NewMedia(strFolder & strLine & ".mp3")
objMp3File.SetItemInfo "author", objFolder.Name
objMp3File.SetItemInfo "title", strLine
objMp3File.SetItemInfo "WM/AlbumTitle", Left(objFile.Name, Len(objFile.Name) - 4)
Else
strLost = strLost & Space(8) & strLine & vbCrLf
End If
Loop
If strLost <> "" Then
strResult = strResult & objFolder.Name & vbCrLf & Space(4) & _
Left(objFile.Name, Len(objFile.Name) - 4) & vbCrLf & strLost & vbCrLf
End If
End If
Next
Next
objFSO.OpenTextFile("result.txt", 2, True).WriteLine strResult

复制代码

wuhengsi · 发表于 2013-5-7 14:30:42

我淡淡一笑。。。。。。

batsealine · 发表于 2013-5-8 14:52:53

了解了解，最后再次感谢大家

wuhengsi · 发表于 2013-5-9 14:42:22

疯狂。。。不过VBS 很容易被杀软提示

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[问题求助] [已解决]VBS如何根据歌单判断所缺歌曲并写入id3v1&v2信息？