VBA 对文件夹内的图片名称重新命名

ykcbf1100

参与一下。。。

ykcbf1100

纯练手。。。

1. Sub ykcbf()  '//2024.5.28
   
2.     Application.ScreenUpdating = False
   
3.     Set fso = CreateObject("scripting.filesystemobject")
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     '   p = "D:\Attachments"
   
6.     p = ThisWorkbook.path & ""
   
7.     On Error Resume Next
   
8.     Set ff = fso.GetFolder(p)
   
9.     For Each fd In ff.SubFolders
   
10.         st = Split(fd.Name, "-")(1)
    
11.         d.RemoveAll
    
12.         For Each f In fd.Files
    
13.             If InStr(f.Name, "~$") = 0 Then
    
14.                 fn = fso.GetExtensionName(f)
    
15.                 d(fn) = d(fn) + 1
    
16.                 fn1 = st & IIf(d(fn) = 1, "", "-" & d(fn) - 1) & "." & fn
    
17.                 f.Name = fn1
    
18.             End If
    
19.         Next f
    
20.     Next fd
    
21.     Application.ScreenUpdating = True
    
22.     MsgBox "OK！"
    
23. End Sub
    
24. 
    

复制代码

limonet

wanghan519 发表于 2024-5-28 12:28
大概是这里
其中$_.Extension获取的是图片的扩展名，比如.jpg、.png
$h里面是这样的@{".jpg"=1; ".png" ...

那能显示$h所有键与值吗？而不是更名。谢谢。

wanghan519

limonet 发表于 2024-5-28 13:18
那能显示$h所有键与值吗？而不是更名。谢谢。

1. Get-ChildItem 货品照片-* | % {
   
2.     $n=($_.Name -split '-')[-1]
   
3.     $h=@{}
   
4.     Get-ChildItem -Path $_ | Rename-Item -NewName {
   
5.         ($n+"-"+($h[$_.Extension]++)+$_.Extension) -replace '-0.','.'
   
6.         $h | ConvertTo-Json -Compress | Out-Host
   
7.     }
   
8. }

复制代码

大概就是转成json输出到窗口

rendiule01

ykcbf1100 发表于 2024-5-28 13:10
参与一下。。。

谢谢老师，去年的求助，今天还有人帮我解答，非常感谢

limonet

wanghan519 发表于 2024-5-28 12:28
大概是这里
其中$_.Extension获取的是图片的扩展名，比如.jpg、.png
$h里面是这样的@{".jpg"=1; ".png" ...

您好，老师，请教下：文件重命名从1开始，那这个代码怎么改？谢谢。

wanghan519

limonet 发表于 2024-5-29 09:26
您好，老师，请教下：文件重命名从1开始，那这个代码怎么改？谢谢。

最简单就是加1
(($h[...]++)+1)
或者改成判断，没定义就赋值1，否则，自增1

limonet

wanghan519 发表于 2024-5-29 09:47
最简单就是加1
(($h[...]++)+1)
或者改成判断，没定义就赋值1，否则，自增1

1、($h[$_.Extension]++)，这句太神奇了，既能分类图片扩展名，又能序号递增，怎么都想不透，这个就是差距！
2、如您所言，(($h[...]++)+1)已经成功了；但是，改成判断，没定义就赋值1，否则，自增1，这个怎么改？
谢谢。

wanghan519

limonet 发表于 2024-5-29 11:31
1、($h[$_.Extension]++)，这句太神奇了，既能分类图片扩展名，又能序号递增，怎么都想不透，这个就是差 ...

大概是这样：

1. Get-ChildItem 货品照片-* | % {
   
2.     $n=($_.Name -split '-')[-1]
   
3.     $h=@{}
   
4.     Get-ChildItem -Path $_ | Rename-Item -NewName {
   
5.         $e = $_.Extension
   
6.         if ($h.ContainsKey($e)) {
   
7.             $h[$e] += 1
   
8.         } else {
   
9.             $h[$e] = 1
   
10.         }
    
11.         $n+"-"+($h[$e])+$e
    
12.     }
    
13. }

复制代码

不敢当，学awk时我也觉得神奇，当时的原始工具awk、perl，就是用类似的技巧来去重、匹配的

ykcbf1100

rendiule01 发表于 2024-5-28 15:02
谢谢老师，去年的求助，今天还有人帮我解答，非常感谢

有人翻上来了，顺便做一下。