Txt delimitado a tabla
 

Buenas
Tengo que ingresar datos a una tabla Paradox y la base me la dan en un txt delimitado por comas y entre comillas ("campo1","campo2",...).
Se me ocurrió que podía podía hacerlo con copy, estableciendo la cantidad de caracteres de cada campo hasta llegar al último pero el ancho de campo no es siempre el mismo. Lo que si es fijo es que cada campo va encerrado entre " " y separados por coma.
¿Hay alguna forma de pasar esto a una tabla?
Muchas gracias desde ya.
Un abrazo.

Walter

También podrías probar con Ini FIles. Creo que en la sección de ejemplos de clubdelphi hay un hospital sin tablas... (un ejemplo, digo, no vayan a creer que clubdelphi también tiene sección de enfermería)

Puedes utilizar los componentes de ADO para "leer" los ficheros CSV (delimitados por comas) como si fuesen una tabla; A partir de ahí se trata de ir leyendo registro de un sitio e ir insertándolos en otro.

Una opción podría ser usar dos TStringList. Uno para leer todas las líneas del archivo en memoria y el otro para procesar cada línea del primero asignándola a la propiedad CommaText del segundo. Esto te separará los campos en líneas que puedes ya procesar fácilmente para copiar los campos a la tabla destino:

Código Delphi [-]
var
  ArchivoCsv, Campos: TStringList;
  I, J: Integer;

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

  try
    ArchivoCsv.LoadFromFile('archivo.csv');
    for I := 0 to ArchivoCsv.Count - 1 do
    begin
      Campos.Clear;
      Campos.CommaText := ArchivoCsv[i];
      
      for J := 0 to Table.FieldCount - 1 do
      begin
        Table.Fields[J].Value := Campos[J];
      end;
    end;
  finally
    ArchivoCsv.Free;
    Campos.Free;
  end;
end;

// Saludos

Excelente tu solución!!!
Muchas gracias Roman.
Un abrazo.

Walter