FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Abrir, leer y escribir un archivo de texto
Hola a todos!!!
Me gustaria saber que funciones utilizar y como declarar la variable para abrir un archivo de texto. Lo que voy a hacer es abrir ese archivo y buscar dentro de el todas las lineas en donde esta contenida la palabra Email, y copiar desde Email hasta el enter, toda esa linea en otro archivo de texto. Si tienen alguna sugerencia y me pueden ayudar, muchas gracias!! Nunca he trabajado con archivos de texto desde delphi, asi que necesito conocer lo basico. GRACIAS!!!! |
#2
|
||||
|
||||
Hola, puedes usar varios modos.
Uno puede ser el clásico: Crear una variable del tipo TextFile Realizar un Assign para asignar a la variable anterior el fichero de texto Luego puedes hacer un append del fichero y luego un readln para leer linea a linea del fichero. Voy a escribirlo de memoria, así que es probable que no compile a la primera
Otra manera más como para hacer, puede ser usando un objeto TMemo. Lo arrastras a tu form y pones lo siguiente:
Ya tienes el fichero cargado en el memo.
Bueno como ves hay un par de alternativas, y seguro que puedes encontrar más. Saludos |
#3
|
||||
|
||||
Caramba Bicho, eres un agonioso
|
#4
|
|||
|
|||
Muchisimas Gracias!!!
Voy A Probarlo :d |
#5
|
|||
|
|||
Hola!!
Oye, fijate que si funciona, pero quiero hacer un ciclo, hasta que el archivo termine para que me busque todas las lineas con Email, y me las mande al otro archivo, pero lo intento hacer y me marca un error. Y otra cosa, en el codigo, que es lo que hace Count??? MUCHAS GRACIAS POR SU ATENCION Y AYUDA DE VERDAD SE LOS AGRADEZCO MUCHISIMO |
#6
|
||||
|
||||
¿Que código te marca error el mio o el de Bicho? ¿Y seria también interesante que pusieras cual es el error?
|
#7
|
||||
|
||||
Cita:
Deja que los demás escribamos algo, tambien. Además de que te quejas, ha usado tú código, tú eres el que ha puesto el Count en el ejemplo, no yo. Aunque el mio compiló a la primera Cita:
Por ciero el count, es una propiedad que tienen los objetos que tienen propiedades te tipo lista, y contiene el numero de elementos que contiene esa lista. En este caso, contiene el numero de elemento que hay en TStringList Saludos |
#8
|
|||
|
|||
Ahi les va, el codigo de Bicho me manda un error al correrlo, me dice
Project Project1.exe raised exception class EInOutError with message I/O error 6 Esta excepcion la manda en la linea:
Ahh, otra cosa la linea:
No compila y la cambie por:
Y ya esta, solo que manda ese error a la hora de correrlo Y el de seaone, la primera vez se ejecuto bien, pero despues se cicla. SABEN PORQUE PUEDA SER?? GRACIAS Última edición por zvf fecha: 01-12-2006 a las 01:23:52. |
#9
|
||||
|
||||
Cita:
|
#10
|
|||
|
|||
Tal cual, mira lo tengo asi, dentro de un boton:
Y nunca me muestra el mensaje de Listo... |
#11
|
||||
|
||||
Pues a mi no se me cicla.
|
#12
|
||||
|
||||
Lo único que se me ocurre es que el mensaje si se este mostrando y no lo estas viendo, por eso tu aplicación parece colgada. Prueba quitándolo o poniendo un breakpoint en ese punto.
|
#13
|
|||
|
|||
Es que sabes que?
Yo tengo un archivo que mide 12.33 megas, pero una vez lo corri y si me dio el resultado bien, las demas veces se esta tardando mucho, y lo interrumpo. La primer ocurrencia de Email en el archivo esta en la primer linea, y no deberia tardarse puesto que no recorre todo el archivo. Lo probe con un archivo mas peque;o y si funciono. O lo tengo que dejar mas tiempo correr? |
#14
|
||||
|
||||
Empezáramos por ahí. El algoritmo que te puse es muy bonito pero altamente ineficiente para tratar textos tan grandes. Si lo dejas el tiempo suficiente funcionara, pero hay formas mejores de hacerlo.
|
#15
|
|||
|
|||
MUCHAS GRACIAS!!
FUNCIONO DE MARAVILLA!!! Ya obtuve todos los correos que necesitaba. Pero aun me queda la duda con el algoritmo de bicho, espero que me pueda decir que esta mal en ese codigo GRACIAS!!! |
#16
|
||||
|
||||
Prueba con algo como esto, debería ser un poco mas rápido:
|
#17
|
||||
|
||||
Ahora el agonioso eres tú!!
Que es que no duermes seoane?? Que estás en la misma franja horaria que yo Bueno, como ves seoane ya te ha arreglado el código que te puse. Saludos |
#18
|
||||
|
||||
Cita:
Que hace la directiva {$I-}? Saludos Yusnerqui
__________________
Lo importante no es llegar primero, sino saber llegar. Para que puedas llegar mejor lee la Guia de Estilo |
#19
|
||||
|
||||
Directamente de la ayuda de Delphi
Cita:
|
#20
|
||||
|
||||
ops, pues muchas gracias, es que tengo un teclado nuevo y no encontraba esa tecla jejeje.
saludos.
__________________
Lo importante no es llegar primero, sino saber llegar. Para que puedas llegar mejor lee la Guia de Estilo |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Sobre Escribir un archivo de texto | mangel | Varios | 7 | 04-06-2012 22:29:04 |
Sin saber leer ni escribir | D-MO | Humor | 3 | 13-09-2006 08:47:43 |
Como leer un archivo de texto por codigo | Shidalis | Varios | 2 | 03-09-2005 05:54:34 |
leer y escribir en BD SqlServer con ADOStoredProc | marctonyus | Gráficos | 1 | 17-07-2005 22:13:12 |
Leer un TQuery y armar un archivo de texto | Oscar25 | Conexión con bases de datos | 1 | 01-09-2004 16:21:51 |
|