[已解决]BAT能否将根目录下的文件创建并移动到对应的子文件夹[附半成品代码]

playinthesky

各位大侠，真心求教

根目录下，文件名：
J038-2007-10年-0001-0001.jpg
J038-2007-30年-0001-0001.jpg
J038-2012-永久-0001-0002.jpg
J038-2012-永久-0001-0003.jpg
J038-2012-永久-0001-0004.jpg
J038-2012-永久-0001-0005.jpg
J038-2012-永久-0001-0006.jpg
J038-2012-永久-0002-0001.jpg
J038-2012-永久-0002-0002.jpg
J038-2012-永久-0002-0003.jpg
J038-2012-永久-0002-0004.jpg
J038-2012-永久-0003-0001.jpg
J038-2012-永久-0003-0002.jpg
.........

非常多个文件

然后在根目录下，能否创建名为
J038-2007-10年-0001
J038-2007-30年-0001
J038-2012-永久-0001
J038-2012-永久-0002
J038-2012-永久-0003
J038-2012-永久-0004
J038-2012-永久-0005
...........
的文件夹，并将之前根目录下的文件复制一份到子目录下？

就是根据 delims

能否创建文件名命名的文件夹

实现效果为

根目录下

J038-2012-永久-0001  的文件夹 下有

J038-2012-永久-0001-0002.jpg
J038-2012-永久-0001-0003.jpg
J038-2012-永久-0001-0004.jpg
J038-2012-永久-0001-0005.jpg
J038-2012-永久-0001-0006.jpg

J038-2012-永久-0002  的文件夹 下有

J038-2012-永久-0002-0001.jpg
J038-2012-永久-0002-0002.jpg
J038-2012-永久-0002-0003.jpg
J038-2012-永久-0002-0004.jpg

.............

以此类推

能否实现，求教各位高手！！

我的思路是   把所有文件名的最后一个“-”的截断，写入到一个文本文件，然后用 FOR 语句 历遍这个whole.txt 文本，创建出文件夹，但是在根目录下创建文件夹不太会，是否有高手帮忙完成，谢谢各位达人。

1. 
   
2. @echo off
   
3. for %%i in (*.jpg) do (
   
4. for /f "tokens=*" %%a in (whole.txt) do (
   
5. echo %%a | findstr "%%i" && move %%i %%a))  
   

复制代码

playinthesky

我想到方法了，但是

1. 
   
2. @echo off
   
3. for %%a in (*.jpg) do for /f "tokens=1-4 delims=-" %%b in ("%%a") do (
   
4. if not exist %%b md %%b
   
5. copy "%%a" %%b
   
6. )
   

复制代码

delims 似乎一直出问题，能否解决？总是截不到最前面的四段?

playinthesky

意思就是 截取到 J038-2012-永久-0001

playinthesky

1. 
   
2. @echo off
   
3. for %%a in (*.jpg) do for /f "tokens=1-4 delims=-" %%b in ("%%a") do (
   
4. if not exist %%b md %%b
   
5. copy "%%a" %%b
   
6. )
   

复制代码

为什么提取1到4列不成功？有高手吗？

terse

1. @echo off
   
2. for %%i in (*.jpg) do for /f "tokens=1-4 delims=-" %%a in ("%%i") do (
   
3.     if not exist "%%a-%%b-%%c-%%d\" md "%%a-%%b-%%c-%%d\"
   
4.     copy "%%i" "%%a-%%b-%%c-%%d\"
   
5. )
   
6. pause

复制代码

这样也可以

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. set "ph=%~dp0"
   
4. for /f "tokens=* delims=" %%i in ('dir /b /a-d *.jpg') do (
   
5.     set "str=%%i"
   
6.     for /f "delims=" %%j in ("!str:-=\!") do (
   
7.         set "str=%%~dpj"
   
8.         set "str=!str:~,-1!"
   
9.         set "str=!str:%ph%=!
   
10.         md "%ph%!str:\=-!" 2>nul
    
11.         if not exist "%ph%!str:\=-!\%%~nxi" copy "%%i" "%ph%!str:\=-!\!str:\=-!*.*"
    
12.     )
    
13. )
    
14. pause

复制代码

playinthesky

回复 5# terse


    超级谢谢啊，我还有一个问题，有点难度，能帮我解决了，就最最好了，我贴给你，我也是很困惑！

playinthesky

先谢谢你，我写已经解决，还有一个问题，我另外开帖说吧。