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

[danytorres]

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....

[CFPA86]

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.

[sanxpue]

Si tus datos estan asi como los pones

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;


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