terse

觉得应该在24行后 判断文件名是否含关键词

terse

回复 5# lateol
试下

@echo off
cls
for /l %%i in (1,1,3) do echo.
color 1A
ECHO 　　　　　 　 ┏━━━━━━━━━━━━━━━━━━━━┓
ECHO 　　　　　    ┃ 　　　　　　　　　　　　　　　　       ┃
ECHO 　  ┏━━━━┫       当前选择：     刀具分类          ┣━━━━┓
ECHO 　  ┃　 　   ┃　　　　　　　　　　　　　　　 　     　┃　　    ┃
ECHO   　┃　      ┗━━━━━━━━━━━━━━━━━━━━┛　　    ┃
echo     ┃                     ==处理说明↓==                         ┃
echo.    ┃                                                            ┃
ECHO 　  ┃    ┗━━直接按回车默认选择“==NC==”文件夹处理━━┛      ┃
echo.    ┃                                                            ┃
echo.    ┏------------------------------------------------------------┓
echo     ┣    ★★★★★★====默认选择==NC==处理。====★★★★★★    ┫
echo.    ┗------------------------------------------------------------┛
echo.    ┃                                                            ┃
echo.    ┣========处理后自动在==NC==文件夹内生成N+个刀类文件名========┫
set /p DJFL=
echo     ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
echo     ┃              ===正在处理...以下为刀具信息！====            ┃
pushd "==NC==\"
@echo off&setlocal enabledelayedexpansion
for /f "tokens=1,2* delims=:" %%i in ('findstr /ic:"TOOL NAME = " /c:"(Cutter Name:" /c:"( DIA. = " /c:"(  Dia:" /c:"(Tool Name:" *.nc') do (
    if "!%%i!" == "" (
       set "str="
       if "%%k" == "" for /f "tokens=2-6 delims==,)" %%a in ("%%j") do (
          if "%%c" =="" (
             set D=%%a&set "R=%%b"
          ) else set D=%%c&set "R=%%e"
       ) else for /f "tokens=1-6 delims=:) " %%a in ("%%k") do (
                   if "%%d" neq "" (
                      set D=%%a&set "R=%%d"
                   ) else set "str=%%a"
               )

                if "!str!" == "" for %%f in (D R) do for /f %%h in ("!%%f!") do (
                    set "%%f=%%h"
                    for /l %%e in (1 1 6) do (
                        if "!%%f:~-1!" == "0" set "%%f=!%%f:~,-1!"
                    )

                    if "!%%f!" neq "0." (
                       if "!%%f:~-1!" == "." set "%%f=!%%f:~,-1!"
                       if "!%%f!" neq "" set "%%f=%%f!%%f!"
                    ) else set "%%f="
                    set "str=!D!!R!"
                )
                    md "!str!" 2>nul
                    set "f=%%~ni"
                    set "f=!f:~-2!"
                    set s=-G
                    for %%a in (A F1 R1) do if "!f:%%a=!" neq "!f!" set "s="
                    if not exist "1-!str!!s!.txt" cd.>"1-!str!!s!.txt"
                    copy "1-!str!!s!.txt"+"%%i" "1-!str!!s!.txt" >nul
                    move "%%i" "!str!" 2>nul
                    set "%%i=i"
                    echo                         %%i——【!str!】


    )
)
echo     ┠──────────────────────────────┨
echo     ┃               ===【刀具分类模拟完成！】===                 ┃
ECHO     ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
pause
复制代码

terse

set "f=%%~ni" 将文件名赋值给变量F

set "f=!f:~-2!" 截取文件名后两位

cd.>"1-!str!!s!.txt" 建空文件

"1-!str!!s!.txt"+"%%i" 合并文件