Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-10-2011
Yoana Yoana is offline
Miembro
 
Registrado: feb 2010
Posts: 22
Poder: 0
Yoana Va por buen camino
Quitar espacios en blanco de un archivo.txt en DELPHI

Hola, buenas tardes, podrían de favor ayudarme en lo siguiente:

Estoy usando Delphi 7.

Tengo un archivo.txt, al cual necesito leer todos sus registros para después sacar unas medias, pero estoy tendiendo problemas por que tiene espacios en blanco y no se como eliminarlos. Así es como esta la información.

1 , 2 0 0 7 , 3 3 , M , 0 , 1
2 , 2 0 0 6 , 0 , M , 0 , 1
3 , 2 0 0 8 , 0 , M , 0 , 1
4 , 2 0 0 8 , 3 5 , M , 0 , 1
5 , 2 0 0 8 , 0 , M , 0 , 1


y es una gran cantidad de registros. Necesito eliminar todos los espacios en blanco que hay entre ellos.
Si me pueden dar ideas de como hacerlo se los agradecería mucho.
Responder Con Cita
  #2  
Antiguo 14-10-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Yoana.


Código Delphi [-]
procedure QuitarEspacios(const Archivo: string);
begin
  with TStringList.Create do
  try
    LoadFromFile(Archivo);
    Text:= StringReplace(Text, ' ', '', [rfReplaceAll]);
  finally
    SaveToFile(Archivo);
    Free;
  end;
end;

Llamada de ejemplo:
Código Delphi [-]
  QuitarEspacios('C:\PRUEBA.TXT');

Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 14-10-2011 a las 22:26:01.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
quitar espacios en blanco de un string rmnart Varios 4 21-12-2009 16:24:32
Problema: DBGrid con tabla Paradox deja espacios en blanco. (Delphi 7) DJerez Conexión con bases de datos 5 01-08-2008 09:06:14
SQL y los espacios en blanco fide SQL 5 12-02-2008 00:44:34
SPLIT en delphi, pero sin tener en cuenta espacios en blanco acl_gandalf Varios 1 08-04-2005 15:24:56
Quitar espacios en blanco Javier_A OOP 3 09-06-2004 11:29:27


La franja horaria es GMT +2. Ahora son las 11:01:20.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi