| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
matiovi
Cdt
Registrado: 23 Nov 2004Mensajes: 4
|
 Publicado: Mar 23 Nov, 2004 11:11 pm Asunto: Hola tengo un peuqeño problema con los archivos |
 |
|
Mi probloema es el siguiente, tengo q abrir un archivo.txt, el cual esta cargado de la siguiente manera:
4
1
2
3
6
-1
y lo q quiero hacer es incrementar en 1 el primer valor y luego reemplazarlo. De la manera q lo hago me pone cualquier cosa en el principio.
_________________
Matute |
|
| Volver arriba |
|
 |
Tugui
Master
Registrado: 09 Nov 2002Mensajes: 663
|
| Publicado: Mie 24 Nov, 2004 10:54 am Asunto: |
|
|
Por ejemplo:
| Código: |
TStringList *archivo = new TStringList();
archivo->LoadFromFile("C:\\tuarchivo.txt");
archivo->Strings[0]= IntToStr(archivo->Strings[0].ToInt()+1);
archivo->SaveToFile("C:\\tuarchivo.txt");
delete archivo;
|
_________________
¡ADELANTE CON ESTE SUPER FORO! |
|
| Volver arriba |
|
|
matiovi
Cdt
Registrado: 23 Nov 2004Mensajes: 4
|
| Publicado: Mie 24 Nov, 2004 6:10 pm Asunto: |
|
|
Exelente, gracias funciona ok. y como se hace para ir de una al final de la lissta e escribir de ahi para abajo.
gracias por tu paciencia
_________________
Matute |
|
| Volver arriba |
|
|
Tugui
Master
Registrado: 09 Nov 2002Mensajes: 663
|
| Publicado: Mie 24 Nov, 2004 7:24 pm Asunto: |
|
|
No se si he entendido muy bien lo que quieres decir, si te refieres a escribir justo al final del archivo puedes probar con esto:
| Código: |
TStringList *archivo = new TStringList();
archivo->LoadFromFile("C:\\tuarchivo.txt");
archivo->Add("Nueva línea de texto añadida."); //Línea modificada
archivo->SaveToFile("C:\\tuarchivo.txt");
delete archivo;
|
Simplemente se ha modificado una sola línea. Esto lo que hace es añadir una línea de texto nueva al texto que ya existe previamente, en el caso de que sean varias líneas las que tengas que añadir puedes utilizar un bucle.
_________________
¡ADELANTE CON ESTE SUPER FORO! |
|
| Volver arriba |
|
|
Invitado
|
| Publicado: Mie 24 Nov, 2004 9:37 pm Asunto: |
|
|
gracias, despues de que puse el post me di cuenta  perdona mi ignorancia.
gracias igual |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
