QIAOXINGXING

曾经提问过类似问题：http://www.bathome.net/thread-15638-1-1.html

@echo off&SetLocal EnableDelayEdexpansion&cd /d "%~dp0"
Mode Con Cols=130 Lines=30
del /f index.html>nul 2>nul
wget http://www.bathome.net 1>nul 2>nul
for /f "delims=" %%a in (index.html) do (
  set "STR=%%a"
  if defined flag (
    echo 【!cont!】
    call :tiqu "%%a"
    set "flag="
  )
  for %%b in (最新主题 最新回复 热门主题) do (
    if "!STR!" neq "!STR:%%b=!" set "flag=1"&set "cont=%%b"
  )
)
pause&exit
:tiqu
for %%b in ("%~1") do set "str=!str!%%b"
set "str=!str:'= !"
set "str=!str:<= !"
for %%b in (!str!) do (
  set "s=%%b"
  if "%%~xb" == ".html" (
    set "Url=http://www.bathome.net/%%b"
    set "flag1=1"
  )
  if "!s:~0,1!" equ ">" (
    set "t=!s:~1!"
    rem 发现下3句写成 "if not defined flag1 set "Id=!t!" else ("会出错，有时flag1为空时也会显示。
    if not defined flag1 (
      set "Id=!t!" 
    ) else (
      set "Title=!t!"
      set "flag1="
      echo 主题：!Title! 发帖ID：!Id! URL：!Url!
    )
  )
)        
goto :eof
复制代码