求一个批处理脚本重命名拖拽图片

gytqqq

A为一个空文件夹
我从其他文件夹拖拽图片到A文件夹，使图片命名为0001，再拖拽一张图片命名为0002，以此类推。谢谢给位大佬。麻烦支持的图片格式尽量全一些。

其他文件夹与A文件夹不在同一个盘符，拖拽即复制。

20元酬谢，如果实现起来略复杂可酌情加钱。

win10系统环境

非常感谢wujunkai和Gin_Q二位的帮忙
我会为两位都转账的 谢谢

yangjiangh

这个真的很好 学些了

gytqqq

回复 15# Gin_Q


    给您转过去 17:28 您查收下

Gin_Q

回复 14# gytqqq


    你不转账就算了，何必说有偿求助呢！

gytqqq

回复 12# Gin_Q


    您好 能不能拖拽完文件不用回车啊 直接更名 文件多了有点吃不消了。。。。

Gin_Q

回复 10# gytqqq


    二楼我已经更新了程序，支持任意格式文件！

Gin_Q

1358491044@qq.com

wujunkai

回复 9# gytqqq


    没有支付宝。。。微信可？18906991102

gytqqq

回复 7# Gin_Q


    谢谢 暂时测试没有问题 我给您转账 支付宝账号给我

gytqqq

回复 8# wujunkai


    谢谢 暂时测试没有问题 我给您转账 支付宝账号给我

wujunkai

回复 5# gytqqq


    抱歉，在细节的处理上有点问题，已改正。

@echo off
@setlocal enabledelayedexpansion
 
set num=1
set name=0001
call:count
 
:main
    for /R %%i in (*.jpg,*.jpeg,*.png,*gif,*.bmp,*.ico,*.dib,*.jpe) do (
        if not %%~ni LSS %num% (
            rem echo rename "%%i" %name%%%~xi ----  %num%
            rename "%%i" %name%%%~xi
            set /A num=num+1
            call:int
            goto:main
        )
    )
    call:sleep 125
goto:main
 
:count
    rem 计算已重命名的文件数
    if exist %num%.jpg (
        set /A num=num+1
        call:int
        goto:count
    )
goto:eof
 
:int
    rem 统一格式
    set name=00000%num%
    set name=%name:~-4%
goto:eof
 
:sleep
    rem 防高频
    echo WScript.sleep %1 > sleep.vbs
    start /wait sleep.vbs
    del sleep.vbs
goto:eofCOPY

觉得满意的话请付款[滑稽]

Gin_Q

回复 6# gytqqq


    把脚本另存为ANSI格式

gytqqq

回复 2# Gin_Q


    乱码 看不懂啊

gytqqq

回复 3# wujunkai


    生成的文件都带点。。。比如0001. 0002. 0003. 能不能把点去掉

qazplm

<# :
cls
@echo off
rem 有问题,可加QQ956535081及时沟通
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::Default)))"
pause
exit
#>
$folder='.';
$dic=New-Object 'System.Collections.Generic.Dictionary[string,int]';
for($i=100001;$i -le 199999;$i++){
    $n=$i.toString().Substring(1);
    $dic.Add($n,0);
};
$files=@(dir -liter $folder|?{('.bat' -ne $_.Extension) -and ($_ -is [System.IO.FileInfo])});
for($i=0;$i -lt $files.length;$i++){
    $base=$files[$i].BaseName;
    if(-not $dic.ContainsKey($base)){
        foreach($it in $dic.Keys){
            if($dic[$it] -eq 0){
                $newname=$it+$files[$i].Extension;
                write-host ($files[$i].Name+' --> '+$newname);
                mv -liter $files[$i].FullName ($files[$i].Directory.FullName+'\'+$newname);
                $dic[$it]++;break;
            };
        };
    }else{$dic[$base]++};
}COPY