Hola Esteban También pensé en hacer eso, pero no estaba disponible el .pdf actualizado.Así que lo realice con JavaScript + .Net luego lo reescribí en VFP. SaludosJosé From: [email protected] To: [email protected] Subject: [GUFA] PROPIEDAD INNERTEXT (InternetExplorer.Application) Date: Fri, 23 May 2014 19:37:13 -0300
Hola José. Muy buena y muy rápida tu solución.A mí se me había ocurrido convertir el pdf q genera la página a texto y procesarlo de ahí, pero tu solución es mucho mejor. Saludos. Esteban. 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é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 -0300Si te paso directamente la URL no problem: http://www.bio-salud.com.ar/list_price.php?c=&pv=&p=2Yo 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. .
