[文件操作] [已解决]如何根据文本条件判断，进行指定重命名？

czvde

例子
文件夹中有N个文件：
dbcd123.mp4
……
znn109.jpg

调用a.txt的数据进行添加
dbcd,1655一二
dfcdf99,012345DDD
znn1,DDD0123

bat运行效果：
视频1655一二__123--（720x480）——dbcd123.mp4
……
图片DDD0123__123--（1400x1200）——znn19.jpg

已解决！！

Batcher

回复 17# czvde

@echo off
REM 根据自己电脑实际情况设置ffmpeg的路径
set "path=C:\Program Files\ffmpeg-n4.4-83-gb1f2d203c0-win64-gpl-4.4\bin;%path%"
setlocal enabledelayedexpansion
cd /d "%~dp0"
for /f "tokens=1-2 delims=," %%i in ('type "a.txt"') do (
    for /f "delims=" %%a in ('dir /b /a-d *.mp4 *.jpg *.png ^| findstr /v /i /b /c:"视频" /c:"图片" ^| findstr /i /b "%%i"') do (
        if /i "%%~xa" equ ".mp4" (
            call :GetVideoInfo "%%a"
            ren "%%a" "视频%%j__123--（!str!）——%%a"
        ) else if /i "%%~xa" equ ".jpg" (
            call :GetJpgInfo "%%a"
            ren "%%a" "图片%%j__123--（!str!）——%%a"
        ) else if /i "%%~xa" equ ".png" (
            call :GetPngInfo "%%a"
            ren "%%a" "图片%%j__123--（!str!）——%%a"
        )
    )
)
goto :eof

:GetVideoInfo
for /f "tokens=10" %%x in ('ffmpeg -i "%~1" 2^>^&1 ^| find "Video:"') do (
    set "str=%%x"
)
goto :eof

:GetJpgInfo
for /f "tokens=8" %%x in ('ffmpeg -i "%~1" 2^>^&1 ^| find "Video:"') do (
    set "str=%%x"
)
goto :eof

:GetPngInfo
for /f "tokens=6" %%x in ('ffmpeg -i "%~1" 2^>^&1 ^| find "Video:"') do (
    set "str=%%x"
)
goto :eof
复制代码

czvde

回复 16# Batcher

感谢

Batcher

回复 1# czvde


    文件名根据什么规律跟a.txt对应？看起来每一个都不一样啊

czvde

回复 14# went


    可能是我这边系统问题吧

went

回复 13# czvde


    测试正常，你只有想其他办法了

czvde

回复 12# went


    都是放在同一个文件夹中测试，就是没有效果

went

回复 11# czvde


    图片，视频，a.txt，bat文件
    都放在一个文件夹里运行

czvde

回复 10# went

请按任意键继续. . .
复制代码

出现以下情况：
运行bat之后，所有文件名都没有变

went

test.bat
ansi编码,注意备份

#&cls&@cd /d "%~dp0" & powershell -c "Get-Content '%~0' | Out-String | Invoke-Expression" & pause&exit
$shell = New-Object -ComObject 'Shell.Application'
$folder = $shell.NameSpace($PWD.Path)
#打开txt
$txts = Get-Content 'a.txt'
#找索引
$i = $index1 = $index2 = $index3 = $index4 = 0
while(!($index1 -and $index2 -and $index3 -and $index4)){
	if($folder.GetDetailsOf($null,$i) -eq '高度'){
		$index1 = $i
	}
	elseif($folder.GetDetailsOf($null,$i) -eq '宽度'){
		$index2 = $i
	}
	elseif($folder.GetDetailsOf($null,$i) -eq '帧高度'){
		$index3 = $i
	}
	elseif($folder.GetDetailsOf($null,$i) -eq '帧宽度'){
		$index4 = $i
	}
	++$i
}
#重命名
$folder.Items() | foreach {
	$__ = $_
	$t = $name = $null
	if($_.Name -match '^(.*?)\d+\.((png)|(jpg))$'){
		$t = '图片'; $name = $Matches[1]; $a = $index1; $b = $index2
	}
	elseif ($_.Name -match '^(.*?)\d+\.mp4$'){
		$t = '视频'; $name = $Matches[1]; $a = $index3; $b = $index4
	}
	if($t -ne $null -and $a -match '\d'){
		$b_find = $true
		$txts | foreach{ 
			if($b_find -and ($_ -match ('^{0}\d*,(.*?)$' -f $name)) ){
				$h = $folder.GetDetailsOf($__,$a) -replace '[^\d]',''
				$w = $folder.GetDetailsOf($__,$b) -replace '[^\d]',''
				$new_name = '{0}{1}__123--({2}x{3})——{4}' -f $t,$Matches[1],$h,$w,$__.Name
				$__.Name
				$new_name
				Rename-Item $__.Path $new_name
				$b_find = $false
				'---------------------------'
			}
		}
	}
}
复制代码

5i365

回复 8# idwma


   大侠好, 我找了两段代码
图像分辨率获取
add-type -AssemblyName System.Drawing
$png = New-Object System.Drawing.Bitmap 'C:\365.png'
$png.Height
$png.Width



视频分辨率获取, 要下载个文件https://wss1.cn/f/7vlul0vhtt9 复制链接到浏览器打开
ffprobe -v error -select_streams v:0 -show_entries stream=width,height -of csv=p=0 test.mp4
结果是csv格式的
1920,1080
--------------------------
另一种格式
ffprobe -v error -select_streams v:0 -show_entries stream=width,height -of default=nw=1 test.mp4

结果是这样的
width=1920
height=1080

idwma

回复 7# czvde

没有环境测试,可能代码不符合你的情况吧

czvde

回复 6# idwma


    多次运行批处理，还是没有（重命名）反应

idwma

回复 5# czvde


    再多试几次

czvde

回复 4# idwma


    现在能运行

请按任意键继续. . .
复制代码

但运行批处理之后，所有文件名都没有变（还是原文件名，没有进行重命名）