Eliminar marcas de formato rtf

[esocrates]

Un saludo a todos:
Necesito saber cómo se hace para que al cargar un archivo rtf en un RichEdit no se visualicen los caracteres propios del formato rtf al comienzo de la página.
Por ej.

{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}{\f1\fnil MS Sans Serif;}}
\viewkind4\uc1\pard\lang3082\f0\fs16 Listado de Enrique\f1
\par

Desde ya muchas gracias

[Casimiro Notevi]

Existen utilidades que lo hacen, normalmente se llamaran "rtf2txt" o también "rtftotxt", por ejemplo,

Aquí uno free: http://www.brothersoft.com/rtf2txt-61949.html

Fíjate, un programilla basic de msdos que dice hacer eso mismo que quieres, puede que te sirva de algo:

RTF2TXT.BAT - RTF to Text file converter

  A program born out of a simple need, to read a Rich Text Format document. This batch creates and runs a QBasic program that converts the RTF file to plain text. Changes "\par" to newline, "\tab" to tab, all other words beginning with "\" are ignored. Newlines in the source file are ignored. To get rid of the header junk, "{" turns off the output stream until a "}" comes along. 
 Usage: RTF2TXT infile.rtf outfile.txt 
 
 
:: (updated) Cheezy RTF-to-Text converter batch 
:: by Terry Newton. Needs QBASIC "on the path"
@echo off
if .%2==. echo Usage: Usage: RTF2TXT infile.rtf outfile.txt
if .%2==. goto end
if not exist %1 echo File not found
if not exist %1 goto end
echo Converting RTF to text...
echo> rtf2-.bas :on error goto x
echo>>rtf2-.bas open "%1" for input as #1:open "rtf2-" for output as #2
echo>>rtf2-.bas f:a$=input$(1,1):c$=""
echo>>rtf2-.bas if a$=chr$(13) or a$=chr$(10) then goto f
echo>>rtf2-.bas if a$="{" then skip=1:goto f
echo>>rtf2-.bas if a$="}" then skip=0:goto f
echo>>rtf2-.bas if skip then goto f
echo>>rtf2-.bas if (a$="\")=0 then goto o
echo>>rtf2-.bas g:a$=input$(1,1):if (a$=" ")=0 then c$=c$+a$:goto g
echo>>rtf2-.bas if c$="par" then print #2,""
echo>>rtf2-.bas if c$="tab" then print #2,chr$(9);
echo>>rtf2-.bas goto f
echo>>rtf2-.bas o:print #2,a$;:goto f
echo>>rtf2-.bas x:close #1:close #2:resume ww
echo>>rtf2-.bas ww:on error goto done
echo>>rtf2-.bas open "rtf2-" for input as #1:open "%2" for output as #2
echo>>rtf2-.bas lm:line input #1, a$:if a$="" then print #2,"":goto lm
echo>>rtf2-.bas l0:t=0:p=instr(a$,chr$(9)):if sgn(77-p)-(p=0)=1 then t=8
echo>>rtf2-.bas p=77-t:if sgn(p-len(a$)+1)=1 then print #2,a$:goto lm
echo>>rtf2-.bas l1:if mid$(a$,p,1)=" " then goto c
echo>>rtf2-.bas p=p-1:if p=0 then print #2,a$:goto lm else goto l1
echo>>rtf2-.bas c:print #2,left$(a$,p-1):a$=right$(a$,len(a$)-p):goto l0
echo>>rtf2-.bas done:close #1:close #2:system
qbasic /run rtf2-.bas
del rtf2-.bas
del rtf2-
:end

Seguro que encuentras algún componente que lo hace.

[Neftali [Germán.Estévez]]

No me queda claro si lo que quieres es "cargarlo" o "convertirlo".
Para convertirlo y obtener el texto sin los caracteres del formato, pues tal y como te ha dicho Casimiro.

Para cargarlo únicamete (en ejecución) debes usar:

Código Delphi [-]
  RichEdit1.Lines.LoadFromFile('r:\test.rtf');

[esocrates]

Empezado por Neftali

No me queda claro si lo que quieres es "cargarlo" o "convertirlo".
Para convertirlo y obtener el texto sin los caracteres del formato, pues tal y como te ha dicho Casimiro.

Para cargarlo únicamete (en ejecución) debes usar:

Código Delphi [-]
  RichEdit1.Lines.LoadFromFile('r:\test.rtf');

Gracias por la respuesta Neftali.
Efectivamente lo que quiero es simplemente cargarlo.
Intento hacer lo que me indicas y me da un mensaje de error:

"El sistema no puede halla la ruta especificada"

Aclaro que el archivo está en la carpeta del programa en cuestión.
¿Alguna sugerencia?
Muchas gracias
Hasta pronto

[Neftali [Germán.Estévez]]

Empezado por esocrates

"El sistema no puede halla la ruta especificada"
Aclaro que el archivo está en la carpeta del programa en cuestión.

Tiene pinta de que el path es incorrecto.
¿Qué path estás colocando?

[esocrates]

Empezado por Neftali

Tiene pinta de que el path es incorrecto.
¿Qué path estás colocando?

El archivo listado.rtf está en la carpeta del programa.
Lo llamo mediante:

RichEdit1.Lines.LoadFromFile('r:\listado.rtf');

Me da este mensaje:
"Cannot open file 'listado.rtf'. El sistema no puede hallar la ruta especificada"

Un saludo

[Neftali [Germán.Estévez]]

Pon la ruta completa del fichero RTF como parámetro.
Mi fichero RTF está en: r:\Test.rtf

Coloca entre comillas el path completo donde se encuentra tu fichero.
Por ejemplo:

RichEdit1.Lines.LoadFromFile('c:\documentos\listado.rtf');
o
RichEdit1.Lines.LoadFromFile('c:\Archivos de programa\MiApp\listado.rtf');
...

[esocrates]

Empezado por Neftali

Pon la ruta completa del fichero RTF como parámetro.
Mi fichero RTF está en: r:\Test.rtf

Coloca entre comillas el path completo donde se encuentra tu fichero.
Por ejemplo:

RichEdit1.Lines.LoadFromFile('c:\documentos\listado.rtf');
o
RichEdit1.Lines.LoadFromFile('c:\Archivos de programa\MiApp\listado.rtf');
...

Hola Neftali:
De esa manera lo carga pero mostrando los caracteres que señalo en la pregunta, que son los que no quiero que se vean.
Gracias por tu ayuda

[Casimiro Notevi]

Recuerda poner la propiedad "plaintext" a false. Del ritchedit

[Neftali [Germán.Estévez]]

Empezado por esocrates

Hola Neftali:
De esa manera lo carga pero mostrando los caracteres que señalo en la pregunta, que son los que no quiero que se vean.
Gracias por tu ayuda

Algo tienes mal, porque yo lo cargo de esa manera y me lo carga perfectamente en ejecución.

[esocrates]

Empezado por Neftali

Algo tienes mal, porque yo lo cargo de esa manera y me lo carga perfectamente en ejecución.

Es posible que yo tenga un error de concepto.
El archivo que llamo ha sido hecho con WordPad y guardado como rtf. Entonces se carga pero muestra los caracteres de formato.
Si hago un archivo con mi aplicación lo guardo y lo cargo esto no sucede.
Se me ocurre que este puede ser el problema.
Muchas gracias

[Casimiro Notevi]

Empezado por esocrates

Es posible que yo tenga un error de concepto.
El archivo que llamo ha sido hecho con WordPad y guardado como rtf. Entonces se carga pero muestra los caracteres de formato.
Si hago un archivo con mi aplicación lo guardo y lo cargo esto no sucede.
Se me ocurre que este puede ser el problema.
Muchas gracias

¿Has leído lo que he puesto antes?

[esocrates]

Empezado por Casimiro Notevi

¿Has leído lo que he puesto antes?

Hola Casimiro Notevi:
Sí lo he leído.
plaintext =false
Un saludo

[Casimiro Notevi]

Pues entonces, sólo puedo citar las palabras de Neftalí:

Empezado por Neftali

Algo tienes mal, porque yo lo cargo de esa manera y me lo carga perfectamente en ejecución.

¿Puedes poner el fichero que lo probemos?

[esocrates]

Empezado por Casimiro Notevi

Pues entonces, sólo puedo citar las palabras de Neftalí:




¿Puedes poner el fichero que lo probemos?

Hasta ahora consigo cargar archivos rtf escritos en cualquier editor menos un archivo que fue escrito en Microsoft Word 2003 guardado como doc y luego convertido desde Word a rtf que se carga pero muestra los caracteres de rtf que muestro en el primer post.
No puedo adjuntar el archivo porque pesa 0.75 MB
Un saludo y gracias

[Neftali [Germán.Estévez]]

Está claro que lo que está funcionando mal es la conversión que estás haciendo o tu versión de Office.
Yo he probado (te adjunto el proyecto) con un documento generado con el WordPad, otro generado con OpenOffice y otro generado con MS Word y los tres los abre sin problemas.

[esocrates]

Empezado por Neftali

Está claro que lo que está funcionando mal es la conversión que estás haciendo o tu versión de Office.
Yo he probado (te adjunto el proyecto) con un documento generado con el WordPad, otro generado con OpenOffice y otro generado con MS Word y los tres los abre sin problemas.

Te adjunto un archivo problema
Muchas gracia spor tu ayuda

[esocrates]

Empezado por esocrates

Te adjunto un archivo problema
Muchas gracia spor tu ayuda

El programa con el archivo problema
Delphi 7

[Neftali [Germán.Estévez]]

Vale!
Está claro que en este caso el problema es el tamaño.

El fichero tiene formato correcto, pero parece que es demasiado grande para el componente estandard de Delphi. He realizado la prueba eliminando unas cuantas páginas y se carga correctamente.

Habría que investigar a partir de ahí.

[esocrates]

Empezado por Neftali

Vale!
Está claro que en este caso el problema es el tamaño.

El fichero tiene formato correcto, pero parece que es demasiado grande para el componente estandard de Delphi. He realizado la prueba eliminando unas cuantas páginas y se carga correctamente.

Habría que investigar a partir de ahí.

Hola Neftali:
Ahora tengo claro el problema y su solución.
Muchas gracias por tu ayuda y tiempo
Hasta pronto
Enrique