Foros Club Delphi - Deglosar Cadena Archivo CSV

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Deglosar Cadena Archivo CSV (https://www.clubdelphi.com/foros/showthread.php?t=59878)

el_barto

11-09-2008 16:46:50

Deglosar Cadena Archivo CSV

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:

Código:

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

11-09-2008 16:51:09

Hola

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

jhonny

11-09-2008 16:56:30

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

TOPX	11-09-2008 17:08:44

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

Lo que yo haría:

Cada línea del archivo, asignarla a la propiedad CommaText de una nueva TStringList
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

11-09-2008 17:29:47

ah Gracias :)

pues lo hice asi

Código:

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 :)

La franja horaria es GMT +2. Ahora son las 00:06:20.