[文件操作] 批处理如何截取部分文件名建立文件夹并移动文件进文件夹？

koof2002

求助大神
我有的文件格式如下 320503-0001妙香庵20141120.jpg
                           320503-0001妙香庵20141120-1.jpg
                           320503-0001妙香庵20141120-2.jpg
                           320503-0002仓街25号**建筑20141120.jpg
                           320503-0002仓街25号**建筑20141120-1.jpg
                           320503-0003洙泗泉20141120.jpg
                           320503-0003洙泗泉20141120-2.jpg
                           ...........
如何建立文件夹320503-0001妙香庵
                     320503-0002仓街25号**建筑
                     320503-0003洙泗泉
并把照片放入呢？

apang

@set @n=0;/* & echo off
set J=cscript -nologo -e:jscript "%~0"
for /f "tokens=1*delims=/" %%a in ('dir /b *.jpg ^| %J%') do (
        md "%%a" 2>nul
        move "%%b" "%%a\"
)
pause & exit/b & rem */

s = WScript.StdIn.ReadAll().replace(/\r?\n/g, '\n');
s = s.replace(/^(.+?)\d+(-\d+)?\.jpg$/img, '$1/$&');
WScript.Echo(s.replace(/^[^/]+$/mg, ''))
复制代码

ww0000

回复 2# apang


    老师，如果我要改成以“-”为分割符，截取前面的为文件夹名呢？怎么改？谢谢