Solucao para esse algoritimo

Delphi

11/12/2006

Ola , estou exportando dados de arquivo txt para meu db, para os campo Nome,Endereco, Bairro+cidade-estado-cep, mas em alguns aparece uma quarta linha tipo de comercio que nao é para ser inserida.
ex:

Adão Rodrigues dos Santos

Rua Malva Rosa, 185
Juliana - Belo Horizonte - MG - CEP: 31780-455


Artigo e presente




Ana Lúcia dos Santos

Rua Malva Rosa, 155 c A
Juliana - Belo Horizonte - MG - CEP: 31780-455







Anderson Camargos dos Santos

Rua Malva Rosa, 27
Juliana - Belo Horizonte - MG - CEP: 31780-455







Antônio Carlos de Figueiredo

Rua Malva Rosa, 61
Juliana - Belo Horizonte - MG - CEP: 31780-455



Transorte



Belmiro Pereira da Silva

Rua Malva Rosa, 196
Juliana - Belo Horizonte - MG - CEP: 31780-455


Alguem Pode me aljudar

Ellcilei Lopes


Elcilei

Elcilei

Curtidas 0

Respostas

Elcilei

Elcilei

11/12/2006

conseguir reselver , agora e o sequinte tem mais de 500 arquivos txt em uma pasta , no momento estou copiando e colando o nome do arquivo no edit tem como fazer isso altomaticamente.


GOSTEI 0
Micheus

Micheus

11/12/2006

conseguir reselver , agora e o sequinte tem mais de 500 arquivos txt em uma pasta , no momento estou copiando e colando o nome do arquivo no edit tem como fazer isso altomaticamente.

Este exemplo lista os arquivos em um path, utilizando a máscara ´*.txt´, e carrega seu conteúdo em um componente TStringList para ser manipulado linha-a-linha. Veja se lhe ajuda:
procedure Form1.ProcessaArquivos(Path :String);
var
  Idx :Integer;
  FileInfo :TSearchRec;
  FileTXT :TStringList;
begin
  SetCurrentDir(Path);
  if FindFirst(´*.txt´, faArchive, FileInfo) = 0 then
  begin
    FileTXT := TStringList.Create;
    repeat
      FileTXT.LoadFromFile(FileInfo.Name);
{
      *** Aqui faz processamento da lista a qual contém as linhas do arquivo
}
      FileTXT.Clear;
    until FindNext(FileInfo) <> 0;
    FileTXT.Free;
    FindClose(FileInfo);
  end;
end;


[]s


GOSTEI 0
POSTAR