Ver Mensaje Individual
  #1  
Antiguo 09-06-2008
Avatar de rulo_m
rulo_m rulo_m is offline
Miembro
 
Registrado: dic 2007
Posts: 70
Reputación: 17
rulo_m Va por buen camino
Reemplazar texto en un textfile..

Bueno mi pregunta es la siguiente.. como hago para reemplazar una "palabra" en un textfile.
el archivo de texto lo asigne a una variable de este tipo.. no lo visualizo en ningun memo ni nada, pero quiero poder reemplazar una palabra "codigonuevo.text" en todas sus ocurrencias..

Código Delphi [-]
AssignFile (myFile, archivo);
    Rewrite (myFile);
    while not EOF (myFile) do
    begin
      ReadLn (myFile, linea);
      posicion := pos (',', Linea); //posicion del separador
          codigo := Copy (Linea, 0, posicion - 1);
          cant    := Trim (Copy (Linea, posicion + 1, length (linea)));
          if codigoerror.text=codigo then
          begin
          cad:=codigonuevo.text+','+cant;
         // Writeln(myFile,cad);
          end;
    end;
    CloseFile(myFile);

codigoerror es un edit con la palabra a reemplazar con codigonuevo.text..
se puede hacer algo asi? asi como lo tengo, pasa que el archivo se vacia..
a ver si me di a entender, por cierto uso delphi 2007.. gracias por adelantado.

o no se puede hacer directamente?... y tengo q vaciarlo en un memo o una lista, y entonces buscar y reemplazar?

Última edición por rulo_m fecha: 09-06-2008 a las 22:07:14. Razón: por sope..
Responder Con Cita