Importar Dados .txt
24/11/2005
0
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..
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
Curtir tópico
+ 0
Responder
Posts
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]; 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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)