Aquí va una aproximación del parser.
Saludos
José
ClearLocal loBrowser As "InternetExplorer.Application"Local lcResultado
loBrowser =
Createobject("InternetExplorer.Application")loBrowser.Navigate("http://www.bio-salud.com.ar/list_price.php?c=&pv=&p=2";
)
Messagebox("Pausa")
element = loBrowser.Document.getElementById("list-product")For i = 0 To
element.childNodes.Length -1 childNode = element.childNodes.Item(i) With
childNode If .nodeType = 1 And .Id = "row" And .childElementCount = 4
? .children.Code.innerText ?
.children.Descr.innerText ? .children.price.innerText
Endif EndwithNext
From: [email protected]
To: [email protected]
Subject: [GUFA] PROPIEDAD INNERTEXT (InternetExplorer.Application)
Date: Thu, 22 May 2014 13:16:47 -0300
Si te paso directamente la URL no problem:
http://www.bio-salud.com.ar/list_price.php?c=&pv=&p=2
Yo necesito llevar a un cursor los códigos, descripción y precio
de los artículos.
Gracias Jose !
De:
[email protected] [mailto:[email protected]] En nombre de Jose Paez
Enviado el: Jueves, 22 de Mayo de 2014 08:56 a.m.
Para: GUFA List Member
Asunto: [GUFA] PROPIEDAD INNERTEXT (InternetExplorer.Application)
Leonardo
Todo bien,
gracias.
Si pudieses
publicar un fragmento de la estructura html de la lista de precio, vemos
de ayudarte en hacer el parser.
Saludos
José
From:
[email protected]
To: [email protected]
Subject: [GUFA] PROPIEDAD INNERTEXT (InternetExplorer.Application)
Date: Wed, 21 May 2014 14:26:41 -0300
Hola José como te va , tantos años !
Mirá lo probé pero el tema es que son 190 paginas de una misma
url, que debo recorrer secuencialmente, ya que se trata de una lista de precios
que está en internet, y resulta muy lento recorrer todos los tags del html las
190 veces y armar la tabla resultante insume mucho mas tiempo, ya lo probe…
Un abrazo.
Leonardo.
De:
[email protected] [mailto:[email protected]] En nombre de Jose Paez
Enviado el: Miércoles, 21 de Mayo de 2014 12:35 p.m.
Para: GUFA List Member
Asunto: [GUFA] PROPIEDAD INNERTEXT (InternetExplorer.Application)
Hola
Leonardo
Y si
utilizas InnerHtml y tratas de recorrer la tabla.
buscando los <tr> </tr> y <td> </td>
Saludos
José
From:
[email protected]
To: [email protected]
Subject: [GUFA] PROPIEDAD INNERTEXT (InternetExplorer.Application)
Date: Tue, 20 May 2014 18:52:54 -0300
Hola
gente.
Estoy
utilizando IExplorer desde FVP mediante
Luego utilizo la
propiedad INNERTEXT para traer el texto de la pagina a una variable
Con algo similar
a esto, va código resumido:
oBrowser = Createobject("InternetExplorer.Application")
LoBrowser.Navigate( m.consulta )
lcResultado=loBrowser.Document.Body.InnerText
m.archivoTexto="d:\texto.txt"
m.tmp=Strtofile(lcResultado,m.archivoTexto)
Create Cursor cSalida (Detalle C(254) Null)
Sele
cSalida
Append From (m.archivoTexto)
Sdf
El problema es
que el texto resultante, en una PC me trae renglones con muchos saltos de línea
y en la otra PC que aparentemente tiene otra configuración o versión o
configuración de IE, no.
Se trata de una grilla
de precios con las columnas CODIGO, DESCRIPCION y PRECIO
En una maquina
funciona de acuerdo a lo esperado y trae en una misma fila los 3 campos
(CODIGO, DESCRIPCION Y PRECIO)
En la otra pc,
trae el los tres campos en tres filas diferentes, lo que provoca que la salida
no sea exactamente igual,
En otras
palabras necesitaría eliminar algunos saltos de línea, no todos ya que el que
viene después del precio es necesario.
Estimo que esto
se podrá configurar al instanciar el IE, lo que no sé cual es la propiedad.
Alguien podrá
tirarme una pista?
Gracias.
Leonardo.
.
