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 编辑 ]

pumahxh

原帖由 batman 于 2009-12-12 20:40 发表
做点小小的提示：

    1、充分利用findstr的正则来解题。

    2、尽量采用一次性读取和输出以提高效率，即读取和输出同时进行。

    3、在获取链接地址时注意处理引号技巧的运用。

请问LZ，你提到的提示第2点：读出和输出同时进行，是什么意思？是读出a.txt的信息时，同时输出b.txt吗？在一个for语句中进行？
在获取链接地址时，我用"delims=""或"delims="""都得不到地址，最后用"delims= "才得到，特别是用"delims=""还报错！
用一个for一边读取一边输出，我改了下代码，不知是不是这样，但在程序开头和结尾加echo %time%来测算时间，和我前一种方法时间看不出差别。

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in ('findstr /i "</td> <b><a" a.txt') do (
    set/a n+=1
    if !n! lss 6 (
           for /f "tokens=3 delims=<>" %%j in ("%%i") do set "T=%%j"&set "T=!T:/=   !"
           set/p=!T! <nul>>b.txt   
           if !n! equ 5 echo.>>b.txt) else (
    set/a s=!n!%%6
    if !s! equ 0 (
       for /f "tokens=4 delims=<>" %%j in ("%%i!") do set/p=%%j  <nul>>b.txt)
    if !s! equ 1 (
       for /f "tokens=8 delims== " %%k in ("%%i!") do set/p=http://bbs.bathome.net/%%~k  <nul>>b.txt)
    if !s! equ 3 (
       for /f "tokens=4,7 delims=<>" %%l in ("%%i!") do (
                 set/p=%%l  <nul>>b.txt
                 set dt=%%m
                 set dt=!dt: =-!
                 set/p=!dt!  <nul>>b.txt))
    if !s! equ 4 (
       for /f "tokens=3,5 delims=<>" %%m in ("%%i!") do (
                 set pb=%%m
                 set pb=!pb: =!
                 set/p=!pb!%%n  <nul>>b.txt))
    if !s! equ 5 (
       for /f "tokens=3 delims=<>" %%n in ("%%i!") do echo %%n>>b.txt)
                 )
)
pause
复制代码

[ 本帖最后由 pumahxh 于 2009-12-12 23:24 编辑 ]

pumahxh

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in ('findstr /i "</td> <b><a" a.txt') do (
    set/a n+=1
    set str!n!=%%i
)
for /l %%i in (1,1,5) do (
    for /f "tokens=3 delims=<>" %%j in ("!str%%i!") do set "T=%%j"&set "T=!T:/=   !"
    set/p=!T! <nul>>b.txt   
)
echo.>>b.txt
for /l %%i in (6,1,%n%) do (
    set/a s=%%i%%6
    if !s! equ 0 (
       for /f "tokens=4 delims=<>" %%j in ("!str%%i!") do set/p=%%j  <nul>>b.txt)
    if !s! equ 1 (
       for /f "tokens=8 delims== " %%k in ("!str%%i!") do set/p=http://bbs.bathome.net/%%~k  <nul>>b.txt)
    if !s! equ 3 (
       for /f "tokens=4,7 delims=<>" %%l in ("!str%%i!") do (
                 set/p=%%l  <nul>>b.txt
                 set dt=%%m
                 set dt=!dt: =-!
                 set/p=!dt!  <nul>>b.txt))
    if !s! equ 4 (
       for /f "tokens=3,5 delims=<>" %%m in ("!str%%i!") do (
                 set pb=%%m
                 set pb=!pb: =!
                 set/p=!pb!%%n  <nul>>b.txt))
    if !s! equ 5 (
       for /f "tokens=3 delims=<>" %%n in ("!str%%i!") do echo %%n>>b.txt)

)
pause
复制代码

batman

做点小小的提示：

    1、充分利用findstr的正则来解题。

    2、尽量采用一次性读取和输出以提高效率，即读取和输出同时进行。

    3、在获取链接地址时注意处理引号技巧的运用。

pumahxh

楼主的题目非常好，在实际工作中很有借鉴意义，希望高手暂缓出手，等我们写完了，你们再指点，给出更好的解法。谢谢大家！

batman

依我的理解，应该不会出现兄弟这样的情况，不知兄弟用的是什么方法，逐行判断处理？

Seter

从15:00做到19:00...chenxin的OK了后面的不行吖....汗
无语,我讨厌大型数据

batman

&&我之所以在顶楼要求技术组和管理层暂不解题，就是想留给大家更多独立思考的时间，所以请大家都动脑想一想，动手练一练，

同时这样的问题你们在现实中是很有可能遇到的，只要独立解出了此题，相信以后你们碰到同样的问题，处理起来一定会得手应手。

batman

if !l! EQU 1 set/p=%%x%%y <nul  else ( 这是什么语法？

另结果不正确。。。

batman

1、结果肯定不是很正确，时间的输出格式是09-12-4-09:05，PB的输出应该是PB+5式样（都要处理其中的空格）。

2、我在顶楼要求b.txt中所有信息都要从网页源码中获取，即你并不知道要提取的信息具体内容，所以echo 被评分者 评分时间 积分
变动 评分理由>b.txt有点投机了。

3、效率上是存在着一定的问题，具体也不多说了。

4、总之完成的还可以，继续加油！

pumahxh

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in ('findstr "</td>" a.txt') do (
    set/a n+=1
    set str!n!=%%i
)
echo 被评分者 评分时间 积分变动 评分理由>b.txt
for /l %%i in (6,1,%n%) do (
    set/a num+=1
    set/a s=%%i%%5
    if !s! equ 1 (
       for /f "tokens=4 delims=<>" %%j in ("!str%%i!") do set/p=%%j  <nul>>b.txt)
    if !s! equ 3 (
       for /f "tokens=7 delims=<>" %%k in ("!str%%i!") do set/p=%%k  <nul>>b.txt)
    if !s! equ 4 (
       for /f "tokens=5 delims=<>" %%l in ("!str%%i!") do set/p=%%l  <nul>>b.txt)
    if !s! equ 0 (
       for /f "tokens=3 delims=<>" %%m in ("!str%%i!") do echo %%m>>b.txt)

)
pause
复制代码

[ 本帖最后由 pumahxh 于 2009-12-11 20:41 编辑 ]

caruko

原来跟我文本的版本不一样..=.=
加了个括号, 1,5,8 改1,5,8*

@echo off
set /a n=0
for /f "delims=*" %%i in ('findstr /i /n "class=.time." a.txt') do (
        set "var=%%i"
        setlocal enabledelayedexpansion
        if !n! LEQ 0 (
            for /f "tokens=4 delims=:<>" %%a in ("!var!") do (
                set top=%%a
                set top=!top:/=      !
                echo !top!
              )
        )else (
            for /f "tokens=1,5,8* delims=:<>" %%a in ("!var!") do (
                set /a cow=%%a
                set "uname=%%b"
                set "pbdate=%%c"
                set "d=%%d"
                set "pbdate=!pbdate: =-!:!d:~0,2!"
                set/p=!uname! !pbdate! <nul
                call :getpb !cow!
              )
        )
        endlocal
        set /a n+=1
)
pause
goto :eof
:getpb
for /f "skip=%1 tokens=3,5 delims=<>" %%x in (a.txt) do (
    set /a l+=1
    if !l! EQU 1 (set/p=%%x%%y <nul )  else (
        set/p=%%x <nul
        echo,
        goto :eof
    )
)
复制代码

[ 本帖最后由 caruko 于 2009-12-14 11:56 编辑 ]