[文本处理] 批处理代码查询论坛帖子回复点击等数据信息

taofan712

@echo off
title bathome查看器beta1.0
:: 查看bathome.net批处理求助专区帖子查看信息
:: 第三方工具curl，http://www.bathome.net/thread-1761-1-5.html
:: code by taofan712 2017-02-19 CMD@XP

setlocal enabledelayedexpansion
set /p area=请输入查询页面范围数字，数字由空格隔开（如: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;下载页面并提取关键词。& 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;预处理完毕，等待查询。
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^>
		)>>回复数为0的帖子.html
		
	)
start "0回复" 回复数为0的帖子.html 
ping -n 2 127.1>nul
del /f /q 回复数为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;【回复数%%i】^<a href=%%l^>【%%k】%%m^</a^>^</br^>
	)>>高回复帖子.html
:jump
endlocal	
start "hot回复" 高回复帖子.html	
ping -n 2 127.1>nul
del /f /q 高回复帖子.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命令错误（范例：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命令错误（范例：del 2）&pause&goto query
		del /f /q format%%i.txt
		pause&goto query
	)
)
rem if /i "input:~0,4"=="show" (
rem	for /f "tokens=  delims= " %%i in ("%input%") do (
rem	
	rem 【我】【要】【崩】【溃】【了】
rem 
rem 	)
rem )

pause&goto query

:time0  计算时间差 （封装）
@echo off&setlocal&set /a n=0&rem code 随风 @bbs.bathome.net
set "n="&set "m="&set "f="&set "s="
for /f "tokens=1-8 delims=.: " %%a in ("%~1:%~2") do (
set /a n+=10%%a%%100*360000+10%%b%%100*6000+10%%c%%100*100+10%%d%%100
set /a n-=10%%e%%100*360000+10%%f%%100*6000+10%%g%%100*100+10%%h%%100)
set /a s=n/360000,n=n%%360000,f=n/6000,n=n%%6000,m=n/100,n=n%%100
set "ok=用时：小时 %f% 分钟 %m% 秒 %n% 毫秒，按任意键继续"
endlocal&set %~3=%ok:-=%&goto :eof

:sos
cls &echo; &echo;
echo;________________________________________________________________________
echo;
echo;				查询语法：
echo;
echo;	sos 打开帮助信息。  	 cls 清屏     
echo;	open [...] 打开某页 ;del [...]删除某页；what a ** 退出并删除全部临时文件^^_^^
echo;	show：查找并显示    	report：查找并生成html文件
echo;	[show ^| report]  [class ^|  key ^| click ] [geq ^| equ ^| leq] [...] [only] [...]
echo;	class-问题分类； key-回复数；click-点击数；   only-限定查找页面		
echo;	如：show  class equ 文件操作 ，将查找并显示关于“文件操作”的帖子。
echo;	如：report  click geq 200 ， 将查找“点击量”大于等于“30”的帖子，并生成html文件供点击直达。
echo;	如：show key leq 2 only 5 ，将查找并显示第“5”页中“回复数”小于等于“2”的帖子。
echo;	按1快捷查询bat求助专区回复数为0的帖子。
echo;	按2快捷查询bat求助专区回复数最高的前五个帖子。
echo;_________________________________________________________________________
goto :eof
复制代码

taofan712

诚如几个前辈所说，这个东西写出来实际意义不大，但本着命令练习与迫切渴望写出东西来满足自己的心态，写出了大半截。
写到这里有几个问题想寻求指导：
第一个问题：如何用findstr的语法准确找到下面的红色数字？我没试出来，于是用了find|find的办法，但还是想请教一下。
<label>&nbsp;</label>
<em>[<a href="forumdisplay.php?fid=5&amp;filter=type&amp;typeid=8">注册表类</a>]</em><span id="thread_43209"><a href="thread-43209-1-1.html">批处理添加注册表后继续执行后面的代码</a></span>
</th>
<td class="author">
<cite>
<a href="space.php?uid=78960">lchir</a>
</cite>
<em>2017-2-17</em>
</td>
<td class="nums"><strong>3</strong>/<em>125</em></td>

下面这段是format1.txt里的内容。
第二个问题：为何第一行会出错？
第三个问题：怎么更好的获得行首数字的排序？我原来是合并所有txt然后用sort排序
512;716451;/a;http://www.bathome.net/~8,-1;
1;31;其他;http://www.bathome.net/thread-43221-1-1.html;求个bat脚本
0;28;文件操作;http://www.bathome.net/thread-43219-1-1.html;求助，批处理  通过txt文档里的文件夹的名称查找子文件夹
0;44;文件操作;http://www.bathome.net/thread-43217-1-1.html;如何修改以下脚本实现删除文件名中包含指定日期串的文件
3;125;注册表类;http://www.bathome.net/thread-43209-1-1.html;批处理添加注册表后继续执行后面的代码
1;84;文本处理;http://www.bathome.net/thread-43213-1-1.html;SED命令替换多个字符为#
5;654;文件操作;http://www.bathome.net/thread-42102-1-1.html;批处理如何提取nslookup域名解析结果中的ip地址并按指定格式输出
16;318;网络连接;http://www.bathome.net/thread-43184-1-1.html;求助批处理findstr获取电脑MAC和IP地址
第四个问题：我引用随风的时间函数，出来的时间不对 ？
第五个问题留给我自己，将1楼里面【我】【崩】【溃】【了】的代码，补全。