6 replies to this topic

[bcp9520]

Estimados buenas tardes.

Mi inconveniente es el siguiente, estoy ocupando un TDBadvGrid para mostrar los datos desde un procedimiento almacenado de SQL. Necesito exportar esta información a un archivo plano ASCII, hasta ahora funciona bien solo que el archivo aparece con los nombres de las columnas (encabezado) del SQL y no encuentro la forma de eliminarlo.

desde ya les agraedezco su apoyo.

saludos cordiales.

[poliburro]

¿podrías decirnos como estás generando el archivo?

[Wilson]

Solo identifica el índice de la línea en la que se encuentran los títulos, y pásala al siguiente procedimiento, igualmente la ruta en la que guardas el archivo.

delphi

procedure BorrarLinea(Linea: integer; sFileName: string);
var
  Contenido: TStringList;
begin
  Contenido := TStringList.Create;
  try
    if FileExists(sFileName) then
      Contenido.LoadFromFile(sFileName);
    with Contenido do
    begin
      Delete(Linea);
      SaveToFile(sFileName);
    end; // with
  finally
    Contenido.Free;
  end;
end;

Saludos.

[bcp9520]

Gracias por sus respuestas...
Es simple la forma como genero el archivo, les adjunto el codigo...Como les comentaba leo un procedimento almacenado desde SQL y se carga en forma automatica a un TDBadvGrid.

delphi

procedure TForm1.GenerarArchivoElectronico1Click(Sender: TObject);
begin
  try
    case CbxLibro.ItemIndex of
      0 :
      begin
        Guardar.FileName := 'C:\201303'+'LD'+'.txt';
        if Guardar.Execute then
        begin
          Grilla1.SaveToASCII(Guardar.FileName);
        end;
      end;
      1 :
      begin
        Guardar.FileName := 'C:\201303'+'LM'+'.txt';
        if Guardar.Execute then
        begin
          Grilla1.SaveToASCII(Guardar.FileName);
        end;
      end;
      2 :
      begin
        Guardar.FileName := 'C:\201303'+'LV'+'.txt';
        if Guardar.Execute then
        begin
          Grilla1.SaveToASCII(Guardar.FileName);
        end;
      end;....

gracias.

Wilson, gracias por tu información pero tengo que decirte que me cuesta un poco ver como inserto el codigo que me enviaste con el que ya tengo desarrollado.

[Wilson]

Suponiendo que el título está en la primera línea todo se reduce a esto:

delphi

procedure BorrarLinea(Linea: integer; sFileName: string);
var
  Contenido: TStringList;
begin
  Contenido := TStringList.Create;
  try
    if FileExists(sFileName) then
      Contenido.LoadFromFile(sFileName);
    with Contenido do
    begin
      Delete(Linea);
      SaveToFile(sFileName);
    end; // with
  finally
    Contenido.Free;
  end;
end;
 
 
procedure TForm1.GenerarArchivoElectronico1Click(Sender: TObject);
var
  RutaArchivo: string;
begin
  case CbxLibro.ItemIndex of
    0:
      RutaArchivo := 'C:\201303' + 'LD' + '.txt';
    1:
      RutaArchivo := 'C:\201303' + 'LM' + '.txt';
    2:
      RutaArchivo := 'C:\201303' + 'LV' + '.txt';
  end;
  if Guardar.Execute then
  begin
    Guardar.FileName := RutaArchivo;
    Grilla1.SaveToASCII(Guardar.FileName);
    BorrarLinea(0, RutaArchivo);
  end;
end;

Ahora si Guardar es TSaveDialog, y ya sabes que los archivos van al C a una ruta determinada, pues ya no la necesitas,  y todo quedaría así:

delphi

procedure BorrarLinea(Linea: integer; sFileName: string);
var
  Contenido: TStringList;
begin
  Contenido := TStringList.Create;
  try
    if FileExists(sFileName) then
      Contenido.LoadFromFile(sFileName);
    with Contenido do
    begin
      Delete(Linea);
      SaveToFile(sFileName);
    end; // with
  finally
    Contenido.Free;
  end;
end;
 
procedure TForm1.GenerarArchivoElectronico1Click(Sender: TObject);
var
  RutaArchivo: string;
begin
  case CbxLibro.ItemIndex of
    0:
      RutaArchivo := 'C:\201303' + 'LD' + '.txt';
    1:
      RutaArchivo := 'C:\201303' + 'LM' + '.txt';
    2:
      RutaArchivo := 'C:\201303' + 'LV' + '.txt';
  end;
  Grilla1.SaveToASCII(RutaArchivo);
  BorrarLinea(0, RutaArchivo);
end;

[bcp9520]

Perfecto, muchas gracias Wilson ahora me quedo claro.

Lo pruebo y te comento.

saludos.

[bcp9520]

!!!!!Exelente!!!!! funciono sin problemas el procedimiento, muchas gracias Wilson.

Saludos Cordiales.