FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Insertar al principio de un fichero de texto informacion
Pues eso,quisiera introducir en un fichero de texto una cierta información al principio del mismo. Por ejemplo, una cabecera.Ejemplo:
Fichero: Hola, soy juan....... .... Y me gustaria añadir al principio por ejemplo la fecha y hora Fichero Salida: 16/12/05 14:34 Hola, soy juan....... ..... Gracias antes de nada. |
#2
|
||||
|
||||
Si el fichero no es muy grande, una forma fácil y sencilla es cargarlo en un TStrings (LoadFromFile) hacen un Insert para añadir líneas al principio y luego un SaveToFile para volver a guardarlo en disco.
__________________
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
|
|||
|
|||
Un TSrings donde?¿Don de lo declaro y de que manera?Perdonen mi ignorancia sobre el tema pero no se como hacerlo.¿Me podrias poner codigo ejemplo?Muchas gracias.
|
#4
|
||||
|
||||
Hola,
Echa un vistazo a esta búsqueda en los Foros: el utilizar la clase "TStrings" para trabajar con archivos de texto es un tema que se ha tratado en más de una ocasión. |
#5
|
|||
|
|||
Ok,ya casi lo tengo.El problema ahora me surge que al usar el insert,solo puedo insertar un parámetro en una linea.Es decir,no puedo insertar una fecha completa, junto con un nombre en la primera fila.¿Que funcion puedo utilizar en lugar de insert?
|
#6
|
||||
|
||||
Si no te molesta crear un archivo a partir de este para agregar un fragmento al inicio, yo haría algo como:
Si lo que quieres es desplazar la información del archivo hacia atrás, y escribir en el mismo encabezado del archivo. Vas a tener que copiar el contenido a la memoria, escribirlo en la nueva posición (0+offset), y escribir lo que quieras en el encabezado. Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#7
|
||||
|
||||
Escribí el mensaje anterior sin llegar a ver tu respuesta!..
Cita:
O uno de los datos contiene los caracteres de fin de línea CR/LF. Concatena los dos valores:
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. Última edición por delphi.com.ar fecha: 10-01-2006 a las 20:05:34. |
#8
|
|||
|
|||
Hola...
Federico, existe un error en tu respuesta, y es que el método Insert del TStringList usa dos parámetros, el índice del lugar donde insertar la cadena y la cadena:
Saludos... |
#9
|
|||
|
|||
Ok,gracias por su ayuda.Finalmente lo resolvi añadiendo +(para poder añadir mas strings,con eso me valia) dentro de insert.Gracias
|
#10
|
||||
|
||||
Cita:
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Insertar texto transparente con canvas | Jan_polero | Gráficos | 3 | 23-08-2012 18:44:15 |
insertar datos en una tabla desde fichero XML??? | mguixot | Conexión con bases de datos | 2 | 17-05-2006 17:18:04 |
leer fichero de texto | davidgaldo | Varios | 1 | 08-11-2005 16:05:12 |
Escribir con máscara en un fichero de texto | jadelphi | Varios | 4 | 07-10-2004 11:36:21 |
Leer un fichero .ini | oesteve | OOP | 6 | 16-06-2003 17:40:20 |
|