apang

试试

@echo off
::判断是否拖拽文件夹
if "%~1"=="" echo 请拖拽文件夹&pause&goto :eof
if not exist "%~1\" echo 请拖拽文件夹&pause&goto :eof
::修改PAV.PRJ前两行
for /f "delims=" %%a in ('dir /a-d /b /s "%~1\PAV.PRJ"') do (
  (echo,工程名=工业园路-立健药业公司+园发路-上行-1车道-20120515034553
  echo,线路名=园发路
  for /f "usebackq skip=2 delims=" %%b in ("%%a") do echo,%%b)>"%%~dpa$"
  move "%%~dpa$" "%%a"
)
::修改文件夹名
for /f "delims=" %%a in ('dir /ad /b /s "%~1"') do (
  if "%%~nxa"=="园发路+工业园路至立健药业公司-上行-1车道-20120515034553" (
    ren "%%a" "工业园路-立健药业公司+园发路-上行-1车道-20120515034553"
  )
)
复制代码

apang

楼主咋不早说清意图咧？揣摩了好久，还不知对不对

@echo off
if "%~1"=="" echo 请拖拽文件夹&pause&goto :eof
if not exist "%~1\" echo 请拖拽文件夹&pause&goto :eof
for /f "delims=" %%a in ('dir /a-d /b /s "%~1\PAV.PRJ"') do (
  for %%b in ("%%~dpa..") do (
    for /f "tokens=1-3* delims=+-至" %%c in ("%%~nxb") do (
      (echo,工程名=%%d-%%e+%%c-%%f
      echo,线路名=%%c
      for /f "usebackq skip=2 delims=" %%g in ("%%a") do echo,%%g)>"%%~dpa$"
      move "%%~dpa$" "%%a"
      ren "%%~fb" "%%d-%%e+%%c-%%f"
    )
  )
)
复制代码