Array
(
)

Importar Dados .txt

Tremonti
   - 24 nov 2005

Galera,

Estou aki para pedir um help...

Tenho um arquivo txt gerado e com um delimitador |

Gostaria de pegar esses campos do txt e ir armazenando em uma tabela alguem pode me dar uma força

é mais ou menos assim:


Nome do cara|email
Nome do cara grande|email

Entao terei de ler linha por linha até achar o |

Poderiam me ajudar?!

Abraços..


Marcio.theis
   - 25 nov 2005

Uma forma simples de pegar os valores seria:

#Código

var
arq: TextFile;
linha, valor: string;
x: integer;
begin
AssignFile(arq,´c:\teste.txt´);
{$I-}
Reset(arq);
{$I+}
if IOResult = 0 then
begin
while not Eof(arq) do
begin
Readln(arq,linha);
valor:=´´;
for x:=1 to Length(linha) do
begin
valor:=valor + linha[x];
if ((linha[x] = ´|´) or (x = Length(linha))) then
begin
if (linha[x] = ´|´) then
valor:=copy(valor,1,Length(valor) - 1);
//Neste ponto vc já terá o "valor" para ser atribuido ao seu campo...
valor:=´´;
end;
end;
end;
end;