如何使用批处理脚本读取网站的内容？

Question

我得到了一个要求，需要从网站获取少量内容，我必须使用批处理脚本将其保存在.txt文件中。

@echo off 
    echo.>"D:\Jai\dblank.txt" 

通过上面的批处理代码，我只能用这个，我想给在.txt文件浏览器内容一起创建一个位置的文件。我对批处理脚本非常陌生。

Answer 1

Set Arg = WScript.Arguments 
set WshShell = createObject("Wscript.Shell") 
Set Inp = WScript.Stdin 
Set Outp = Wscript.Stdout 

if LCase(Arg(0)) = "web" or LCase(Arg(0)) = "http" then 
    HttpGet 
Elseif LCase(Arg(0)) = "remhtml" or LCase(Arg(0)) = "tags" then 
    RemoveHTMLTags 
End If 


Sub HttpGet 
On Error Resume Next 
    Set File = WScript.CreateObject("Microsoft.XMLHTTP") 
    File.Open "GET", Arg(1), False 
    File.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.0; Trident/4.0; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR 1.1.4322; .NET CLR 3.5.30729; .NET CLR 3.0.30618; .NET4.0C; .NET4.0E; BCD2000; BCD2000)" 
    File.Send 
    txt=File.ResponseText 
    'Putting in line endings 
    Outp.write txt 
    If err.number <> 0 then 
     Outp.writeline "" 
     Outp.writeline "Error getting file" 
     Outp.writeline "==================" 
     Outp.writeline "" 
     Outp.writeline "Error " & err.number & "(0x" & hex(err.number) & ") " & err.description 
     Outp.writeline "Source " & err.source 
     Outp.writeline "" 
     Outp.writeline "HTTP Error " & File.Status & " " & File.StatusText 
     Outp.writeline File.getAllResponseHeaders 
     Outp.writeline LCase(Arg(1)) 
    End If 
End Sub 

Sub RemoveHTMLTags 
    Set ie = CreateObject("InternetExplorer.Application") 
    ie.Visible = 0 
    ie.Silent = 1 
    ie.Navigate2 "file://" & FilterPath & "Filter.html" 
    Do 
     wscript.sleep 50    
    Loop Until ie.document.readystate = "complete" 
    ie.document.body.innerhtml = Inp.readall 
    Outp.write ie.document.body.innertext 
' ie.quit 
End Sub 

要使用

一般使用

过滤器是在命令提示符下使用。 Filter.vbs必须使用cscript.exe运行。如果你只是输入过滤器，它将运行一个批处理文件，这将自动执行此操作。

filter subcommand [parameters] 

过滤器只能读取和写入标准输出。这些仅在命令提示符下可用。

filter <inputfile >outputfile 
filter <inputfile | other_command 
other_command | filter >outputfile 
other_command | filter | other_command 

网络

filter web webaddress 
filter ip webaddress 

从网上下载一个文件，并将其写入到标准输出。

webaddress - a web address fully specified including http:// 

例

获取微软的主页

cscript //nologo filter.vbs web http://www.microsoft.com 

标签

filter tags 

删除HTML标签从文本。

例

cscript //nologo filter.vbs web http://www.microsoft.com | cscript //nologo filter.vbs tags