idwma

万能的正则

$a=@{}
type a.csv|%{
    $z=$_ -replace '^(\d+).*','$1'
    if (!($a.ContainsKey($z))){$a.$z=$_}
}
$b=@{}
dir -recu b\* -inc *歌手*.txt,*歌名*.txt|%{
    foreach($i in (type $_) -match '\d+'){
        $z=$i -replace '\D*(\d+)\D*','$1'
        if(!($b.ContainsKey($z))){$b.$z=$a.$z}
    }
}
$b.Values|sort{"{0:d5}" -f [int]($_ -replace '^(\d+)\D*','$1')}
复制代码

idwma

回复 4# 5i365

$a=@{}
$f=[io.file]::ReadAllLines('.\a.csv')
$f|%{
    $z=$_ -replace '^(\d+).*','$1'
    if (!($a.ContainsKey($z))){$a.$z=$_}
}
$b=@{}
dir -recu * -inc *歌手*.txt,*歌名*.txt,*歌曲*.txt|%{
    foreach($i in [io.file]::ReadAllLines($_) -match '\d+'){
        $z=$i -replace '\D*(\d+)\D*','$1'
        if(!($b.ContainsKey($z))){$b.$z=$a.$z}
    }
}
sc b.csv ($f[0],($b.Values|sort{[int]($_ -replace '^(\d+)\D*','$1')}))
复制代码

idwma

回复 6# 5i365


    一直用默认的ansi,太清楚有什么不同
好像utf8也可以运行

idwma

回复 9# 5i365
排序部分还可以用went教的方法

$b.Values|sort{[int]($_ -split ',')[0]}
复制代码

idwma

回复 12# 5i365

$a=@{}
$f=[io.file]::ReadAllLines('.\a.csv')
$f|%{
    $z=$_ -replace '^(\d+).*','$1'
    if (!($a.ContainsKey($z))){$a.$z=$_}
}
$b=@{}
dir -recu * -inc *歌手*.txt,*歌名*.txt,*歌曲*.txt|%{
    foreach($i in [io.file]::ReadAllLines($_) -match '\d+'){
        $z=$i -replace '\D*(\d+)\D*','$1'
        if(!($b.ContainsKey($z))){$b.$z=$a.$z}
    }
if($b.ContainsKey($z)){sc $_ ''}
}
sc b.csv ($f[0],($b.Values|sort{[int]($_ -split ',')[0]}))
复制代码

idwma

回复 14# 5i365


    文件链接过期了再发一个来看看

idwma

回复 16# 5i365

#@&cls&powershell -version 2.0 "type '%~0'|out-string|iex"&pause&exit
$a=@{}
$f=gc a.csv
$f|%{
    $z=$_ -replace '^(\d+).*','$1'
    if (!($a.ContainsKey($z))){$a.$z=$_}
}
$b=@{}
$d=@{}
dir -recu * -inc *原唱*.txt,*伴奏*.txt,*歌词*.txt|%{
    if($_ -match '(原唱|伴奏|歌词)'){$c=$Matches[0]}
    foreach($i in gc $_){
        if($i -match '\d'){
            $z=$i -replace '\D*(\d+)\D*','$1'
            if(!($b.ContainsKey($z))){$b.$z=$a.$z;$d.$c+=@($a.$z)}
        }
    }
    if($b.ContainsKey($z)){sc $_ ''}
    $z=-1
}
$d.keys|%{sc $($_+'.csv') ($f[0],($d.$_|sort{[int]($_ -split ',')[0]}))}
复制代码

idwma

回复 18# 5i365


    开win10试了一下自带的5.1也可以的

idwma

回复 20# 5i365


    18
19

idwma

回复 22# 5i365

#@&cls&powershell -version 2.0 "type '%~0'|out-string|iex"&pause&exit
$r='^(\d+).+'		#1
#$r='\D+(\d+)\D+'	#2
#$r='\D+(\d+)$'		#3

$a=@{}
$f=gc 歌单.csv -Encoding UTF8
$f|%{
    $z=$_ -replace '^(\d+).*','$1'
    if (!($a.ContainsKey($z))){$a.$z=$_}
}
$b=@{}
$d=@{}
dir ".\任务" -recu * -inc *原唱*.txt,*伴奏*.txt,*歌词*.txt|%{
    if($_ -match '(原唱|伴奏|歌词)'){$c=$Matches[0]}
    foreach($i in gc $_){
        if($i -match '\d'){
            $z=$i -replace $r,'$1'
            if(!($b.ContainsKey($z))){$b.$z=$a.$z;$d.$c+=@($a.$z)}
        }
    }
    #if($b.ContainsKey($z)){sc $_ ''} #清空
    #$z=-1 #清空
}
$d.keys|%{sc -Encoding UTF8 $($_+'.csv') ($f[0],($d.$_|sort{[int]($_ -split ',')[0]}))}
复制代码

idwma

回复 24# 5i365

#@&cls&powershell -version 2.0 "type '%~0'|out-string|iex"&pause&exit
#$r='^(\d+).*'		#1
$r='^\D+(\d+)\D'	#2
#$r='\D+(\d+)$'		#3

$a=@{}
$f=gc 歌单.csv -Encoding UTF8
$f|%{
    $z=$_ -replace '^(\d+).*','$1'
    if (!($a.ContainsKey($z))){$a.$z=$_}
}
$d=@{}
dir ".\任务" -recu * -inc *原唱*.txt,*伴奏*.txt,*歌词*.txt|%{
    if($_ -match '(原唱|伴奏|歌词)'){$c=$($_.fullname -replace '^.*?([^\\]*)\\[^\\]*$','$1')+'_'+$Matches[0]}
    foreach($i in gc $_){
        if($i -match $r){
            $z=$matches[1]
            if($a.ContainsKey($z)){$d[$c]+=@($a.$z)}
        }
    }
}
$d.keys|%{sc -Encoding UTF8 $($_+'.csv') ($f[0],($d.$_|sort{[int]($_ -split ',')[0]}))}
复制代码

idwma

回复 26# 5i365


    $b改成$a还是放在原来的地方