Leer un fichero csv con campos separados por puntos y comas.

[pablo73]

Hola!

Tengo un fichero csv con campos separados por puntos y comas y necesito insertarlo en una tabla.
¿sabéis si existe alguna función parecida a la CommaText de un TStringList, pero que utilice como separador los puntos y comas?
¿o sabéis alguna otra forma de hacerlo?

Muchas gracias y un saludo.

[roman]

El mismo StringList tiene la propiedad DelimitedText para tratar archivos con otros separadores. Si no mal recuerdo, especifcas el delimitador en la propiedad Delimiter.

// Saludos

[pablo73]

Muchas gracias.

[aprendiz_delphi]

Lo estoy usando pero no funciona correctamente, cuando hay espacios en blanco.
TEXTO1;TEXTO 2;TEXTO3

Al cargar el tstringlist me pone 4 elementos
TEXTO1
TEXTO
2
TEXTO3

[ecfisa]

Hola.

Usa la función ExtractStrings.

Saludos

[bucanero]

Hola!!

puedes realizar la separación de la cadena con un TStringList pero tienes que poner a true el parametro StrictDelimiter, que te eliminara las comillas envolventes del texto y solo realiza el corte en el delimitador.

Aquí te dejo un ejemplo simple de uso:

Código Delphi [-]
var
  parser: TStrings;
  i, j:Integer;
begin
  with TStringList.Create do
  try
    // lee los datos del fichero.
    // se podria utilizar cualquier otra metodo que lea linea  a linea
    LoadFromFile('c:\tmp\test_csv.csv');
    try
      parser := TStringList.Create;
      parser.StrictDelimiter := True;
      parser.Delimiter := ';';
      // recorre cada linea del fichero y extrae el valor de los campos
      for i := 0 to count - 1 do begin
        parser.DelimitedText := strings[i];
        Memo1.Lines.AddStrings(parser);
        Memo1.Lines.Add('');
      end;
    finally
      parser.free
    end;
  finally
    free;
  end;

Para leer un CSV relativamente simple te puede servir, si por el contrario las cadenas del CSV contienen saltos de linea o cosas mas complejas, entonces este método se queda corto y puede llegar a no ser valido