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

ykcbf1100

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

[$_.Extension]就是扩展名了，++就是递增了。
我虽然不会，但这个还是能够理解的。

wanghan519

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

说句题外话，类似的shell环境都是这样
使用字典等变量前不用声明
把文本a.txt的每一行，当成字典d的key，值自增1，如果等于1，意味着这一行第一次出现，print出来就是文本去重，以前的shell环境好多时候都这样写。。。

双眼皮lsk

这个使用起来比较方便，你试一下。

limonet

关键字：$()，现学现卖，感谢wanghan519及各位老师。

limonet

Sub limonet()
    CreateObject("wscript.shell").Run "powershell push-location " & ThisWorkbook.Path _
    & ";Dir -Dir | % {$n=($_.Name -split '-')[-1];$h=@{};Dir -Path $_ | Ren -NewName " _
    & "{$n+$(if((++$h[$_.Extension]) -eq 1) {''} else {'-{0}' -f ($h[$_.Extension]-1)})+$_.Extension}}", 0
End Sub