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!
De todas formas ya te digo que VBA tiene muchas diferencias de VB y ya me a dado mas de un quedbradero de cabeza.Por tonterias.
Entonces tu pregunta cual es Codigo fuente como sacarlo ?
o como escribir en un archivo de texto, no entendi bien la pregunta
:rolleyes:
La pregunta estimado es:
"que me tome a partir de la LINEA 215 a la LINEA 839. Ese seria lo que le quiero agregar..."
El codigo funciona sensacional en excel 2010... el VBA funciona genial con este codigo... simplemente quiero que SOLO me tome desde la linea 215 del codigo a la linea 839.
Ya que solo quiero esa parte del codigo... ;)
Desde ya muchas gracias!
Me explico bien lo que deseo?
Hola cristian.
Cuando llegas a este punto
codigoFuente = StrConv(XML.responsebody, vbUnicode)
Te pondra en una variable todo el codigo fuente!
Yo lo que haria es recorrer esa variable caracter por caracter hasta encontrar el patron deseado.
dim strCodigoFuente as string
dim strChar as string
dim intCharNumber as integer
dim Patron as string
intCharNumber =1
do while strChar <> ""
strChar =Mid(strCodigoFuente ,intCharNumber ,2)
intCharNumber +=1
if patron = strchar then
COPIAAARHICVOTXT
end if
loop
Ahora tendras que adaptarlo y ver si el <> "" no te da problemas y buscar alternativas, prueba y me cuentas
en el mid para extraer caracter por caracter de un string Mid(strCodigoFuente ,intCharNumber ,2)
En la 3 opcion he puesto que me saque dos caracteres a medidad que va avnazando por lo que el patron tendra que ser comparado con un string de 2 caracteres.
Yo ya estoy viendo varias cosas a corregir.
Una vez encontrado el patron no hace falta que compares mas simplemente recorre hasta el final y copia todo.
No te lo voy a dar todo hehco intnentalo y luego me cuentas. >:D
saludos