Recorrer un excel o cvs

[YaninaGenia]

Hola
Necesito recorrer un archivo de tipo CVS (Separadas las columas con ; o ,) e ir insertando en la base de datos. Se que en forma invertida (de base a excel) se hace con un query.recordcount para ver que se escriban todas las filas, pero no se hacerlo al reves. A alguno se le ocurre algo?

Yanina Genia

[gilberto_1126]

Yo hice algo parecido. Lo que hice fue colocar toda la informacion del archivo de excel en un stringgrid y ya que tenia toda la informacion lo que hice fue recorrer celda por celda e ir tomando cada dato para guardar la informacion. no se si esto te pueda servir.

[roman]

Suponiendo que es un archivo separado por comas:

Código Delphi [-]
var
  Archivo: TStringList;
  Campos: TStringList;
  I: Integer;

begin
  Archivo := TStringList.Create;
  Campos := TStringList.Create;

  try
    Archivo.LoadFromFile('archivo.csv');

    for I := 0 to Archivo.Count - 1 do
    begin
      Campos.CommaText := Archivo[i];
      {
         Ahora accedes a los campos de la línea en turno con
         Campos[0], Campos[1], Campos[2], etc.
      }
    end;
  finally
    Archivo.Free;
    Campos.Free;
  end;
end;

Si el archivo está separado por ; entonces puedes usar DelimitedText en lugar de CommaText especificando ';' en la propiedad Delimiter de Campos.

// Saludos