Foros Club Delphi - recorrer un fichero e ir guardando su contenido

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - recorrer un fichero e ir guardando su contenido (https://www.clubdelphi.com/foros/showthread.php?t=2236)

guantxo

15-07-2003 11:59:14

recorrer un fichero e ir guardando su contenido

hola delfinianos!!

ante todo un saludo y muxo club delphi!!

estoy con un problemilla q no logro resolver!!

resulta q quiero leer de un archivo caracter a caracter
para ir metiendolos en una variable.
el problema es q si el caracter es "(comillas dobles) no lo he d recuperar y por tanto no guardarlo, y pasar al siguiente caracter
y asi hasta EOF!!!

como le digo al señor delphi(tengo el 6) q pase al siguiente??!!!:confused:

tengo la propiedad readln y me lee el primero pero d ahi no pasa!!

weno muxas gasias x todo y salud!!!:D

__cadetill

15-07-2003 13:35:50

bueno, sin probarlo y a grandes rasgos....

Código:

var str : string;

    F : TextFile;

    MyCadena : string;

    i : integer;

begin

     AssignFile(F, 'c:\lolo.txt');

     Reset(F);

     MyCadena := '';

     while not EOF(F) do

      begin

           Readln(F, str);

           for i := 1 to length(str) do

            begin

                if str[i] <> '"' then

                   MyCadena := MyCadena + str[i];

            end;

      end;

     CloseFile(F);

end;

Espero te sirva

roman

15-07-2003 17:20:34

Si en tu versión de Delphi viene la función StringReplace yo propondría esto:

Código:

var

  Archivo: TStringList;

  S: String;



begin

  Archivo := TStringList.Create;

  try

    Archivo.LoadFromFile('c:\lolo.txt');

    S := StringReplace(Archivo.Text, '"', '', [rfReplaceAll]);

  finally

    Archivo.Free;

  end;

end;

// Saludos

guantxo

16-07-2003 09:19:59

gracias a los dos!!

m hice la pixa exa un lio!!

era sencillo pero no lo veia! gracias!!

en cuanto a la funcion si la tengo aunq no la conocia y es muy interesante, aunq en mi caso no keria sustituir ningun caracter. pero d todos modos m parece q la usare mas adelante!

asias x todo y a todos!!

roman

16-07-2003 17:14:45

Cita:

Posteado originalmente por guantxo
...en cuanto a la funcion si la tengo aunq no la conocia y es muy interesante, aunq en mi caso no keria sustituir ningun caracter...

Y no estás sustituyendo nada! El tercer parámetro es una cadena vacía por lo que el efecto final es el de omitir todas las comillas dobles, con la ventanja de hacerlo de un sólo paso sin necesidad de ciclos.

// Saludos

guantxo

17-07-2003 09:34:15

hola roman!

entendi la funcion, gracias lo q pasa es q escribi deprisa xq staba en el kurro. es una funcion y una idea buena, d exo la usare en el siguiente Form q haga xa probar, pero ahora como ya tenia el codigo exo pues.......eso q los informaticos somos los mas perros!!! viva el Ctrl+C y el Ctrl+V!!!XDDDDDDDDDDDD:p

asias x la aclaracion!!viva la gente como tu tambien!!jjejejejjej

un saludo!!

La franja horaria es GMT +2. Ahora son las 00:43:24.