asnahu

@echo off&setlocal enabledelayedexpansion
echo 被评分者	评分时间	积分变动   评分理由
for /f "skip=6 delims=" %%i in ('findstr "td" _a.txt') do (
	set /a n+=1
	set var=!var!%%i
	if !n!==6 (
		set foo=!var!
		set foo=!foo: =!
		set foo=!foo:	=!
		for /f "tokens=3,13,16,18,22 delims=<>" %%a in ("!foo!") do (
			set flag=%%b
			call:sub %flag%
			call,echo/%%a        %%flag%%      %%c%%d    %%e
		)
		set var=
		set n=0
	)
)
pause>nul

:sub
set dt=%flag:~,-5%
set tm=%flag:~-5%
set "flag=%dt% %tm%"
goto :eof
复制代码

[ 本帖最后由 asnahu 于 2009-12-13 09:04 编辑 ]