【已解决】批处理如何删除及修改具有下面特征的文件？

qixiaobin0715 · 发表于 2019-9-25 13:00:58

本帖最后由 qixiaobin0715 于 2019-9-28 09:52 编辑

文件夹中的文件均为jpg文件，文件名均为英文字母组成无空格，要求如下：
1.先将文件按文件列表重命名：
文件形式如下：

复制代码

按文件列表重命名，文件列表是一个txt文件，形式如下：

复制代码

文件列表都是词组，含有空格，而文件无空格，顺序不一定一致。文件数量要比列表中的数量多得多。
2.然后删除文件名由12及以上个字母组成的文件，12个字母以下的保留，文件名含有空格的文件保留。

xczxczxcz · 发表于 2019-9-25 17:37:34

这两天写了两个脚按房间号批量抓取虎牙和斗鱼的直播源，默认按网站的最高码率。播放很流畅。
刚弄完了，路过酱油一下， pwoershell 运行：

$files = (gc 列表.log -ReadCount 0) | % { @{name = $_.trim(); noEmpty = $_ -replace '\s+' } }
Get-ChildItem '.\*.jpg' | foreach {
if ($_.BaseName -in $files.noEmpty) {
foreach ($a in $files) {
if ($_.BaseName -eq $a.noEmpty) {
ren $_.FullName -NewName ($a.name + $_.Extension) -Force -verb;
break;
}
}
}
else {
if (($_.BaseName -notmatch '\s+') -and ($_.BaseName.Length -ge 12)) {
del $_.FullName -verb -Force;
}
}
}

复制代码

===============先测试一下============

qixiaobin0715 · 发表于 2019-9-26 09:13:32

本帖最后由 qixiaobin0715 于 2019-9-26 09:19 编辑

回复 2# xczxczxcz
不知什么原因，直接闪退。
PowerShell v1.0

Batcher · 发表于 2019-9-26 13:26:28

回复 3# qixiaobin0715

你用的XP系统吗？如果是Win7或Win10的话，升级到高版本的PowerShell试试呢

zaqmlp · 发表于 2019-9-26 13:59:42

@echo off
mode con lines=3000
set info=互助互利,支付宝扫码头像,感谢打赏
rem 有问题,可加QQ956535081及时沟通
title %info%
cd /d "%~dp0"
set "txtfile=列表.txt"
>"%tmp%\1.t" echo;while(!WSH.StdIn.AtEndOfStream){var f=WSH.StdIn.ReadLine();WSH.echo(f.replace(/\s/g,'')+"|"+f);}
for /f "tokens=1* delims=|" %%a in ('type "%txtfile%"^|cscript -nologo -e:jscript "%tmp%\1.t"') do (
if exist "%%a.jpg" (
echo;"%%a.jpg" --^> "%%b.jpg"
ren "%%a.jpg" "%%b.jpg"
)
)
>"%tmp%\1.t" echo;while(!WSH.StdIn.AtEndOfStream){var f=WSH.StdIn.ReadLine();if(/^^[a-z]{12,}$/i.test(f)){WSH.echo(f);}}
(for /f "delims=" %%a in ('dir /a-d/b *.jpg') do echo;%%~na)>"%tmp%\t.t"
for /f "delims=" %%a in ('type "%tmp%\t.t"^|cscript -nologo -e:jscript "%tmp%\1.t"') do (
echo;--^> "%%a.jpg"
del /a /f /q "%%a.jpg"
)
echo;%info%
pause

复制代码

qixiaobin0715 · 发表于 2019-9-26 15:03:21

回复 4# Batcher

win7。有是可能powershell版本低的问题。谢谢！

qixiaobin0715 · 发表于 2019-9-26 15:04:11

回复 5# zaqmlp

少量测试效果不错！谢谢了

zaqmlp · 发表于 2019-9-26 16:08:44

回复 7# qixiaobin0715

谢没啥用，还是红包实际

qixiaobin0715 · 发表于 2019-9-26 17:31:14

回复 5# zaqmlp

back and forth好像没有重命名

zaqmlp · 发表于 2019-9-26 18:41:39

回复 9# qixiaobin0715

不清楚你的情况，实测没问题，可以联系我q

terse · 发表于 2019-9-26 22:36:01

这个意思吗？

复制代码

qixiaobin0715 · 发表于 2019-9-27 12:50:58

回复 10# zaqmlp
不好意思，是自己的文件名列表的问题。献上红包一个。请完善功能：
1.将修改过的文件直接移到（非拷贝）新文件夹中，如D:\pic。
2.在当前文件夹中生成重命名文件名成功的列表以及被删除文件的文件名列表。

Batcher · 发表于 2019-9-28 09:09:14

回复 11# terse

顺序不一定一致，这样可能不适合楼主的情况。

Batcher · 发表于 2019-9-28 09:28:02

回复 12# qixiaobin0715

试试这样可以吗

复制代码

qixiaobin0715 · 发表于 2019-9-28 09:51:31

回复 14# Batcher

完美，速度很快，非常感谢！！！

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

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

[文件操作] 【已解决】批处理如何删除及修改具有下面特征的文件？