@echo off
for %%a in (*.txt) do (
   setlocal enabledelayedexpansion
   (for /F "usebackq delims=" %%b in ("%%a") do (
      if defined b (echo.%%b) else set "a=%%b"
      set b==
   ))>$
   ren $ "!a!.txt"
   del /q /f "%%a"
   Endlocal
)
复制代码

@echo off
setlocal enabledelayedexpansion
for %%a in (*.txt) do (
for /f "tokens=1,* delims=:" %%a in ('findstr /n .* "%%a"') do (
  if %%a equ 1 set name=%%b
  if %%a geq 3 (echo.%%b >>!name!.txt)
)
del /q /f "%%a"
)
endlocal
pause
复制代码

@echo off
for %%a in (*.txt) do (
   set /p num=<"%%a"
   set "wjm=%%~nxa"
   setlocal enabledelayedexpansion
   more +2 "!wjm!">tem
   move tem "!num!.txt"
   del /q "!wjm!"
   endlocal
)
pause
复制代码

set fso=createobject("scripting.filesystemobject")
set fd=fso.getfolder(".")
fpath=fd.path
set fo=fso.getfolder(fpath)
set fc=fo.files
for each f in fc
    ext=f.type
    if ext="文本文档" then
        strtext=""
        set rfile=fso.opentextfile(f)
        fname=rfile.readline
        rfile.skipline
        do until rfile.atendofstream=true
            strline=rfile.readline
            strtext=strtext&strline&vbcrlf
        loop
        rfile.close
        set wfile=fso.opentextfile(f,2)
        wfile.write strtext
        wfile.close
        newname=fname&".txt"
        f.name=newname
    end if
next
复制代码

@echo off
for /f "delims=" %%a in ('dir /a:-d /b *.txt') do (
    set OldName=%%a
    set /p NewName=<"%%a"
    SetLocal EnableDelayedExpansion
    more +2 "!OldName!" > "!NewName!.txt"
    EndLocal
    del /a /f "%%a"
)
复制代码