Pegar linhas de um TXT e gravar em BD

[jonikaites 0]

Salve mentes ricas de conhecimento.

 

Venho eu novamente perdir-lhes ajuda com um problema.

 

preciso desevolver um sistema onde preciso baixar uma lista em TXT de um site na net e então cadastrar todos os produtos na lista caso nao existam ou atualizar seu valor, caso exista.

 

a lista está na seguinte forma:

012345678901234567890123456789012345678901234567890123456789012345678901234567890123|		 1		 2		 3		 4		 5		 6		 7		 8Código	 | Descrição												|  Valor U$		 	   207 | (CD) CD-R Dr. Hank 700MB Verde (Tubo/OEM)				|	  26.00	  9654 | Acces Kit MiniI Mouse/HUB4P/RJ45/RJ11 P/NB			   |	  24.00	  9974 | Aces Kit MTEK NB-Mouse/HUB2P/RJ45/MIC.				   |	  17.00	   145 | Adaptador para Teclado de AT para PS2					|	   1.50	  9603 | Adaptador USB Security Key Jetz						  |	  23.00

Usei o seguinte comando:

 

lbDat.Caption:=copy(RichEdit1.Lines.GetText[2],48,57);

porém não está pegando o valor (continua td em branco)

 

alguém pode me dar uma luz?

 

Grato!

 

 

Abraço!!!

[jonikaites 0]

niguém?

[LODVini 0]

jonikaites...

 

acho que ficaria mais facil para trabalhar com esses dados se colocá-los em um grid, para fazer a verificação com as tabelas do banco( verificar se tem e deve atualizar e/ou se não tem e deve inserir)...

deve com certeza ter outras formas de se fazer isso.. mas fiz assim:

 

...implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);begin	 RichEdit1.Text := 'Código | Descrição | Valor U$'+ #13+#10+					   '207 | (CD) CD-R Dr. Hank 700MB Verde (Tubo/OEM) | 26.00'+ #13+#10+					   '9654 | Acces Kit MiniI Mouse/HUB4P/RJ45/RJ11 P/NB | 24.00'+ #13+#10+					   '9974 | Aces Kit MTEK NB-Mouse/HUB2P/RJ45/MIC. | 17.00'+ #13+#10+					   '145 | Adaptador para Teclado de AT para PS2 | 1.50'+ #13+#10+					   '9603 | Adaptador USB Security Key Jetz | 23.00';end;procedure TForm1.Button1Click(Sender: TObject);var   i	: Integer;   str  : String;   sCod : String;   sDsc : String;   sVlr : String;begin	 sCod := '';	 sDsc := '';	 sVlr := '';	 for i:=1 to RichEdit1.Lines.Count do	 begin		  str := RichEdit1.Lines.Strings[i];		  sCod := sCod + Copy(str,1,Pos('|',str)-1) +#13+#10;		  Delete(str,1,Pos('|',str));		  sDsc := sDsc + Copy(str,1,Pos('|',str)-1) + #13+#10;		  Delete(str,1,Pos('|',str));		  sVlr := sVlr + str + #13+#10;	 end;	 StringGrid1.Cols[0].Text := sCod;	 StringGrid1.Cols[1].Text := sDsc;	 StringGrid1.Cols[2].Text := sVlr;end;procedure TForm1.StringGrid1DblClick(Sender: TObject);begin	 ShowMessage(StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row]);end;end.

espero que isso ajude de alguma forma...