FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Pienso que lo mejor seria usar Expresiones Regulares y pasar el texto a una vble de memoria, procesarla y luego pasarla al memo (asi no interfiere el código interno del memo reaccionando a los cambios del texto).
Ahora no veo que 700 lineas sea algo impresionante y no aclaras que es "ineficiente". Seria bueno empezar por ahi... que es "ineficiente"? Delphi es super rapido con los strings, y he procesado al menos varias megas de texto sin lios...
__________________
El malabarista. |
#2
|
||||
|
||||
Lo primero que se me ocurre es que trabajes con una estructura en memoria, no ligada a ningun componente. Eso te evitará operaciones de refresco y similares.
Otra cosa que te podría optimizar la operación, es no eliminar lo que te sobra, sino quedarte con lo que te vale y trabajar con eso. 1) Recorre las líneas hasta encontrar <PALABRA> 2) Copia desde esa línea hasta la 127 a TS 3) Trabaja sobre TS
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
|||
|
|||
Cita:
|
#4
|
|||
|
|||
Cita:
Memo1.Lines.beginupdate; ... .... ... Memo1.Lines.EndUpdate; Pero creo que no se gana nada, sigue tardando bastante en procesar. |
#5
|
||||
|
||||
Si cambias tu código por uno como este:
La ventana que aparece es la siguiente: Como ves, el tiempo realmente se "pierde"en la petición de la página, y no en las operaciones sobre el memo, aunque supongo que si eliminas los borrados tal y como te he dicho algo ganarías...
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#6
|
|||
|
|||
Me parece que no,
Haciendo alguna prueba el tiempo que de verdad se nota se pierde al reemplazar para reparar los enlaces Alguna alternativa a esto? StringReplace( memo1.Lines[xx],'/imagenes/','http://www.aemet.es/imagenes/',[rfReplaceAll]); |
#7
|
|||
|
|||
Aunque sea en plan chapucero ya lo he solucionado, ahora es casi instantaneo, ya solo falta limpiar todo lo que sobra, creo que se podrian quitar los memos, (pero no se como trabajar por lineas en un string):
El problema estaba en usar un memo linea por linea en el StringReplace en vez de usar el memo.Lines.text, usando un String como ya habiais dicho muchos la carga es practicamente instantanea. Código PHP:
Última edición por cocute fecha: 09-12-2009 a las 15:57:24. |
#8
|
|||
|
|||
He probado a quitar los memos y poner 2 tstringlist pero no me funciona, no hace nada, tambien he probado con Tstrings pero me da "error abtracto" o algo asi.
Que puede fallar? el mismo código con memos funciona. Código PHP:
Última edición por cocute fecha: 09-12-2009 a las 16:02:51. |
#9
|
|||
|
|||
Hola...
Cita:
Como verás en los ejemplos anteriores, es lo mismo... Saludos... |
#10
|
|||
|
|||
Cita:
Aclaro algo que no habia dicho, es que el texto es el código de una web que cargo previamente con el componente TIdHTTP de las Indy. Pero ese proceso es rápido. Os pongo el codigo fuente para que lo veais, es un simple capricho de cargar solo el cuadro del tiempo de mi provincia desde la web de aemet. Uso el webbrowser de http://www.bsalsa.com/, ya que me permite sin hacer nada cargar un string en el browser, ocultar scrollbars... Seguramente el problema como decis esta en usar un tmemo para hacer los cambios, estoy probando trabajar directamente con el tstrings pero me faltan cosas que con el memo las hacia más facil. He leido que quizas usando el componente JvHtmlParser de JEDI me iria mejor, pero lo he mirado y no me aclaro bien como funciona. Última edición por cocute fecha: 09-12-2009 a las 13:33:56. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Alguien sabe como hacer esto? | MaMu | Gráficos | 3 | 18-05-2007 18:33:43 |
Alguien sabe como hacer que una query sea modificable | pjmedina | Varios | 20 | 12-04-2007 11:17:27 |
Alguien sabe como hacer que tu aplicacion se ejecute... | Supra | Varios | 7 | 05-02-2005 21:10:09 |
Alguien sabe como hacer un ShotDown a Firebird 1.51???? | AGAG4 | Conexión con bases de datos | 3 | 28-10-2004 18:02:21 |
¿alguien sabe hacer esto? (conexion a mySQL desde delphi pero sin acceso...) | seccion31 | Internet | 24 | 27-08-2004 17:14:23 |
|