【已解决】BAT代码怎么写，批量放置每4张图片到顺序文件夹？ - BAT求助&讨论 - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS

返回列表发帖

ShowCode

VIP1

Rank: 8 Rank: 8

帖子: 517
积分: 1071
技术: 81
捐助: 298
注册时间: 2017-3-17

1楼 跳转到 »

发表于 2023-12-10 11:02 | 显示全部帖子

回复 6# wqj

图片顺序不连续V1.bat

@echo off
cd /d "%~dp0"
setlocal enabledelayedexpansion
set "MaxNum=2"
for /l %%i in (1,1,10) do (
    md "%%i" 2>nul
    set "FileNum=0"
    for /l %%j in (1,1,100) do (
        if !FileNum! lss !MaxNum! (
            if exist "%%j.jpg" (
                move "%%j.jpg" "%%i\"
                set /a FileNum+=1
            ) else if exist "%%j.jpeg" (
                move "%%j.jpeg" "%%i\"
                set /a FileNum+=1
            ) else if exist "%%j.png" (
                move "%%j.png" "%%i\"
                set /a FileNum+=1
            ) else if exist "%%j.bmp" (
                move "%%j.bmp" "%%i\"
                set /a FileNum+=1
            )
        )
    )
)
复制代码

测试代码之前请做好备份

TOP

ShowCode

VIP1

Rank: 8 Rank: 8

帖子: 517
积分: 1071
技术: 81
捐助: 298
注册时间: 2017-3-17

2楼

发表于 2023-12-10 11:06 | 显示全部帖子

回复 6# wqj

图片顺序不连续V2.bat

@echo off
cd /d "%~dp0"
setlocal enabledelayedexpansion
set "MaxNum=2"
for /l %%i in (1,1,10) do (
    call :HandleFolder %%i
)

:HandleFolder
md "%1" 2>nul
set "FileNum=0"
for /l %%j in (1,1,100) do (
    if !FileNum! lss !MaxNum! (
        if exist "%%j.jpg" (
            move "%%j.jpg" "%1\"
            set /a FileNum+=1
        ) else if exist "%%j.jpeg" (
            move "%%j.jpeg" "%1\"
            set /a FileNum+=1
        ) else if exist "%%j.png" (
            move "%%j.png" "%1\"
            set /a FileNum+=1
        ) else if exist "%%j.bmp" (
            move "%%j.bmp" "%1\"
            set /a FileNum+=1
        )
    ) else (
        goto :eof
    )
)
复制代码

测试代码之前请做好备份

TOP

ShowCode

VIP1

Rank: 8 Rank: 8

帖子: 517
积分: 1071
技术: 81
捐助: 298
注册时间: 2017-3-17

3楼

发表于 2023-12-10 13:11 | 显示全部帖子

回复 10# wqj

图片顺序不连续V1.1.bat

@echo off
cd /d "%~dp0"
setlocal enabledelayedexpansion
set "MaxNum=2"
for /l %%i in (1,1,10) do (
    md "%%i" 2>nul
    set "FileNum=0"
    for /l %%j in (1,1,100) do (
        if !FileNum! lss !MaxNum! (
            if exist "新 (%%j).jpg" (
                move "新 (%%j).jpg" "%%i\"
                set /a FileNum+=1
            ) else if exist "新 (%%j).jpeg" (
                move "新 (%%j).jpeg" "%%i\"
                set /a FileNum+=1
            ) else if exist "新 (%%j).png" (
                move "新 (%%j).png" "%%i\"
                set /a FileNum+=1
            ) else if exist "新 (%%j).bmp" (
                move "新 (%%j).bmp" "%%i\"
                set /a FileNum+=1
            )
        )
    )
)
复制代码

测试代码之前请做好备份

TOP

ShowCode

VIP1

Rank: 8 Rank: 8

帖子: 517
积分: 1071
技术: 81
捐助: 298
注册时间: 2017-3-17

4楼

发表于 2023-12-10 14:26 | 显示全部帖子

回复 12# wqj

图片顺序不连续V1.2.bat

@echo off
cd /d "%~dp0"
setlocal enabledelayedexpansion
set "MaxNum=2"
for /l %%i in (1,1,10) do (
    md "新建 (%%i)" 2>nul
    set "FileNum=0"
    for /l %%j in (1,1,100) do (
        if !FileNum! lss !MaxNum! (
            if exist "%%j.jpg" (
                move "%%j.jpg" "新建 (%%i)\"
                set /a FileNum+=1
            ) else if exist "%%j.jpeg" (
                move "%%j.jpeg" "新建 (%%i)\"
                set /a FileNum+=1
            ) else if exist "%%j.png" (
                move "%%j.png" "新建 (%%i)\"
                set /a FileNum+=1
            ) else if exist "%%j.bmp" (
                move "%%j.bmp" "新建 (%%i)\"
                set /a FileNum+=1
            )
        )
    )
)
复制代码

测试代码之前请做好备份

TOP

ShowCode

VIP1

Rank: 8 Rank: 8

帖子: 517
积分: 1071
技术: 81
捐助: 298
注册时间: 2017-3-17

5楼

发表于 2023-12-10 18:35 | 显示全部帖子

回复 14# wqj

图片顺序不连续V1.3.bat

@echo off
cd /d "%~dp0"
setlocal enabledelayedexpansion
set "MaxNum=2"
for /l %%i in (10,-1,1) do (
    md "新建 (%%i)" 2>nul
    set "FileNum=0"
    for /l %%j in (1,1,100) do (
        if !FileNum! lss !MaxNum! (
            if exist "%%j.jpg" (
                move "%%j.jpg" "新建 (%%i)\"
                set /a FileNum+=1
            ) else if exist "%%j.jpeg" (
                move "%%j.jpeg" "新建 (%%i)\"
                set /a FileNum+=1
            ) else if exist "%%j.png" (
                move "%%j.png" "新建 (%%i)\"
                set /a FileNum+=1
            ) else if exist "%%j.bmp" (
                move "%%j.bmp" "新建 (%%i)\"
                set /a FileNum+=1
            )
        )
    )
)
复制代码

测试代码之前请做好备份

TOP

ShowCode

VIP1

Rank: 8 Rank: 8

帖子: 517
积分: 1071
技术: 81
捐助: 298
注册时间: 2017-3-17

6楼

发表于 2023-12-12 09:40 | 显示全部帖子

回复 18# wqj

请按照2楼的步骤操作

测试代码之前请做好备份

TOP

ShowCode

VIP1

Rank: 8 Rank: 8

帖子: 517
积分: 1071
技术: 81
捐助: 298
注册时间: 2017-3-17

7楼

发表于 2023-12-12 10:23 | 显示全部帖子

回复 20# wqj

我写的代码不需要你重复的发出来。因为这对于我理解你的需求没有任何帮助。
我只需要知道需求是怎样。哪里的文件名换成这样？移动之前还是移动之后？
文字加截图描述清楚你的需求就够了。
具体步骤请看2楼。

测试代码之前请做好备份

TOP

ShowCode

VIP1

Rank: 8 Rank: 8

帖子: 517
积分: 1071
技术: 81
捐助: 298
注册时间: 2017-3-17

8楼

发表于 2023-12-12 11:15 | 显示全部帖子

回复 23# wqj

@echo off
cd /d "%~dp0"
setlocal enabledelayedexpansion
set "MaxNum=2"
for /l %%i in (1,1,10) do (
    md "%%i" 2>nul
    set "FileNum=0"
    for /l %%j in (10001,1,10999) do (
        set "FileSeq=%%j"
        set "FileSeq=!FileSeq:~-4!"
        if !FileNum! lss !MaxNum! (
            if exist "新!FileSeq!.jpg" (
                move "新!FileSeq!.jpg" "%%i\"
                set /a FileNum+=1
            ) else if exist "新!FileSeq!.jpeg" (
                move "新!FileSeq!.jpeg" "%%i\"
                set /a FileNum+=1
            ) else if exist "新!FileSeq!.png" (
                move "新!FileSeq!.png" "%%i\"
                set /a FileNum+=1
            ) else if exist "新!FileSeq!.bmp" (
                move "新!FileSeq!.bmp" "%%i\"
                set /a FileNum+=1
            )
        )
    )
)
复制代码

1 评分人数

Batcher: 乐于助人技术 + 1

测试代码之前请做好备份

TOP

ShowCode

VIP1

Rank: 8 Rank: 8

帖子: 517
积分: 1071
技术: 81
捐助: 298
注册时间: 2017-3-17

9楼

发表于 2024-3-20 21:54 | 显示全部帖子

回复 26# wqj

哪个文件夹已经存在？那种情况下24楼的代码结果和你希望的结果有什么差异？

测试代码之前请做好备份

TOP

返回列表

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]