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

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

已解决！！

idwma

1. 
   
2. #@&cls&powershell "type %~s0|out-string|iex"&pause&exit
   
3. $a=gc a.txt
   
4. $shell=(new-object -com Shell.Application).namespace("$pwd")
   
5. $a|%{
   
6. $n=$_ -split ','
   
7. $shell.items()|?{$_.name -eq $(gi "$($n[0])*").name}|{
   
8. $wh=if($shell.GetDetailsOf($_, 31) -ne ''){
   
9. $shell.GetDetailsOf($_, 31) -split 'x' -replace '[^\d]'
   
10. $type='视频'
    
11. }elseif($shell.GetDetailsOf($_, 285) -ne ''){
    
12. $shell.GetDetailsOf($_, 285)
    
13. $shell.GetDetailsOf($_, 283)
    
14. $type='图片'
    
15. }
    
16. if($wh -ne $null){
    
17. $nn='{0:d6}' -f [int]$($_.name -replace "$n[0]" -split '.')[0]
    
18. ren $_.name $('{0}{1}__{2}--({3}x{4})--{5}' -f $type,$n[1],$nn,$wh[0],$wh[1],$_.name)
    
19. rv wh
    
20. }
    
21. }
    
22. }

复制代码

czvde

回复 2# idwma


    无法重命名，出现以下提示

1. 
   
2. Invoke-Expression : 只允许将表达式作为管道的第一个元素。
   
3. 所在位置 行:1 字符: 36
   
4. + type d:\测试\a.bat|out-string|iex <<<<
   
5.     + CategoryInfo          : ParserError: (:) [Invoke-Expression], ParseExcep
   
6.    tion
   
7.     + FullyQualifiedErrorId : ExpressionsMustBeFirstInPipeline,Microsoft.Power
   
8.    Shell.Commands.InvokeExpressionCommand
   
9. 
   
10. 请按任意键继续. . .

复制代码

idwma

回复 3# czvde


    第6行最后的{前面少了个%加上去

1. $shell.items()|?{$_.name -eq $(gi "$($n[0])*").name}|%{

复制代码

czvde

回复 4# idwma


    现在能运行

1. 请按任意键继续. . .

复制代码

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

idwma

回复 5# czvde


    再多试几次

czvde

回复 6# idwma


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

idwma

回复 7# czvde

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

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

went

test.bat
ansi编码,注意备份

1. #&cls&@cd /d "%~dp0" & powershell -c "Get-Content '%~0' | Out-String | Invoke-Expression" & pause&exit
   
2. $shell = New-Object -ComObject 'Shell.Application'
   
3. $folder = $shell.NameSpace($PWD.Path)
   
4. #打开txt
   
5. $txts = Get-Content 'a.txt'
   
6. #找索引
   
7. $i = $index1 = $index2 = $index3 = $index4 = 0
   
8. while(!($index1 -and $index2 -and $index3 -and $index4)){
   
9.         if($folder.GetDetailsOf($null,$i) -eq '高度'){
   
10.                 $index1 = $i
    
11.         }
    
12.         elseif($folder.GetDetailsOf($null,$i) -eq '宽度'){
    
13.                 $index2 = $i
    
14.         }
    
15.         elseif($folder.GetDetailsOf($null,$i) -eq '帧高度'){
    
16.                 $index3 = $i
    
17.         }
    
18.         elseif($folder.GetDetailsOf($null,$i) -eq '帧宽度'){
    
19.                 $index4 = $i
    
20.         }
    
21.         ++$i
    
22. }
    
23. #重命名
    
24. $folder.Items() | foreach {
    
25.         $__ = $_
    
26.         $t = $name = $null
    
27.         if($_.Name -match '^(.*?)\d+\.((png)|(jpg))$'){
    
28.                 $t = '图片'; $name = $Matches[1]; $a = $index1; $b = $index2
    
29.         }
    
30.         elseif ($_.Name -match '^(.*?)\d+\.mp4$'){
    
31.                 $t = '视频'; $name = $Matches[1]; $a = $index3; $b = $index4
    
32.         }
    
33.         if($t -ne $null -and $a -match '\d'){
    
34.                 $b_find = $true
    
35.                 $txts | foreach{
    
36.                         if($b_find -and ($_ -match ('^{0}\d*,(.*?)$' -f $name)) ){
    
37.                                 $h = $folder.GetDetailsOf($__,$a) -replace '[^\d]',''
    
38.                                 $w = $folder.GetDetailsOf($__,$b) -replace '[^\d]',''
    
39.                                 $new_name = '{0}{1}__123--({2}x{3})——{4}' -f $t,$Matches[1],$h,$w,$__.Name
    
40.                                 $__.Name
    
41.                                 $new_name
    
42.                                 Rename-Item $__.Path $new_name
    
43.                                 $b_find = $false
    
44.                                 '---------------------------'
    
45.                         }
    
46.                 }
    
47.         }
    
48. }

复制代码

czvde

回复 10# went

1. 请按任意键继续. . .

复制代码

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

went

回复 11# czvde


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

czvde

回复 12# went


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

went

回复 13# czvde


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

czvde

回复 14# went


    可能是我这边系统问题吧