[文件操作] [已解决]批处理按照标题给MP3音频排序或者加序号

ashelybeauty

名称                                   标题
vb_2_3_art_us.mp3            20
vb_2_3_ruin_us.mp3           800
vb_2_3_cell_us.mp3            600
等等                                    等等

即：按照标绿的“标题”排序，给“名称”加不加序号都可以，
只要本质把“名称”顺序按照“标题”顺序排列便可。
因为即使在“我的电脑”中按照 “标题”排好后，
引入到音频编辑器还是按照“名称”排序。

内容量大，手动不适合。

大师们,恳请帮忙解决一下

图片更好理解一点，怕自己表述不到位

ashelybeauty

回复 2# zaqmlp


    另外请问一下排好序之后出现 1 10 11 ....2 20 21……该如何解决呀？感谢您！祝生活愉快！
即按照1～几百的顺序排序

ashelybeauty

回复 2# zaqmlp


问题已解决 感谢🙏

ashelybeauty

回复 3# WHY


谢谢你 我晚上回去试一试

WHY

假设 mp3 文件标题全部为数字

$wmp = New-Object -Com 'WMPlayer.ocx';
dir 'E:\Test\*.mp3' | sort{$a=$wmp.newMedia($_.FullName).getItemInfo('name');1*$a} | %{$_.Name}
复制代码

zaqmlp

<# :
cls
@echo off
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
title %info%
set "rootpath=%~dp0"
if "%rootpath:~-1%" equ "\" (set "rootpath=%rootpath:~,-1%")
cd /d "%rootpath%"
powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::Default))) -Args '%rootpath%'"
echo;%info%
pause
exit
#>

$sa=New-Object -comObject Shell.Application;
$fd=$sa.NameSpace(0);$v=0;
for($i=0;$i -le 350;$i++){if($fd.GetDetailsOf($null, $i) -match '\b标题\b'){$v=$i;}};
if($v -eq 0){write-host 'notmatch';exit;};

$files=@(dir -liter $args[0]|?{('.mp3' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
for($i=0;$i -lt $files.length;$i++){
    $objFolder=$sa.Namespace($files[$i].Directory.FullName);
    $objItem=$objFolder.ParseName($files[$i].Name);
    $title=$objFolder.GetDetailsOf($objItem, $v).trim();
    if($title -ne ''){
        $n=$title.PadLeft(5,'0');
        write-host ($files[$i].Name+' --> '+$n+'_'+$files[$i].Name);
        mv -liter $files[$i].FullName ($files[$i].Directory.FullName+'\'+$n+'_'+$files[$i].Name);
    };
}
复制代码