Siguiendo el método encontrado en éste foro:
http://www.forosdelweb.com/showthrea...highlight=leer
he conseguido obtener contenido de otro sitio, pero en ese contenido hay una tabla de la que me interesa coger datos. ¿hay alguna forma de hacerlo?
¿se podría pasar la tabla a excell o a un archivo .js y luego leer esos datos?¿o hay alguna forma mejor de coger el código y almacenar los datos que me interesan en un array?
strUrl = "http://localhost/web/parte.asp"
Dim objXML
Set objXML = CreateObject("Microsoft.XMLHTTP")
objXML.open "get", strURL, false
objXML.send
If objXML.Status >= 400 And objXML.Status <= 599 Then
Response.write "Existe un error : " & objXML.Status & " - " & objXML.statusText
Else
'Response.write objXML.ResponseText
End If
%>
Con los siguiente elimino la cabecera y me quedo sólo con las tablas.
<%
Cadena = objXML.ResponseText
SubCadena = EnMedio(Cadena, "<td>", "</td>")
Response.write "Lo de enmedio: " & SubCadena
Function EnMedio(Cadena, TagIni, TagFin)
PosIni = InStr(Cadena,TagIni)+Len(TagIni)
PosFin = InStr(Cadena,TagFin)-Len(TagFin)
Longitud = Len(Cadena)-(Len(TagIni)+Len(TagFin))
EnMedio = MID(Cadena, PosIni,Longitud)
End Function
%>
Con lo siguiente obtengo los datos de una celda concreta, pero para obtener todos los datos es un lío, además si se modifica la página de la que se obtienen los datos habría que volver a buscar todas las posiciones.
<%
SubCadena1 = EnMedio1(SubCadena, "<td>", "</td>")
Response.write "Buscado por posicion: " & SubCadena1
Function EnMedio1(SubCadena, TagIni1, TagFin1)
PosIni1 = 8325
Longitud1 = 9
EnMedio1 = MID(SubCadena, PosIni1,Longitud1)
End Function
%>