@Echo Off

Set "Str=园发路+工业园路至立健药业公司-上行-1车道-20120515034553"

For /F "tokens=1-6 delims=至+-" %%A In ("%Str%") Do (
	Echo %%A %%B %%C %%D %%E %%F
	Echo %%B-%%C+%%A-%%D-%%E-%%F
)
Pause
复制代码

工程名=园发路
线路名=工业园路至立健药业公司
路幅=上行
车道=1车道
公路等级=二级公路
施测方向=顺测
匝道=
测量单位=XX
操作员=XXX
产权单位=XXX
天气=晴
路面类型=沥青
工程底图=D:\VMSControl\MapData\Maps\CHINA.GST
起始桩号=0K0M
终止桩号=0K211M
复制代码

工程名=工业园路-立健药业公司+园发路-上行-1车道-20120515034553
线路名=园发路
复制代码

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

├─三联路+人民路至清龙路-上行-1车道-20120512164136
├─三联路+清龙路至人民路-下行-1车道-20120512165055
├─东环二路+布龙路至龙观路-下行-1车道-20120512141403
├─东环二路+龙观路至布龙路-上行-1车道-20120512143303
├─公园路1+人民路至工业路-上行-1车道-20120512165946
├─公园路1+工业路至人民路-下行-1车道-20120512163757
├─北环路+人民路至望成路-上行-1车道-20120512155557
├─北环路+望成路至人民路-下行-1车道-20120512154709
├─建设路1+工业路至清泉路-上行-1车道-20120512151447
├─建设路1+清泉路至工业路-下行-1车道-20120512162317
├─清泉路+北环路至民清路-上行-1车道-20120512160604
├─清泉路+民清路至建辉路-下行-1车道-20120512153028
├─清龙路+三联路至梅龙路-下行-1车道-20120512170655
└─清龙路+梅龙路至三联路-上行-1车道-20120512171636
复制代码

@echo off

::判断是否拖拽文件夹
if "%~1"=="" echo 请拖拽文件夹&pause&goto :eof
if not exist "%~1\" echo 请拖拽文件夹&pause&goto :eof

::修改文件夹名
for /f "tokens=1-6 delims=至+-" %%a in ("%~1") do (
    ren "%~1" "%%B-%%C+%%A-%%D-%%E-%%F"

::修改PAV.PRJ前两行
for /f "delims=" %%a in ('dir /a-d /b /s "%~1\PAV.PRJ"') do (
  (echo,工程名=%%%~1!%%
  echo,线路名=%%%%A%%
  for /f "usebackq skip=2 delims=" %%b in ("%%a") do echo,%%b)>"%%~dpa$"
  move "%%~dpa$" "%%a"
)

)
复制代码

@echo off
:main
cls
set str=
set /p str=    请输入字符串(退出请直接按回车)：
if not defined str exit
cls
echo.
echo            转换前："%str%"
for %%i in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do call set str=%%str:%%i=%%i%%
echo ____________________________________________
echo.
echo            转换后："%str%"
echo.
echo                     按任意键进行下一次演示...
pause>nul
goto main
复制代码

setlocal enabledelayedexpansion
for %%i in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do call set str=!str:%%i=%%i!
复制代码

@echo off
setlocal enableDelayedExpansion
for /f "tokens=*" %%i in ('dir /b /ad') do (
	set str=%%i&set "str=!str:~-14!"
	set "str1=工业园路-立健药业公司+园发路-上行-1车道-!str!"
	for /f "tokens=*" %%j in ('type "%%i\PROJECTINFO\PAV.PRJ"') do (
		set /a a+=1
		if !a! == 1 echo !str1!>>$
		if !a! == 2 echo 线路名=园发路>>$
		if !a! gtr 2 echo %%j>>$
	)
	set a=
	move /y $ %%i\PROJECTINFO\PAV.PRJ
	ren "%%i" "!str1!"
)
复制代码

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