@echo off
rem 根据从文件名中指定字符串/关键词开始截取指定位数的字符来移动文件到对应文件夹
cd /d "%~dp0"
set "keyword=板件料单"
set "n=4"
powershell -NoProfile -ExecutionPolicy bypass ^
    $files=@(dir^|?{($_ -is [System.IO.FileInfo]) -and ($_.Name -ne '%~nx0')});^
    for($i=0;$i -lt $files.length;$i++){^
        $n=$files[$i].BaseName.IndexOf('%keyword%');^
        if($n -ge 0){^
            $s=$files[$i].BaseName.Substring($n);^
            if($s.length -ge %n%){^
                $kw=$s.Substring(0,%n%);^
                [void](md $kw -force);^
                $txt=$files[$i].Directory.FullName+'\'+$kw+'\%n%.txt';^
                out-file -file $txt -input $kw -enc Default;^
                write-host ($files[$i].Name+' --^> '+$kw);^
                mv -liter $files[$i].FullName ($files[$i].Directory.FullName+'\'+$kw);^
            };^
        };^
    }
set "keyword=报价单"
set "n=3"
powershell -NoProfile -ExecutionPolicy bypass ^
    $files=@(dir^|?{($_ -is [System.IO.FileInfo]) -and ($_.Name -ne '%~nx0')});^
    for($i=0;$i -lt $files.length;$i++){^
        $n=$files[$i].BaseName.IndexOf('%keyword%');^
        if($n -ge 0){^
            $s=$files[$i].BaseName.Substring($n);^
            if($s.length -ge %n%){^
                $kw=$s.Substring(0,%n%);^
                [void](md $kw -force);^
                $txt=$files[$i].Directory.FullName+'\'+$kw+'\%n%.txt';^
                out-file -file $txt -input $kw -enc Default;^
                write-host ($files[$i].Name+' --^> '+$kw);^
                mv -liter $files[$i].FullName ($files[$i].Directory.FullName+'\'+$kw);^
            };^
        };^
    }
set "keyword=配件料单"
set "n=4"
powershell -NoProfile -ExecutionPolicy bypass ^
    $files=@(dir^|?{($_ -is [System.IO.FileInfo]) -and ($_.Name -ne '%~nx0')});^
    for($i=0;$i -lt $files.length;$i++){^
        $n=$files[$i].BaseName.IndexOf('%keyword%');^
        if($n -ge 0){^
            $s=$files[$i].BaseName.Substring($n);^
            if($s.length -ge %n%){^
                $kw=$s.Substring(0,%n%);^
                [void](md $kw -force);^
                $txt=$files[$i].Directory.FullName+'\'+$kw+'\%n%.txt';^
                out-file -file $txt -input $kw -enc Default;^
                write-host ($files[$i].Name+' --^> '+$kw);^
                mv -liter $files[$i].FullName ($files[$i].Directory.FullName+'\'+$kw);^
            };^
        };^
    }

del /a /s /q *.txt
del /a /s /q *.xml

cd /d "%~dp0"
set "newfolder=模型"
if not exist "%newfolder%" md "%newfolder%"
for %%a in (bmp) do (
    if exist *.%%a move /y *.%%a "%newfolder%\"
)

set "newfolder=模型"
if not exist "%newfolder%" md "%newfolder%"
for %%a in (bmp) do (
    if exist *.%%a move /y *.%%a "%newfolder%\"
)
echo;移动已完成！
复制代码

cd /d "%~dp0"
set "keyword0=MY BL"
set "keyword1=板件料单 报价单 配件料单"

for /f "delims=" %%a in ('dir /b /a-d ^| findstr "%keyword0%"') do xcopy /y "%%a" "keyword0\"
for %%i in (%keyword1%) do (
      md "%%i"
      for /f "delims=" %%a in ('dir /b /a-d ^| findstr /c:"%%i"') do move /y "%%a" "%%i\"
)

if not exist "模型" md "模型"
if exist *.bmp move /y *.bmp "模型\"
echo,移动已完成！&pause>nul
复制代码