@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!"
                           set "%%f=%%f!%%f!"
                        ) else set "%%f="
                )
                          set "str=!D!!R!"
            )
                      set str2=!str:~-1!
     IF /I '!str2!' =='R' set str=!str:~0,-1!
)
                          
echo                         %%i——【!str!】
                           md "!str!" 2>nul
                           move "%%i" "!str!" 2>nul
                           set "%%i=i"
    )
)
pause
echo     ┠──────────────────────────────┨
echo     ┃               ===【刀具分类模拟完成！】===                 ┃
ECHO     ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
pause
复制代码

for /f "tokens=2 delims=-" %%y in ("%%~ni") do (
   if not "%%y"=="A" if not "%%y"=="F1" (
   	type "%%i">>"1-!str!-G.txt"
   ) else type "%%i">>"1-!str!.txt" 
)
复制代码

@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
复制代码

set "com=dir /b/a-d %%a\*.nc^|findstr /iv ".*A\.nc .*F1\.nc .*R1\.nc""
for /d %%a in (*) do (
    copy /b "%%a\*A.nc"+ /b "%%a\*F1.nc"+ /b "%%a\*R1.nc" "1-%%a.txt" /y
    for /f "delims=" %%b in ('%com%') do type "%%a\%%~nxb" >> "1-%%a-G.txt"
)
复制代码