Foros Club Delphi - Leer parte de un fichero .RTf

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

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

- - Leer parte de un fichero .RTf (https://www.clubdelphi.com/foros/showthread.php?t=54661)

Leer parte de un fichero .RTf

Tengo un fichero 'Lecturas.rtf.' y necesito leer parte de ese fichero.
El fichero contiene unas lecturas diarias y yo desearía cargar en un RxRichEdit, solamente la correspondiente a cada día, sin cargar el resto del fichero.
Con ficheros .txt medio lo consigo, pero con .rtf no hay forma.
El motivo de que desee que sea .rtf, es porque quiero ponerle notas, colores, subrayados, etc.
El fichero es escrito con Word, puedo ponerle las 'notas', u otra marca, que desee para separar cada día de lectura...

Gracias de antemano
Un saludo.
Tonio.

Cita:

Empezado por Tonio (Mensaje 275444)

Con ficheros .txt medio lo consigo, pero con .rtf no hay forma.

Exactamente qué te pasa; ¿Te da error? ¿No sabes cómo hacerlo? ¿No consigues cargarlo?

Teóricamente puedes cargar un fichero RTF en un TStrings como si fuera un fichero de texto; Simplemente que el RTF además del texto tiene los caracteres que codifican los formatos de fichero.

Es cuestión de que te "saltes" esos códigos de formato y busques lo que necesitas.

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.