Foros Club Delphi - Como llevo de un txt a una tabla de forma atomatica?

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

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

- - Como llevo de un txt a una tabla de forma atomatica? (https://www.clubdelphi.com/foros/showthread.php?t=4003)

Como llevo de un txt a una tabla de forma atomatica?

Hola a todos los del foro. Tengo un txt que dentro tiene una cantida de caracteres, lo que necesito es llevar lo que tiene este txt a los campos de una tabla ejemplo:

Texto.txt
________________

00001 xs dfgf 5566
00002 bg gfgfgfg33
00003 bg erg56566
__________________

Tabla
__________________
Codico Forma lista
000001 xs dfgf 5566
000002 bg gfgfgfg33
000003 bg erg56566
_______________________

Codigo, forma y lista son los campos de mi tabla.

como hago para tirarlos aqui?

_________________________
Un saludo a todos....

Hola, en algun ocasión me parecio ver un truco que planteaba algo asi en trucomania, visitala de pronto encuentras la solución..

Espero te sirva de algo.

Si tus datos estan asi como los pones

Cita:

Texto.txt
________________

00001 xs dfgf 5566
00002 bg gfgfgfg33
00003 bg erg56566
__________________

Tabla
__________________
Codico Forma lista
000001 xs dfgf 5566
000002 bg gfgfgfg33
000003 bg erg56566
_______________________

Entonces necesitas un for y un listBox o un Memo
Usemos el ListBox;

Código:

Procedure -.....



Var

  I : Integer;

  Cad,CadX,CadD : String;

Begin

  Tabla.Open;

  ListBox1.Items.LoadFromFile('Texto.Txt');

  For I := 0 To ListBox1.Items.Count-1 Do

  Begin

    Cad := ListBox1.Items[i];         

    CadX := '0'+Copy(Cad,1,Pos(' '.Cad)-1);

    //aqui le aumeto el cero por que veo que 

    // en la parte txt tienes 4 y en la tabla 5 ceros

    //Pero si es por saber el tamaño entonces

    //usas While Length(Cad) < 6 Do

    //  CadX := '0'+CadX;



    Delete(Cad,1,Pos(' '.Cad));

    CadD := Copy(Cad,1,Pos(' '.Cad)-1);

    Delete(Cad,1,Pos(' '.Cad));

    

    //Metemos en la tabla

    Tabla.Last;

    Tabla.Insert;

    Tabla.FieldByName('Codigo').AsString := CadX;

    Tabla.FieldByName('Forma').AsString := CadD;

    Tabla.FieldByName('Lista').AsString := Cad;

    Tabla.Post;

  End;

End;

Espero que sea lo que pides.. si no es que no te entendi..
:D :D :D :D