Últimos Temas de: ChristianCDV

Buenas a todos!! Desde ya digo que gracias porque buscando en el foro encontré un código que se asemeja mucho a lo que estoy buscando!!! Es este... con el único problema de que yo busco que me tome cierta parte del código fuente de una web... que me tome a partir de la LINEA 215 a la LINEA 839. Ese seria lo que le quiero agregar...

CITO EL POST CON EL CODIGO! ESTA AL FINAL DE TODO... DON DA EL CODIGO LO QUE TOMA Y EL RESULTADO...
http://foro.elhacker.net/php/extrayendo_codigo_fuente_de_una_web_problema_con_codigo_generado_por_js-t320899.0.html

Lo uso en una planilla excel... asi que les dejo el codigo que pego en el VBA del excel 2010.

Citar

Public Sub pruebaAJAX()

Dim url As String
Dim codigoFuente As String

url = "http://www.guaranpis.es/nvista.php?yvista=76&xvista=26"
Set XML = CreateObject("MSXML2.XMLHTTP")
XML.Open "GET", url, False
XML.send

If XML.ReadyState = 4 Then
If XML.Status = 200 Then
codigoFuente = StrConv(XML.responsebody, vbUnicode)
End If
End If

Set XML = Nothing

Dim archivoTxt As String
archivoTxt = "C:\codigofuente.txt"

'el archivo txt si existe hay que eliminarlo,
'de lo contrario se van a ir acumulando los codigos en ese mismo archivo
'uno abajo del otro

If Dir(archivoTxt) <> "" Then
Kill archivoTxt
End If

Open archivoTxt For Binary As 1
Put #1, , codigoFuente
Close 1
End Sub

Desde ya agradezco mucho cualquier ayuda que me brinden... se muy poco de códigos VB!! Pero estoy pensando hacer un cursito o leer un libro de esto... ya que es lo único en lo que ando flojo con excel.

Saludos, Christian!