Ver Mensaje Individual
  #3  
Antiguo 27-03-2008
Tonio Tonio is offline
Miembro
 
Registrado: may 2003
Ubicación: Logroño
Posts: 111
Reputación: 22
Tonio Va por buen camino
Leer parte de un fichero .RTf

Gracias Neftalí.

Mi problema es el que creo apuntas, "los caracteres que codifican los formatos de fichero."

Empleo éste código:
Código:
procedure TForm1.BitBtn2Click(Sender: TObject);
var
  Lineas: TStringList;
  Linea, Campo1, Campo2: string;
  i:integer;
begin
  Lineas := TStringList.Create;
  try
    Lineas.LoadFromFile('D:\Lecturas.rtf');
    for i:= 0 to Lineas.Count - 1 do
    begin
      Linea := Lineas[i];
      RE2.Lines.Add(Linea)
     { RE2 es un RxRichEdit}
    end;
  finally
    Lineas.Free;
  end;
end;
Qué debo hacer para que 'desaparezca' esto:

"{\f36\froman\fcharset238\fprq2 Times New Roman CE;}{\f37\froman\fcharset204\fprq2 Times New Roman Cyr;}{\f39\froman\fcharset161\fprq2 Times New Roman Greek;}{\f40\froman\fcharset162\fprq2 Times New Roman Tur;}", ya que con .txt, como es lógico, no sale.

Luego, ¿hay algo determinado para leer desde la línea 18 a la 50? y luego insertarlo allí otra vez, una vez modificado.

Perdón por si pido algo complicado o, por el contrario, es tan fácil que ya debiera saberlo.

Gracias otra vez.
Saludos.
Tonio.
Responder Con Cita