FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Borrar registros de un archivo de texto
saludos, estoy tratando de hacer un procedimiento que borre registros de un archivo de texto, la clave de esos registros la tengo en un listbox y los registros son aquellos que comienzen con el tabulador, para eso decidi crear un archivo auxiliar para despues copiar los registros que no quiero borrar al archivo con los registros, el codigo es el siguiente, pero el problema es que al terminar el codigo parece que me cierra el archivo original (F), puesto que si trato de volver a acceder a al me marca ERROR I/O 103, espero me puedan ayudar, gracias =)
Código:
procedure TForm3.Button3Click(Sender: TObject); var lineaactual,texto :string; aux: TextFile; begin if (ListBox1.ItemIndex <> -1) then begin texto := ListBox1.Items[ListBox1.ItemIndex]; ListBox1.Items[ListBox1.ItemIndex] := ''; end; if (ListBox1.ItemIndex <> -1) and (FileExists( ExtractFilePath( Application.ExeName ) + 'Musica.DATA' )) then begin CopyFile( PAnsiChar(ExtractFilePath(Application.ExeName ) + 'Musica.DATA'),PAnsiChar( ExtractFilePath( Application.ExeName ) + 'aux.DATA'), false); AssignFile( aux, ExtractFilePath( Application.ExeName ) + 'aux.DATA' ); append(aux); reset(aux); Rewrite(F); while not Eof(aux) do begin Readln(aux, lineaactual); if CompareText(lineaactual, texto)<>0 then WriteLn(F,lineaactual); if CompareText(lineaactual, texto)=}0 then begin Readln(aux, lineaactual); while (not Eof(aux)) and (lineaactual[1]=chr(9)) do readln(aux,lineaactual); Readln(aux, lineaactual); end; end; closefile(aux); deletefile(ExtractFilePath( Application.ExeName ) + 'aux.DATA' ); end; BuscarGeneros(); // end end; Última edición por ecfisa fecha: 20-04-2011 a las 02:09:10. |
#2
|
||||
|
||||
Hola Pato89xd.
Realmente no logro entender la lógica de tu código. Pero basandome en lo que queres hacer, Cita:
Llamada de ejemplo:
Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 21-04-2011 a las 02:00:22. |
#3
|
|||
|
|||
Muchas gracias, funciono de maravilla, y para la proxima tratare de estructurar mejor mi codigo para que no resulte tan incoherente para los demas =)
|
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Borrar Registros | look | OOP | 6 | 12-10-2007 04:02:16 |
Leer,rescribir,borrar fila especifica en archivo de texto | thelibmx | Varios | 4 | 14-09-2007 00:02:21 |
Borrar registros | yorllito | Conexión con bases de datos | 3 | 09-04-2006 16:04:18 |
Como puedo grabar texto en un Archivo de Texto sin Sobreescribir???? | AGAG4 | Varios | 12 | 08-11-2005 22:53:00 |
Borrar registros | dmagui | MySQL | 2 | 11-07-2005 20:14:25 |
|