[文件操作] 求助批处理识别文件名创建文件夹并将文件移入

xukan

文件格式为：A_B_C_32P0001.JPG              D_E_F_54Ps0001.JPG
                  A_B_C_32P0002.JPG              D_E_F_54Ps0002.JPG
                              .                                               .
                              .                                               .
                              .                                               .
                  A_B_C_32P0032.JPG              D_E_F_54Ps0054.JPG
32P为图片数量，数量不固定。希望识别到数字+P截止，创建名称为A_B_C_32P和D_E_F_54P的文件夹并移入文件。
ABC DEF仅作举例，不是实际文件名。

aloha20200628

回复 1# xukan

以下代码存为 test.bat 运行，与源文件 *.jpg 同目录...

@echo off &setlocal enabledelayedexpansion
for /f "delims=" %%F in ('dir /b/a-d *_*p*.jpg') do (
   set "dd=%%~nF" &set "d=!dd!" &set "n=" &(call :cutEd)
   for %%k in (!k!) do (set "d=!dd:~,%%k!")
   if not exist "!d!\" md "!d!"
   move /y "%%F" "!d!\")
pause&exit/b
:cutEd
   if "!d!"=="" (exit/b) else set "c=!d:~-1!"
   if "!c!"=="_" (exit/b) else if /i "!c!"=="p" set "k=!n!"
   set "d=!d:~,-1!" &set/a "n-=1" &goto :cutEd
复制代码

xukan

回复 2# aloha20200628


    运行后部分结果如下
       _24p          _52p          _63p      
       _24pp        _52pap      _63p6p
   能否再优化一下，解决可能有多个P的情况。

aloha20200628

回复 3# xukan

2楼代码已更新，再试试吧...