批处理怎样重命名多个文件名？

zhg86868 · 发表于 2021-6-14 21:49:30

文件夹中有多个文件，文件名为第一章，第二章，...第几百几十几章，怎样批量改成第1章，第2章，...第150章

newswan · 发表于 2021-6-14 22:20:36

newswan · 发表于 2021-6-15 12:55:45

本帖最后由 newswan 于 2021-6-15 17:36 编辑

论坛没有 powershell 版的，写了个转换中文整数的，主要问题解决
还可以添加小数负数大写

function hz_num ()
{
$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]
}
$file = get-childitem *.txt
foreach ($f in $file)
{
$str= $f.basename -replace "[\s]",""
if ($str -match "^第" -and $str -match "章$")
{
$str= $str -replace "[第章]",""
if ($str.length -gt 0)
{
$a = hz_num $str
if ($a.length -gt 0)
{
$newname = "第" + $a +"章" + $f.extension
write-host $f.fullname `t $newname
rename-item $f.fullname -newname $newname
}
}
}
}

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文件操作] 批处理怎样重命名多个文件名？