Deglosar Cadena Archivo CSV

[el_barto]

Buenas Tardes:

Tengo una duda con respecto a un archivo csv y es la siguiente:

Mediante una variable hago lo siguiente para obtener los datos de una linea de el archivo:

for i := 0 to lista.Count - 1 do
      begin
        linea := lista.strings[i];

La variable linea me muestra por ejemplo los siguiente;

1, 80143, N, HOLA

Si yo tengo asignadas una variable para obtener cada uno de los valores que me devuelve el archivo por linea, como puedo hacer para guardar cada columna asi:

VARA = 1
VARB = 80143
VARC = N
VARD = HOLA

Agradezco cualquier colaboracion

[ninguno]

Hola

Mírate la clase TStringList, te será muy sencillo, ya verás

[jhonny]

O tal vez te sirva utilizar la función ExtractString, en el foro hay varios ejemplos de como utilizarla .

[TOPX]

Buenos días (aún por acá),

Lo que yo haría:

1. Cada línea del archivo, asignarla a la propiedad CommaText de una nueva TStringList
2. Por cada línea de esa nueva TStringList, una de dos (si aplica):
   • Ir mostrando el nombre de la columna del archivo concatenado de '=' y de la línea en sí
   • Asignarla a la propiedad Values[nombre_de_la_columna_del_archivo] de una segunda TStringList

Espero no haber enredado la cosa...

[el_barto]

ah Gracias

pues lo hice asi

function TFrmCmCacot.extraerItemarchivo;
var
  coma: integer;
begin
  coma := pos(delimitador, st);
  if coma = 0 then
  begin
    result := st;
    st := '';
  end
  else
  begin
    result := copy(st, 1, coma - 1);
    st := copy(st, coma + 1, length(st));
  end;
end;

Y me funciono muy bien, les agradezco su valiosa ayuda