@echo off
title bathome查看器beta1.0
:: 查看bathome.net批處理求助專區(qū)帖子查看信息
:: 第三方工具curl，http://www.bathome.net/thread-1761-1-5.html
:: code by taofan712 -02-19 CMD@XP
setlocal enabledelayedexpansion
set /p area=請(qǐng)輸入查詢頁(yè)面范圍數(shù)字，數(shù)字由空格隔開(kāi)（如:1 10）:
for /f tokens=1,2 delims=  %%y in (%area%) do (set ba=%%y & set ea=%%z)
if not exist f:bat md f:bat 
pushd f:bat
echo;下載頁(yè)面并提取關(guān)鍵詞。& set t=%time%
for /l %%a in (%ba% 1 %ea%) do (
set page=%%a
curl -o page!page!.html http://www.bathome.net/forum-5-!page!.html
set n=0 & set m=0
for /f skip=2 tokens=5,10,11 delims=<> %%b in ('find span id page!page!.html 2^>nul') do ( 
set /a n+=1
set qname=%%c
set qname=http://www.bathome.net/!qname:~8,-1!
set text!n!=%%b;!qname!;%%d
)
for /f tokens=3,7 delims=<> %%e in ('find td class page!page!.html 2^>nul^|find strong') do (
set /a m+=1
set click!m!=%%e;%%f
)
for /l %%g in (1 1 20) do call echo;%%click%%g%%;%%text%%g%%>>format!page!.txt
)
endlocal
echo;預(yù)處理完畢，等待查詢。
call :time0 %t% %time% ok
echo;%ok% & pause>nul
call :sos
:query
set /p input=
if not defined input call :sos
if %input%==1 ( 
for /f delims= %%a in ('dir /b format*.txt') do (
for /f tokens=1-5 delims=; %%i in (%%a) do (
if %%i equ 0 echo;^<a href=%%l^>【%%k】%%m^</a^>^</br^>
)>>回復(fù)數(shù)為0的帖子.html
)
start 0回復(fù) 回復(fù)數(shù)為0的帖子.html 
ping -n 2 127.1>nul
del /f /q 回復(fù)數(shù)為0的帖子.html
)
if %input%==2 (
set /a hotnum=5
set /a hotnum_=0
type format*.txt >temp1.txt
sort/r temp1.txt>temp2.txt & rem 如何排序？
setlocal enabledelayedexpansion
for /f tokens=1-5 delims=; %%i in (temp2.txt) do (
set /a hotnum_+=1 >nul
if !hotnum_! gtr %hotnum% goto jump
echo;【回復(fù)數(shù)%%i】^<a href=%%l^>【%%k】%%m^</a^>^</br^>
)>>高回復(fù)帖子.html
:jump
endlocal
start hot回復(fù) 高回復(fù)帖子.html
ping -n 2 127.1>nul
del /f /q 高回復(fù)帖子.html
del /f /q temp?.txt
)
if /i %input%==cls (cls & goto query )
if /i %input%==sos call :sos
if /i %input%==what a ** ( 
echo;I'm so sorry but would you like give me some advise
set /p sorry=yes/no:
echo;%sorry%|find /i yes && start advise www.bathome.net/thread-43222-1-1.html||del /f /q /s f:bat*.*
panse&exit /b 
)
if /i %input:~0,4%==open (
 for /f tokens=2 delims=  %%i in (%input%) do (
set /a 1%%i1 2>nul&&set legal=T||set legal=
if not defined legal echo;open命令錯(cuò)誤（范例：open 5）& pause&goto query
type format%%i.txt 
pause&goto query
)
)
if /i %input:~0,3=%==del (
for /f tokens=2 delims=  %%i in (%input%) do (
set /a 1%%i1 2>nul&&set legal=T||set legal=
if not defined legal echo;del命令錯(cuò)誤（范例：del 2）&pause&goto query
del /f /q