[文本处理] [已解决]批处理用文件內容批次改名？

@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION
FOR /F "DELIMS=" %%T IN ('DIR/B *.TXT')DO (
　SET ORS=&SET ORT=
　FOR /F "DELIMS=" %%A IN ('TYPE "%%T"^|FINDSTR /N "\. ("')DO (
　　SET "STR=%%A"
　　SET STR=!STR:*.=!
　　IF NOT DEFINED ORS SET ORS=!STR:*:=!
　　FOR /F "TOKENS=2 DELIMS=()" %%B IN ("%%A")DO (
　　　IF NOT DEFINED ORT SET ORT=%%B
　　)
　)
　CALL :CN "%%T" ORS !ORT!
)

PAUSE
GOTO :EOF
:CN STR1VAR STR2
ECHO,REN %1 "%3!%2:/=!%~X1"
复制代码

@echo off
for /f "delims=" %%i in ('dir /a-d /b *.txt') do (
  set "Name=%%i"
  for /f "tokens=1* delims=[]" %%a in ('find /v /n ""^<"%%i"') do (
    if %%a equ 2 (
      for %%c in (%%b) do set "a=%%c"
    )
    if %%a equ 3 (
      for /f "delims=() " %%c in ("%%b") do set "b=%%c"
    )
  )
  setlocal enabledelayedexpansion
  Ren "!Name!" "!b! !a:/=!.txt"
  endlocal
)
pause
复制代码

@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION
FOR /F "DELIMS=" %%T IN ('DIR/B *.TXT')DO (
　SET ORS=&SET ORT=
　FOR /F "TOKENS=1* DELIMS=:" %%M IN ('TYPE "%%T"^|FINDSTR /N "\. ("')DO (
　　SET "STR=%%N"
　　IF %%M#==2# SET "ORS=!STR:~59,16!"
　　IF %%M#==3# SET "ORT=!STR:~4,5!"
　)
　ECHO,REN "%%T" "!ORT!!ORS:/=!%%~XT"
)
PAUSE
复制代码

@echo off
set abc= --------------------------------------------------------------------------
for /f "delims=" %%i in ('dir /a-d /b *.txt') do (
  set "Name=%%i"
  for /f "tokens=1* delims=[]" %%a in ('find /v /n ""^<"%%i"') do (
    if %%a equ 2 (
      for %%d in (%%b) do set "a=%%d"
    )
    if %%a equ 3 (
      for /f "delims=() " %%d in ("%%b") do set "b=%%d"
    )
    if %%a equ 21=(	
      for /f "delims=        " %%d in ("%%b") do set "c=%%d"   
    )
  )

  setlocal enabledelayedexpansion
  Ren "!Name!" "!b!!c! !a:/=!.txt"
  endlocal
)
Pause
复制代码

@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION
SET FG=---
FOR /F "DELIMS=" %%T IN ('DIR/B *.TXT')DO (
　SET ORS=&SET ORT=&SET TIT=&SET A=
　CALL :CN "%%T"
　ECHO,REN "%%T" "!ORT!!TIT!!ORS:/=!%%~XT"
)
PAUSE
GOTO :EOF
:CN FILE
FOR /F "SKIP=1 TOKENS=1* DELIMS=:" %%M IN ('TYPE "%~1"^|FINDSTR /N .*')DO (
　SET "S=%%N "
　IF %%M#==2# SET "ORS=!S:~60,12!"
　IF %%M#==3# SET "ORT=!S:~4,5!"
　IF NOT "!S:%FG%=!"=="!S!" IF NOT DEFINED A SET/aA=%%M+3
　IF %%M#==!A!# SET "TIT=!S!"&GOTO :EOF
)
复制代码