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

862228699 · 发表于 2016-3-22 17:19:14

本帖最后由 862228699 于 2016-4-1 12:27 编辑

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

afan · 发表于 2016-3-22 17:47:02

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

heroxianf · 发表于 2016-3-22 17:53:45

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

862228699 · 发表于 2016-3-22 18:36:27

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

骗子 · 发表于 2016-3-29 09:28:24

回复 4# 862228699

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

chamlien · 发表于 2016-3-29 10:57:25

本帖最后由 chamlien 于 2016-3-29 11:06 编辑

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 · 发表于 2016-3-31 17:34:18

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

		自动登录	找回密码
密码			加入

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

本帖子中包含更多资源

相关帖子

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

本帖子中包含更多资源

相关帖子

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