【完结】20元求一个搜索命名的批处理

lxh623 · 发表于 2022-4-12 15:05:20

本帖最后由 lxh623 于 2022-4-12 16:12 编辑

我有些数字命名的pdf，比如：14698469，想把它们按照文本a来改名字：
太时髦了！为什么不可以这样穿---（法）马克·博热著；（英）鲍勃·伦敦绘；刘宇彤译---台海出版社---2018---14698469
我的批处理是：

@echo off
for /f %%a in ('dir /s /b /a-d "J:\NDM"') do (
for /f %%b in ('findstr "%%~nxa" a.txt') do (
ren "%%a" "%%b.pdf"
)
)
pause

复制代码

但是，试了一下，没有效果。电脑装了固态硬盘，开始不是本地磁盘，我自己重命名了磁盘。
谢谢！

zaqmlp · 发表于 2022-4-12 15:42:38

本帖最后由 zaqmlp 于 2022-4-12 16:03 编辑

<# :
cls&echo off&cd /d "%~dp0"&mode con lines=5000
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal "%~f0"|out-string|Invoke-Expression"
pause
exit
#>
$txtfile=".\a.txt";
$folder="J:\NDM";
if(-not (test-path -literal $txtfile)){write-host ('"'+$txtfile+'" not found');exit;}
if(-not (test-path -literal $folder)){write-host ('"'+$folder+'" not found');exit;}
$text=[IO.File]::ReadAllLines($txtfile, [Text.Encoding]::GetEncoding('GB2312'));
$files=@(dir -literal $folder -recurse|?{($_.Name -match '^\d+\.pdf$') -and ($_ -is [System.IO.FileInfo])});
for($i=0;$i -lt $files.length;$i++){
for($j=0;$j -lt $text.count;$j++){
if($text[$j].Contains($files[$i].BaseName)){
if($text[$j] -ne $files[$i].BaseName){
$newname=($text[$j] -replace '[\t\\\/:\*\?"<>\|]','')+$files[$i].Extension;
$newfile=$files[$i].Directory.FullName+'\'+$newname;
write-host ($files[$i].FullName+' --> '+$newname);
move-item -literal $files[$i].FullName $newfile -force -ErrorAction SilentlyContinue;
break;
}
}
}
}

复制代码

lxh623 · 发表于 2022-4-12 15:54:49

zaqmlp 发表于 2022-4-12 15:42

谢谢！
除了数字，全部显示乱码。
̫ʱ���ˣ�Ϊʲô������������---��������ˡ�����������Ӣ���������׶ػ棻����ͮ��---̨��������---2018---14698469

zaqmlp · 发表于 2022-4-12 16:03:46

本帖最后由 zaqmlp 于 2022-4-12 16:05 编辑

回复 3# lxh623

已修改
提需求最好同时打包部分原文件发网盘

lxh623 · 发表于 2022-4-12 16:14:11

回复 lxh623

已修改
提需求最好同时打包部分原文件发网盘
zaqmlp 发表于 2022-4-12 16:03

请查收。谢谢！

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

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

【完结】20元求一个搜索命名的批处理

评分

浏览过的版块