Importar TXT com virgula

Question

Pessoal estou com uma dificuldade para importar dados separados por virgula, tentei utilizar o codigo [url]//forum.clubedelphi.net/viewtopic.php?t=53307&highlight=importar+dados+txt[/url] mas...

Vagner.oliveira · Answer

sobe...

Antseralves · Answer

Em primeiro lugar acredito que o uso de v�rgula como separador
� uma escolha infeliz pois em caso de campos decimais no txt
os mesmos, dependendo de como est� configurado o sistema,
dever�o ser representados com v�rgula, porem isso � outro assunto.

Acho que o exemplo abaixo poder� ajudar, naturalmente que com as
adapta��es espec�ficas do teu caso !.

Boa Sorte.

procedure TForm1.Button1Click(Sender: TObject);

var Lista : TStringList;
I,J,Li,Lf : integer;
L,Sub : String[80];
TipoCampo : TFieldType;
campo : Variant;

begin
Lista := TStringList.Create;
Lista.LoadFromFile(�Arquivo.TXT�); // Carrega o txt
Table1.EmptyTable; // Limpa a tabela.
Table1.Open;
for I := 0 to Lista.Count-1 do
begin
L := Lista.Strings[I]; // S� para escrever menos..
Lf := 0;
Li := 1;
J := 0;
Table1.Insert;
repeat
Lf := PosEx(�,�,L,Lf+1);
if Lf = 0 then
Lf := Length(L)+1;
Sub := Copy(L,Li,Lf-Li);
TipoCampo := Table1.Fields.Fields[J].DataType;
case TipoCampo of
ftSmallint, ftInteger,ftWord,ftBoolean : Campo := StrToInt(Sub);
ftFloat, ftCurrency : Campo := StrToFloat(Sub);
ftDate, ftTime, ftDateTime : Campo := StrToDateTime(Sub);
else
Campo := Sub;
end;
Table1.Fields.Fields[J].AsVariant := Campo;
Inc(J);
Li := Lf+1;
until Lf > Length(L);
Table1.Post;
end;
Table1.Close;
Lista.Free;
end;

Obs: D� USES na unit [b:31a096aa89]StrUtils[/b:31a096aa89]

Marco Salles · Answer

Ideia...[code:1:2f333b5784]procedure TForm1.Button2Click(Sender: TObject); var Entrada: String; I : Integer; j:Integer; tamanho:Integer; begin   entrada:=MARIA DA SILVA,Rua do Perdido,3721-3678,9986-0861,500.30�;   tamanho:=Length(entrada);   j:=1;   i:=Pos(�,�,entrada);   Showmessage(Copy(Entrada,j,i-j));//Nome;   J:=J+i;   i:=Pos(�,�,copy(entrada,j,Tamanho));   Showmessage(Copy(Entrada,j,i-1));//endere�o;   j:=j+i;  i:=Pos(�,�,copy(entrada,j,Tamanho));   Showmessage(Copy(Entrada,j,i-1));//Telefone;   j:=j+i;   i:=Pos(�,�,copy(entrada,j,Tamanho));   Showmessage(Copy(Entrada,j,i-1));//Celular ;   j:=j+i;   Showmessage(Copy(Entrada,j,tamanho-1));//Orcamento; end;[/code:1:2f333b5784]� Apenas uma id�ia ... Voce deve fazer algumas adapta��es... Rode e VejaAnalogia :arrow: //forum.clubedelphi.net/viewtopic.php?t=62359&highlight=&sid=d43a1ef52c07378a176d531ee312c76d...

Clenio · Answer

Gostaria de saber do Marco Salles, como se faz para importar os dados de um arquivo txt que n�o tenha nenhum delimitador nem [b:19c0d74b7c]�,�[/b:19c0d74b7c] nem [b:19c0d74b7c]�|�[/b:19c0d74b7c] e que os espa�os entre os campos no arquivo texto n�o seguem um padr�o, as vezes tem 2 espa�os as vezes tem 4 ou 5 depende do tamanhno do nome. segue abaixo 7 linhas desse arquivo para voc� ver, so que a distancia dos campos ai em baixo est�o todas iguais, mas no arquivo est� diferente sem padroniza��o.
espero ter sido entendido na minha explica��o.

160168831910018ABADIA GOMES DOS SANTOS16/03/1964F05/05/2005MORRINHOSGO
203811051690005ABAEL DO PRADO RAMOS20/07/1977M05/05/2005MORRINHOSGO
206868110750006ABDIAS DA COSTA BARROS24/06/1951M05/05/2005MORRINHOSGO
125585252300000ABDIAS FERREIRA GONCALVES07/05/1971M05/05/2005MORRINHOSGO
209994597880001ABDINAM CIRQUEIRA MACIEL02/01/1979M05/05/2005MORRINHOSGO
207125532950007ABEDENINGO FELIX DA SILVA11/12/1970M05/05/2005MORRINHOSGO
123817698050007ABEL GAMA MADUREIRA01/07/1970M05/05/2005MORRINHOSGO

desde ja obrigado.

Edilcimar · Answer

da maneira mostrada o limitador � n�mero, letra, n�mero, letra, ou seja vai alternando entre n�meros e letras...

Antseralves · Answer

Sem delimitadores e sem conhecer previamente a posi��o dos campos, a� fica dif�cil. Tenho um amigo que abriu o texto com um editor e saiu na base do COPIAR/COLAR  :lol:...

Aerreira · Answer

[quote:ee50933c93=�antseralves�]Sem delimitadores e sem conhecer previamente a posi��o dos campos, a� fica dif�cil. Tenho um amigo que abriu o texto com um editor e saiu na base do COPIAR/COLAR  :lol:[/quote:ee50933c93]Discordo do antseralves.No seu caso, Clenio, bastaria usar o c�digo exemplificado acima, por�m com alguns ajustes, a saber: - seu primeiro campo � numerico e de tamanho fixo seguido por um espa�o;- o segundo campo � um nome com �n� palavras e espa�os, mas que tem como fixo o fato de ter como campo seguinte uma data, ent�o basta localizar uma �/� e retornar 3 caracteres e ter� o final do nome;- o terceiro campo j� estar� localizado;- o quarto campo � fixo (sexo = uma posi��o);- o quinto campo � novamente uma data... basta seguir os mesmos procedimentos do terceiro campo;- o sexto campo � o nome de uma cidade, que pode ter �n� palavras e espa�os, mas novamente � seguida por uma sigla de estado, que ser� fixo e f�cilmente identific�vel;- o s�timo e �ltimo campo, � o estado.Com alguns poucos ajustes no c�digo exemplificado pelo Marco Salles voc� (Clenio) conseguir� facilmente importar seu TXT....

Antseralves · Answer

Concordo com o Adriano, desde qua o arquivo txt fosse simplesmente
o que ext� [b:dca4e5378c]EXEMPLIFICADO[/b:dca4e5378c] pelo Clenio. Porem creio que esse n�o seja o caso. A solu��o dever� contemplar outros casos como por exemplo:

Se o sexto campo fosse referenta a uma cidade com nome de BREJO DA SE no estado de Alagoas ficaria assim:

BREJO DA SE AL

Pela solu��o proposta o SE seria confundido com o estade de Sergipe !.

Continuo achando que um txt sem uma formata��o previamente conhecida n�o teremos uma solu��o facil para o problema.

Kotho · Answer

Clenio... pelo que eu entendi da sua explica��o, os campos tem tamanho fixo no arquivo!!! Isso porque vc disse que o texto que est� aparecendo � diferente do que est� no arquivo...

Se for isso � f�cil... basta usar o Copy com n�meros fixos de posi��o inicial e quantidade.

Aerreira · Answer

[quote:692883aec7=�antseralves�]Se o sexto campo fosse referenta a uma cidade com nome de BREJO DA SE no estado de Alagoas ficaria assim:   BREJO DA SE  ALPela solu��o proposta o SE seria confundido com o estade de Sergipe !.Continuo achando que um txt sem uma formata��o previamente conhecida n�o teremos uma solu��o facil para o problema.[/quote:692883aec7]Agora sim, antseralves, concordo.  Neste caso ter�amos problemas, mas caso o arquivo tivesse sempre a mesma formata��o bastaria considerar que o estado � sempre o �ltimo campo, ent�o n�o teriamos esse problema do �Brejo da S�.O que o Clenio precisa � tomar uma desis�o, afinal o arquivo � fixo ou n�o, pois depois de responder a esta mensagem encontrei outra dele dizendo que o arquivo tem delimitadores �|� o que j� facilita em muito o processo de importa��o.Um abra�o a todos.......

Massuda · Answer

Pelo trecho do arquivo que o clenio copiou e colou no post dele, me parece que os campos do arquivo s�o [b:53caed98d7]separados por tabula��es[/b:53caed98d7] (#9). Quem puder conferir, clica em �citar� no post do clenio e copia o trecho do arquivo para um editor de texto.

Vagner.oliveira · Answer

pessoal, alterei o codigo para o programa exportar os dados separador por ; (ponto e virgula), mas continuo tendo dificuldades.......

Antseralves · Answer

Bem. Agora vc poder� tentar usar a rotina que enviei anteriormente,
s� que trocando a linha;

Lf := PosEx(�,�,L,Lf+1); por Lf := PosEx(�;�,L,Lf+1);

Lembre de d� uses na unit [b:d60335ef23]StrUtils[/b:d60335ef23]

Testa e me diz se funcionou !. Boa sorte..

AntSer
=====

Clenio · Answer

Bom dia a todos e obrigado pelo interesse em resolver esta quest�o,

Vou esclarecer alguns pontos que talvez possa ajudar:

Os campos da tabela est�o assim:

[b:9b17ca81a7]Campo Tipo Tamanho[/b:9b17ca81a7]

Numero Alpha 15
Nome Alpha 50
DataNasc Data
Sexo Alpha 1
DataEmis Data
Municipio Alpha 30
UF alpha 2

O problema � que tenho um arquivo no Excel com mais de 30.000 Linhas e eu salvei este arquivo como txt para importar para o meu BD, que � paradox. [b:9b17ca81a7]O Marco Salles [/b:9b17ca81a7]me passou um codigo com delimitador [b:9b17ca81a7]�|� [/b:9b17ca81a7]que funciona perfeitamente, so que o arquivo tem [b:9b17ca81a7]mais 30.000 linhas e fica dificil colocar o delimitador manualmente em todas as linhas.[/b:9b17ca81a7]

O problema est� nos [b:9b17ca81a7]espa�os entre os campos[/b:9b17ca81a7], exemplo o campo nome, porque o nome das pessoas n�o tem o mesmo tamanho alguns ocupam 15 espa�os outros ocupam 40 o maximo e 50, acho que a quest�o est� nos espa�os que s�o de tamanhos variados entre os campos.
Espero ter esclarecido os companheiros, para que possam encontrar uma forma de me ajudar a resover este problema.

mais uma vez obrigado a todos .

Edilcimar · Answer

o que eu falei antes[quote:73fcad1ca4]da maneira mostrada o limitador � n�mero, letra, n�mero, letra, ou seja vai alternando entre n�meros e letras[/quote:73fcad1ca4]continua v�lido...

F�rum Importar TXT com virgula #280207