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!!!! |
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 |
:mad: Caramba Bicho, eres un agonioso :D
|
Muchisimas Gracias!!!
Voy A Probarlo :d |
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 :) |
¿Que código te marca error el mio o el de Bicho? ¿Y seria también interesante que pusieras cual es el error? ;)
|
Cita:
Deja que los demás escribamos algo, tambien. :p Además de que te quejas, ha usado tú código, tú eres el que ha puesto el Count en el ejemplo, no yo. :mad: Aunque el mio compiló a la primera :cool: 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 |
Ahi les va, el codigo de Bicho me manda un error al correrlo, me dice
:confused: :confused: :confused: Project Project1.exe raised exception class EInOutError with message I/O error 6 :confused: :confused: :confused: 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 |
Cita:
|
Tal cual, mira lo tengo asi, dentro de un boton:
Y nunca me muestra el mensaje de Listo... |
:confused: Pues a mi no se me cicla.
|
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.
|
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? |
:D 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.
|
:) 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!!! |
Prueba con algo como esto, debería ser un poco mas rápido:
|
Ahora el agonioso eres tú!! :D
Que es que no duermes seoane?? Que estás en la misma franja horaria que yo :rolleyes: Bueno, como ves seoane ya te ha arreglado el código que te puse. :( Saludos |
Cita:
Que hace la directiva {$I-}? Saludos Yusnerqui |
Directamente de la ayuda de Delphi
Cita:
|
ops, pues muchas gracias, es que tengo un teclado nuevo y no encontraba esa tecla jejeje.
saludos. |
La franja horaria es GMT +2. Ahora son las 15:35:06. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi