Descarga web
Hola,
Estoy interesado en saber como puedo salvar una página web en formato txt, con código vbscript o jscript. Me interesa el contenido de una web tal como se puede obtener por el explorador cunado eliges la opción sabe as (txt).
Mi intención es hacer un parseo de este contenido.
Gracias.
Estoy interesado en saber como puedo salvar una página web en formato txt, con código vbscript o jscript. Me interesa el contenido de una web tal como se puede obtener por el explorador cunado eliges la opción sabe as (txt).
Mi intención es hacer un parseo de este contenido.
Gracias.
1 respuesta
Respuesta de solrac
1
Por el titulo de la pregunta, supongo que lo que quieres hacer es un script en servidor que lea y grabe las página que indiques. Si es así debes navegar por las páginas que desees y grabar la información.
Para ejecutar este ejemplo debes tener ie5 o descargarte el parser xml 3 o sup. de microsoft: http://www.microsoft.com/xml/
Con el parser 3+
<%
Dim oXMLHTTP
Dim strRutaServidor
Set oXMLHTTP = CreateObject ("MSXML2.ServerXMLHTTP")
strRutaServidor = "http://www.todoexpertos.com/"
oXMLHTTP.Open "GET", strRutaServidor, false
oXMLHTTP.Send
Call GuardaPagina (oXMLHTTP.ResponseText, "mipagina.txt")
Sub GuardaPagina (strFicheroEntrada, strNombre)
dim fs,f
set fs = CreateObject("Scripting.FileSystemObject")
set f = fs.OpenTextFile(Server.MapPath ("/") & strNombre, 2)
f.Write(strFicheroEntrada)
f.Close
set f=nothing
set fs=nothing
End Sub
%>Con el ie5 o sup
<%
Dim oXMLHTTP
Dim strRutaServidor
Set oXMLHTTP = CreateObject ("Microsoft.XMLHTTP")
strRutaServidor = "http://www.todoexpertos.com/"
oXMLHTTP.Open "GET", strRutaServidor, false
oXMLHTTP.Send
Call GuardaPagina (oXMLHTTP.ResponseText, "mipagina.txt")
Sub GuardaPagina (strFicheroEntrada, strNombre)
dim fs,f
set fs = CreateObject("Scripting.FileSystemObject")
set f = fs.OpenTextFile(Server.MapPath ("/") & strNombre, 2)
f.Write(strFicheroEntrada)
f.Close
set f=nothing
set fs=nothing
End Sub
%>
