Gracias José, con esta solucion anda muy rapido !! Abrazo y muchas gracias por tomarte la molestia de escribirme la solución !
Leonardo. De: [email protected] [mailto:[email protected]] En nombre de Jose Paez Enviado el: Jueves, 22 de Mayo de 2014 08:25 p.m. Para: GUFA List Member Asunto: [GUFA] PROPIEDAD INNERTEXT (InternetExplorer.Application) Aquí va una aproximación del parser. Saludos José Clear Local 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 Endwith Next _____ 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= <http://www.bio-salud.com.ar/list_price.php?c=&pv=&p=2> &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. .
