Abrir, leer y escribir un archivo de texto

[zvf]

Hola!!

Probe el codigo de seaone, pero hay un problema...

Corre bien, pero cuando termina y reviso el archivo que creo, solo tiene 6Kb, cuando deberia medir 72Kb, es decir, no me esta extrayendo todas las lineas con la palabra Email,

Saben por que pueda ser?

[[seoane]]

Vamos por partes ¿como estas seguro de que el resultado debe tener 72kb?

De todas formas, la única explicación que se me ocurre es que no se estemos leyendo las lineas completas, sino que de las lineas largas solo leemos el principio. Así que, ¿Que versión de delphi usas? ¿Estas declarando la variable Str como string sin especificar su longitud?

[zvf]

Estoy segura de que son 72Kb porque al correr el otro algoritmo que me mandaste, me da un archivo de ese tamaño, y son aproximadamente 1700 correos, y con el otro algoritmo solo encuentra 132 correos.

Declare el string y no le especifique longitud.

Uso delphi 7

[[seoane]]

Pues me rindo, no encuentro donde puede estar el fallo, a mi me funciona bien. Aunque puede que otro vea algo que a mi se me escapa, suele ser frecuente que alguien vea nuestros errores antes que nosotros.

Un ultimo intento desesperado ¿el texto tiene los finales de linea como #13#10 o solo como #13? porque si solo usa el #13 la función readln funciona mal mientras que el TStringlist si funciona bien, explicando así porque el primer código funciona y el segundo no.

[zvf]

sabes?

Si es algo de eso, porque hay lineas con terminaciones y caracteres extraños, y ya lo probe sin esas lineas y ya funciono.

BUENO, MUCHISIMAS GRACIAS POR TODA SU AYUDA.

HASTA LUEGO!!!

[jls1988]

Gracias por la solucion

[ecfisa]

Hola zvf.

La exepción que te dá la línea:

 while not Eof do

se produce por que debería ser:

 while not Eof(f) do

por otro lado si lo que vas a hacer es leer el archivo deberías abrirlo con

   Reset(f)

Otra opción para reducir la velocidad de carga es usar BlockRead, tenés un ejemplo en la ayuda de Delphi,
así que no pongo el código.

Saludos.