Abrir, leer y escribir un archivo de texto

[[seoane]]

¿Que código te marca error el mio o el de Bicho? ¿Y seria también interesante que pusieras cual es el error?

[[Bicho]]

Empezado por seoane

Caramba Bicho, eres un agonioso

Hombre, no vas a acaparar aquí todo el código que se escriba en éste foro, no?
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

Empezado por zvf

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

Bueno, te digo lo mismo que seoane, muestranos el mensaje de error que te lanza y el "cacho" de codigo que has escrito para ver donde falla.
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

[zvf]

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:

Código Delphi [-]
while not Eof do begin

Ahh, otra cosa la linea:

Código Delphi [-]
AssignFile('c:\test.txt', f);

No compila y la cambie por:

Código Delphi [-]
AssignFile(f,'c:\test.txt');

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

[[seoane]]

Empezado por zvf

Y el de seaone, la primera vez se ejecuto bien, pero despues se cicla.

No hay posibilidad de que se "cicle" (me gusta esa palabra, mucho mas adecuada que la que utilizamos por aquí "cuelgue"). Dentro del bucle o se incrementa i o se decrementa Count así que antes o después siempre se sale del bucle. ¿Estas usando el código tal cual o le añades algo mas?

[zvf]

Tal cual, mira lo tengo asi, dentro de un boton:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  i,j: integer;
begin
  with TStringList.Create do
  try
    LoadFromFile('c:\visitasweb.txt');
    i:= 0;
    while i < Count do
    begin
      j:= Pos('EMAIL',Uppercase(Strings[i]));
      if j > 0  then
      begin
        Strings[i]:= Copy(Strings[i],j,MAXINT);
        inc(i);
      end else
        Delete(i);
    end;
    SaveToFile('c:\resultado.txt');
    showMessage ('Listo');
  finally
    Free;
  end;
end;

Y nunca me muestra el mensaje de Listo...

[[seoane]]

Pues a mi no se me cicla.

[[seoane]]

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.

[zvf]

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?