Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Temas - ChristianCDV

#1
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.

CitarPublic 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!