随风

也来一个。
:

@echo off
::也可将单个文件拖放到此批处理上，不用先运行本批处理
::单个文件拖放，支持其它路径的文件。
if not "%~1"==""  goto lis
for %%i in (*.txt) do call :lis "%%i"
pause&exit
:lis
set /p var=<"%~dpnx1"
for /f "tokens=2-4 delims=：年月日" %%a in ("%var%") do (
   set wjm=%~dpn1 %%a-%%b-%%c%~x1
)
for /f "tokens=1,2 delims=:" %%a in ('findstr /n .* "%~1"') do (
if "%%b"=="" (echo\>>"%wjm%") else echo.%%b>>"%wjm%"
)
del/q "%~1"
goto :eof
复制代码

[ 本帖最后由 随风 于 2007-12-5 22:24 编辑 ]