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

ykcbf1100 · 发表于 2024-5-29 11:48

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

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

wanghan519 · 发表于 2024-5-29 11:56

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

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

双眼皮lsk · 发表于 2024-5-29 22:06

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

limonet · 发表于 2024-6-5 14:46

本帖最后由 limonet 于 2024-6-5 14:47 编辑

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

limonet · 发表于 2024-6-5 14:48

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

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

[求助] VBA 对文件夹内的图片名称重新命名

评分