[文本处理] 批处理如何将文件名中的中文序号改为阿拉伯数字？

#@&cls&powershell "type %~s0|out-string|iex"&pause&exit
$a=@{
'一'='1'
'二'='2'
'三'='3'
'四'='4'
'五'='5'
'六'='6'
'七'='7'
'八'='8'
'九'='9'
'十'='10'
}

dir -name|%{
$_ -match "第(($($a.keys -join '|'))+)讲"
if($matches[1].length -gt 1){$c=$a["$($matches[1][0])"][0]+$a["$($matches[1][-1])"][-1]}else{$c=$a[$matches[1]]}
$_
$_ -replace "$($matches[1])","$c"
}
复制代码

function zhongwen ()
{
$a = [ordered] @{"零"=0; "一"=1; "二"=2; "三"=3; "四"=4; "五"=5; "六"=6; "七"=7; "八"=8; "九"=9}
$b = [ordered] @{"十"=10; "百"=100; "千"=1000}
$c = [ordered] @{"万"=10000}
$d = [ordered] @{"亿"=100000000}

$str = $args[0] -replace "(?<=^|[^一二三四五六七八九])十","一十"
$x = $str -split ""

[long[]] $ss = @(0) * 3
$i = 0
while ($i -le $x.count)
{
    $i++
    $s = $x[$i]
    if ($a.keys -contains $s)
    {
        $ss[0] = $ss[0] * 10 + $a[$s]
    } elseif ($b.keys -contains $s)
    {
        $ss[1] += $ss[0] * $b[$s]
        $ss[0] = 0
    } elseif ($c.keys -contains $s)
    {
        $ss[1] = ($ss[1] + $ss[0]) * $c[$s]
        $ss[0] = 0
    } elseif ($d.keys -contains $s)
    {
        $ss[2] = ($ss[2] + $ss[1] + $ss[0]) * $d[$s]
        $ss[1] = 0
        $ss[0] = 0
    } elseif ($s -eq "")
    {
        $ss[2] = $ss[2] + $ss[1] + $ss[0]
        $ss[1] = 0
        $ss[0] = 0
    }
}

return $ss[2]
}

dir |?{$_ -match "一|二|三|四|五|六|七|八|九|十|百|千|零"}|ren -newname{
$oldnumber=[regex]::matches($_.name,'一|二|三|四|五|六|七|八|九|十|百|千|零').value -join ""
$newnumber=zhongwen $oldnumber
$_.name.replace($oldnumber,$newnumber)
}
复制代码

有简单的没搜到吗...
Add-Type -AssemblyName Microsoft.VisualBasic
[Microsoft.VisualBasic.strings]::StrConv('牧师《希伯来书》研读-------第十六讲 問題解答 Q&A - 1280x720 1384K.mp4',256)
复制代码

    
function zhongwen (){
$a = [ordered] @{"零"=0; "一"=1; "二"=2; "三"=3; "四"=4; "五"=5; "六"=6; "七"=7; "八"=8; "九"=9}
$b = [ordered] @{"十"=10; "百"=100; "千"=1000}
$c = [ordered] @{"万"=10000}
$d = [ordered] @{"亿"=100000000}

$str = $args[0] -replace "(?<=^|[^一二三四五六七八九])十","一十"
$x = $str -split ""

[long[]] $ss = @(0) * 3
$i = 0
while ($i -le $x.count)
{
    $i++
    $s = $x[$i]
    if ($a.keys -contains $s)
    {
        $ss[0] = $ss[0] * 10 + $a[$s]
    } elseif ($b.keys -contains $s)
    {
        $ss[1] += $ss[0] * $b[$s]
        $ss[0] = 0
    } elseif ($c.keys -contains $s)
    {
        $ss[1] = ($ss[1] + $ss[0]) * $c[$s]
        $ss[0] = 0
    } elseif ($d.keys -contains $s)
    {
        $ss[2] = ($ss[2] + $ss[1] + $ss[0]) * $d[$s]
        $ss[1] = 0
        $ss[0] = 0
    } elseif ($s -eq "")
    {
        $ss[2] = $ss[2] + $ss[1] + $ss[0]
        $ss[1] = 0
        $ss[0] = 0
    }
}
return $ss[2]
}

dir |%{
    if ($_ -match '第(.+)讲'){
        $_|ren -newname{
            $newnumber=zhongwen $matches[1]
            $_.name.replace($matches[1],$newnumber)
        }
    }
}
复制代码

"Pro '/My Proce/!/01' fail" -match "'(.+)'"
# $matches[1]为单引号内的内容。
# $matches[0]为上面内容加单引号。
复制代码