Array
(
)

como pegar parte de um texto num arquivo mesmo.

Marcosdiirr
   - 01 set 2004

como pegar parte de um texto num arquivo mesmo.

ex. do que estaria no memo
Seu produto: Papel para fotos folha $ 5,00 http://www.seusite.com.br/jm/item?site=MLB&id=21292030 foi vendido

pergunta tem como eu pegar somente os 8 numero que vem depois de id ou seja pegar o numero 21292030 ?

Obrigado.

Marcos


Aroldo Zanela
   - 01 set 2004

Colega,

Neste caso, pode-se utilizar o seguinte exemplo:

#Código

var ArquivoRecebido: TStringList;
nI, nZ, nP: Integer;
begin
ArquivoRecebido := TStringList.Create;

ArquivoRecebido.Add(´Seu produto: Papel para fotos folha $ 5,00 http://www.seusite.com.br/jm/item?site=MLB&id=21292030 foi vendido´);

nZ := ArquivoRecebido.Count;

For nI := 0 to nZ-1 do
begin
nP := Pos(´&id=´, ArquivoRecebido.Strings[nI]);
if nP>0 then // achou
begin
MessageDlg(´O produto da linha: ´+IntToStr(nI)+´ é: ´+Copy(ArquivoRecebido.Strings[nI],nP+4,8),mtInformation,[mbOk],0);
end;
end;

ArquivoRecebido.Free;
end;