老大 格式也不行哦 太长了 继续努力中
纯P的,目前搞定最后一部分,下一步处理拿到那三个信息
纯P的不可能有正则吧,除非依赖第三方。拿这个真的很蛋疼啊。
--------------------相当华丽的分割线------------------------------------
2013-01-14 日更新
先上图
[attach]6050[/attach]
--------------------相当华丽的分割线------------------------------------
利用Curl获取首页数据,然后剩下的就是纯P内部函数搞定。
个人觉得代码绝对有可以优化的地方,只可惜水平不高,还请高手指正。
PS:怎么版主老是没几句好话给我啊,哎。。。。。。- @Echo Off&SetLocal EnableDelayedExpansion
- Mode Con Cols=130 Lines=20
- Title 批处理获取论坛首页指定数据 『冷玉公子』
-
- Set "Index=index.php"
- Set "Url=http://www.bathome.net/index.php"
- If Exist %Index% Del /f /q %Index%
-
- Echo 正在更新首页信息,请稍后。
- Curl -# -G -o %Index% %Url%
-
- For /F "tokens=*" %%A In (index.php) Do (
- Set tStr="%%A"
- IF !e1Switch! == True Set e1Switch=False&Call :_TitleResovle !tStr! 最新主题&Pause>Nul
- IF !e2Switch! == True Set e2Switch=False&Call :_TitleResovle !tStr! 最新回复&Pause>Nul
- IF !e3Switch! == True Set e3Switch=False&Call :_TitleResovle !tStr! 热门主题&Pause>Nul
- Set e1Str=!tStr:homegrids_c_1=DandyMu!
- Set e2Str=!tStr:homegrids_c_2=DandyMu!
- Set e3Str=!tStr:homegrids_c_3=DandyMu!
- IF Not !e1Str! == !tStr! Set e1Switch=True
- IF Not !e2Str! == !tStr! Set e2Switch=True
- IF Not !e3Str! == !tStr! Set e3Switch=True
- )
-
- Goto :Eof
-
- :_TitleResovle
- Set trStr=%1
- For /F "usebackq tokens=*" %%A In ('%trStr%') Do (
- @Rem Echo %%A
- Call :_LiResolve %%A %2
- )
- Goto :Eof
-
- ::Rem %1带处理的Li标签内容 %2标题
- :_LiResolve
- Cls
- Echo [%2]
- Echo=
- Echo ---------------------------------------------------------------------------------------------------------------------------------
- Set Str=%1
- For /F "usebackq tokens=*" %%A In ('%Str%') Do (
- Set Html="%%A"&Set Code=!Html:^</li^>=^</li^>;!
- For /F "tokens=1-8 delims=;" %%1 In ("!Code!") Do (
- Call :_EchoInfo "%%1"&Call :_EchoInfo "%%2"&Call :_EchoInfo "%%3"&Call :_EchoInfo "%%4"
- Call :_EchoInfo "%%5"&Call :_EchoInfo "%%6"&Call :_EchoInfo "%%7"&Call :_EchoInfo "%%8"
- )
- )
- Goto :Eof
-
- :_EchoInfo
- For /F "usebackq tokens=1-20 delims=><=" %%A In ('%1') Do (
- For /F "tokens=1 delims='" %%1 In ("%%K") Do Set "HTURL=http://www.bathome.net/%%1"
- Set "HTID=%%G"&Set "HTTITLE=%%M"
- IF "!HTTITLE:~1,5!" == "color" Set "HTTITLE=%%N"
- Echo 主题:!HTTITLE! 发帖ID:!HTID! URL:!HTURL!
- Echo ---------------------------------------------------------------------------------------------------------------------------------
- )
- Goto :Eof
复制代码
|