Importar Dados .txt

24/11/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..


Tremonti

Respostas

25/11/2005

Marcio.theis

Uma forma simples de pegar os valores seria:

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&93;;
            if ((linha&91;x&93; = ´|´) or (x = Length(linha))) then
                begin
                if (linha&91;x&93; = ´|´) 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;



Responder Citar