关于之前在html文件提取地址的问题 - 中国DOS联盟论坛

两天前曾在这里向各位请教的提取问题已经解决,在这里再次感谢帮助偶过的人~~
鞠躬~
(旧帖连接:菜鸟求教各高手关于html里提取地址的p处理..)

之后我改写了代码主要是生成地址list文件上
用了逐字对比和变量扩展两种方法
想起刚接触批处理时候对变量扩展的迷茫以还是决定上传上来也让还不了解的人多一个实例或参考都好...

至于做这个批处理的初衷是因为在下载OllyDbg的Script时发现网站上的链接很多是不规则的字符(例如空格和"." ) 这就造成下载软件不能正确辨认文件的扩展名,那下载下来之后可想而知...加上想起逐个改名字就不爽...所以就写了这批处理....

本来打算修改成可带参数的批处理或者更人性化一点...(例如直接输入html地址就自动下载html到本地或直接抽取下载地址然后调用下载软件下载) 但苦于下个星期就要考试(再不看书我就死定了...5555) 所以只好搁置...(或者哪位高手可以写一下呢?呵呵~~)

另外有谁能告诉我...windows2003下的Dos怎么浏览web啊...realtek的8139/8110网卡...又找不到驱动...下载了wget 就说 No Packet Driver Found...唉...

好鸟废话不说...上菜鸟...这次顺便把提取出来的OllyDbg Script地址list一并上传,如果有需要的朋友可以下载. 顺便一提...OllyDbg真的是不错的调试程序...

(ps. 这次拿了看雪学院的网页做测试对象...特此声明下...另:想要下载OllyDbg的朋友这里也顺便提供下载地址鸟. >>下载OllyDbg<<)

代码:
GetA.cmd 采用逐字对比 :

@echo off&setlocal enabledelayedexpansion
 set  dfhtml=index.html
 set  dffilety=txt
 set  website=http://www.pediy.com/tools/Debuggers/ollydbg/
 type nul>list.txt

 for /f "delims=" %%a in ('findstr "href=" %dfhtml%') do (
           set "str=%%a"
           set "str=!str:href=★!"
           set "str=!str:*★=!
           if  "!str:~-3,3!" == "%dffilety%" (call :prt "!str:~2!")
)

@cls.
@echo. ┏━━━━━━━━━━━━━━━━━━━━━━━━┓
@echo. ┃                                                ┃
@echo. ┃              Work finished...!!                  ┃
@echo. ┃               please Wait....                  ┃
@echo. ┃                                                ┃
@echo. ┃        The Files will show U In 5's...         ┃
@echo. ┃                                                ┃
@echo. ┃           Thank U for Ur time~                 ┃
@echo. ┃                BoodBye...!                      ┃
@echo. ┗━━━━━━━━━━━━━━━━━━━━━━━━┛
@echo.
@echo.
@echo.
@ping -n 5 127.1>nul &notepad list.txt

goto :eof
 
:prt
    setlocal 
         set "chr=%~1★"
         set "chr=!chr:"=!"
         set  outp=%website% 
         set/a n=0
        
    :chck 
         set "tp=!chr:~%n%,1!"  &&set/a n+=1
         
         if   ==    goto op
         
         set tm=!tp!
         if  "!tp!" == " "  set tm=^%%20
         if  "!tp!" == "&"  set tm=^%%26
         if  "!tp!" == "'"  set tm=^%%27
     
   :nx
        set outp=!outp!!tm!
        goto chck
   :op
        >>list.txt echo %outp: =%
        echo %outp: =%
     endlocal           
   goto :eof

GetB.cmd 采用变量扩展过滤:

@echo off&setlocal enabledelayedexpansion
set  dfhtml=index.html
set  dffilety=txt
set  website=http://www.pediy.com/tools/Debuggers/ollydbg/
type nul>list_b.txt

for /f "delims=" %%a in ('findstr "href=" %dfhtml%') do (
           set "str=%%a"
           set "str=!str:href=★!"
           set "str=!str:*★=!
           if  "!str:~-3,3!"=="%dffilety%" (call :rpt "!str:~2!")
)
@cls.
@echo. ┏━━━━━━━━━━━━━━━━━━━━━━━━┓
@echo. ┃                                                ┃
@echo. ┃              Work finished...!!                  ┃
@echo. ┃               please Wait...                   ┃
@echo. ┃                                                ┃
@echo. ┃        The Files will show U In 5's...         ┃
@echo. ┃                                                ┃
@echo. ┃           Thank U for Ur time~                 ┃
@echo. ┃                BoodBye...!                      ┃
@echo. ┗━━━━━━━━━━━━━━━━━━━━━━━━┛
@echo.
@echo.
@echo.
@ping -n 5 127.1>nul &notepad list_b.txt

goto :eof

:rpt
     setlocal
        set "chr=%~1"
        set "chr=!chr:"=!"
        set "chr=!chr:^"=!
        set "chr=!chr: =%%20!"
        set "chr=!chr:&=%%26!"
        set "chr=!chr:'=%%27!"
        set "chr=!chr:|=%%7C!"
        
        >>list_b.txt echo.%website%!chr!
        echo.%website%!chr!
     endlocal
goto :eof

附件:代码下载及OllyDbg Script的下载地址

[ Last edited by crenel on 2007-4-16 at 03:33 PM ]

第1楼　crenel	发表于 2007-04-17 04:31
新手上路　发帖 6　积分 18
关于之前在html文件提取地址的问题两天前曾在这里向各位请教的提取问题已经解决,在这里再次感谢帮助偶过的人~~ 鞠躬~ (旧帖连接:菜鸟求教各高手关于html里提取地址的p处理..) 之后我改写了代码主要是生成地址list文件上用了逐字对比和变量扩展两种方法想起刚接触批处理时候对变量扩展的迷茫以还是决定上传上来也让还不了解的人多一个实例或参考都好... 至于做这个批处理的初衷是因为在下载OllyDbg的Script时发现网站上的链接很多是不规则的字符(例如空格和"." ) 这就造成下载软件不能正确辨认文件的扩展名,那下载下来之后可想而知...加上想起逐个改名字就不爽...所以就写了这批处理.... 本来打算修改成可带参数的批处理或者更人性化一点...(例如直接输入html地址就自动下载html到本地或直接抽取下载地址然后调用下载软件下载) 但苦于下个星期就要考试(再不看书我就死定了...5555) 所以只好搁置...(或者哪位高手可以写一下呢?呵呵~~) 另外有谁能告诉我...windows2003下的Dos怎么浏览web啊...realtek的8139/8110网卡...又找不到驱动...下载了wget 就说 No Packet Driver Found...唉... 好鸟废话不说...上菜鸟...这次顺便把提取出来的OllyDbg Script地址list一并上传,如果有需要的朋友可以下载. 顺便一提...OllyDbg真的是不错的调试程序... (ps. 这次拿了看雪学院的网页做测试对象...特此声明下...另:想要下载OllyDbg的朋友这里也顺便提供下载地址鸟. >>下载OllyDbg<<) 代码: GetA.cmd 采用逐字对比 : @echo off&setlocal enabledelayedexpansion set dfhtml=index.html set dffilety=txt set website=http://www.pediy.com/tools/Debuggers/ollydbg/ type nul>list.txt for /f "delims=" %%a in ('findstr "href=" %dfhtml%') do ( set "str=%%a" set "str=!str:href=★!" set "str=!str:★=! if "!str:~-3,3!" == "%dffilety%" (call :prt "!str:~2!") ) @cls. @echo. ┏━━━━━━━━━━━━━━━━━━━━━━━━┓ @echo. ┃ ┃ @echo. ┃ Work finished...!! ┃ @echo. ┃ please Wait.... ┃ @echo. ┃ ┃ @echo. ┃ The Files will show U In 5's... ┃ @echo. ┃ ┃ @echo. ┃ Thank U for Ur time~ ┃ @echo. ┃ BoodBye...! ┃ @echo. ┗━━━━━━━━━━━━━━━━━━━━━━━━┛ @echo. @echo. @echo. @ping -n 5 127.1>nul &notepad list.txt goto :eof :prt setlocal set "chr=%~1★" set "chr=!chr:"=!" set outp=%website% set/a n=0 :chck set "tp=!chr:~%n%,1!" &&set/a n+=1 if == goto op set tm=!tp! if "!tp!" == " " set tm=^%%20 if "!tp!" == "&" set tm=^%%26 if "!tp!" == "'" set tm=^%%27 :nx set outp=!outp!!tm! goto chck :op >>list.txt echo %outp: =% echo %outp: =% endlocal goto :eof GetB.cmd 采用变量扩展过滤: @echo off&setlocal enabledelayedexpansion set dfhtml=index.html set dffilety=txt set website=http://www.pediy.com/tools/Debuggers/ollydbg/ type nul>list_b.txt for /f "delims=" %%a in ('findstr "href=" %dfhtml%') do ( set "str=%%a" set "str=!str:href=★!" set "str=!str:★=! if "!str:~-3,3!"=="%dffilety%" (call :rpt "!str:~2!") ) @cls. @echo. ┏━━━━━━━━━━━━━━━━━━━━━━━━┓ @echo. ┃ ┃ @echo. ┃ Work finished...!! ┃ @echo. ┃ please Wait... ┃ @echo. ┃ ┃ @echo. ┃ The Files will show U In 5's... ┃ @echo. ┃ ┃ @echo. ┃ Thank U for Ur time~ ┃ @echo. ┃ BoodBye...! ┃ @echo. ┗━━━━━━━━━━━━━━━━━━━━━━━━┛ @echo. @echo. @echo. @ping -n 5 127.1>nul &notepad list_b.txt goto :eof :rpt setlocal set "chr=%~1" set "chr=!chr:"=!" set "chr=!chr:^"=! set "chr=!chr: =%%20!" set "chr=!chr:&=%%26!" set "chr=!chr:'=%%27!" set "chr=!chr:\|=%%7C!" >>list_b.txt echo.%website%!chr! echo.%website%!chr! endlocal goto :eof 附件:代码下载及OllyDbg Script的下载地址 [ Last edited by crenel on 2007-4-16 at 03:33 PM ]