FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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. |
#2
|
||||
|
||||
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.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
|||
|
|||
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; "{\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. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
leer fichero de texto | emeritos | Lazarus, FreePascal, Kylix, etc. | 5 | 20-02-2008 19:57:46 |
leer de fichero | machingol | Varios | 7 | 09-05-2007 17:22:42 |
Leer fichero | rocio84 | Varios | 1 | 21-05-2006 10:45:06 |
Problema leer un fichero .sql | jymy788 | Varios | 4 | 18-07-2005 14:47:23 |
Leer un fichero .ini | oesteve | OOP | 6 | 16-06-2003 16:40:20 |
|