eliminar lineas de un txt.

[danytorres]

buenos dias amigos del foro, estoy trabajando con una coletora de datos que genera un txt, el problema esta que el archivo tiene lineas en blanco y cuando lo estoy leyendo para insertarlo en la BD me presenta un error, la pregunta es como hago para eliminar las lineas en blanco del txt. Gracias.

[jmariano]

Saludos!

¿Como estás leyendo el archivo?, te lo pregunto porque podrías probar a utilizar la clase "TStringList" para leer el archivo a través del método "LoadFromFile" y, una vez leído, crear un bucle que recorra cada elemento y elimine las líneas en blanco, ejemplo:

Código Delphi [-]
var
  I: Integer;
begin
  with TStringList.Create do
  begin
    LoadFromFile('Prueba.txt');

    for I := 0 to Count - 1 do
      if Strings[i] = '' then
        Delete(I);

    Free;
  end;
end;

(Claro que todo dependerá de como sea la estructura del archivo .txt)

Chao!

[danytorres]

Gracias por responder jmariano, el txt lo leo de esta manera:

Code:
______________________________________________________________
Archivo.LoadFromFile('C:INVENTARIO.txt');

for I := 0 to Archivo.Count -1 do
begin
Campos.Clear;
Campos.CommaText:= Archivo[i];
Codigo:= Campos[0];
end;
______________________________________________________

[jmariano]

Ok, entonces prueba simplemente:

Código Delphi [-]
  Archivo.LoadFromFile('C:INVENTARIO.txt');

  for I := 0 to Archivo.Count -1 do
  begin
    Campos.Clear;
    
    if Archivo[i] <> '' then
    begin
      Campos.CommaText:= Archivo[i];
      Codigo:= Campos[0];
    end; 
  end;

Es, básicamente, lo mismo que te comenté pero ignorando las líneas en blanco.

[danytorres]

Gracias por responder, pero no funciona???

[roman]

¿No será que las líneas en blanco no están tan blancas? En lugar de poner

Código Delphi [-]
if Archivo[i] <> '' then

intenta con

Código Delphi [-]
if Trim(Archivo[i]) <> '' then

// Saludos

[danytorres]

Gracias por responder roman, pero me da error: incompatible string and boolean ?