【已解决】求助，怎么把一个MP3，标题为我想要的复制到 桌面

862228699

文件太多了。。。
红色框是文件的标题，不是文件名。。找个录音真的要心碎~~~谢谢大神帮个忙。。。
比如
这个文件的标题为  ：13298054580_0314212541   我只要13298054580  这个字段。。  复制到指定的文件夹

afan

有个读取mp3文件的ID3标签信息的udf: _ID3TagToArray
自己搜索下

heroxianf

是不是在论坛3.3.9版本里面才有这个UDF？

862228699

回复 2# afan
完全新手，代码不知哪里开始。。。。帮我写下把。。。。

骗子

回复 4# 862228699

http://www.autoitx.com/search.ph ... mp;searchsubmit=yes
连搜索都懒得搜

chamlien

Local $f, $shell, $s, $i, $title='该文件标题不含有_'
$file = "E:\My File\Music\神武雨霖铃 - 阿悄.mp3" ;文件路径
$o = ObjCreate("scripting.filesystemobject")
$f = $o.GetFile($file)
$shell1 = ObjCreate("Shell.Application")
$shell = $shell1.Namespace($f.ParentFolder.Path)
;$i=22
For $i = 0 To 30
        $s = $shell.GetDetailsOf(0, $i) & " " & $shell.GetDetailsOf($shell.Items.Item($f.Name), $i)
        If StringInStr($s, "标题") And StringInStr($s, "_") Then
                $title = StringRegExp($s, '\标题 (.+?)\_', 3)
                $title = $title[0]
                ExitLoop
        EndIf
        If StringInStr($s, "title") And StringInStr($s, "_") Then
                $title = StringRegExp($s, '\title (.+?)\_', 3)
                $title = $title[0]
                ExitLoop
        EndIf
Next
$o = 0
$shell1 = 0 
MsgBox(0, "", $title)

以上代码搜索了论坛，然后修改一下别人的代码达到了你想要的结果。
至于批量读取文件然后遍历，这个就要你来完成了。

862228699

论坛有很多页面我这个账号看不到的。。。