como pegar parte de um texto num arquivo mesmo.

01/09/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


Marcosdiirr

Respostas

01/09/2004

Aroldo Zanela

Colega,

Neste caso, pode-se utilizar o seguinte exemplo:

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&93;);
    if nP>0 then // achou
    begin
      MessageDlg(´O produto da linha: ´+IntToStr(nI)+´ é: ´+Copy(ArquivoRecebido.Strings&91;nI&93;,nP+4,8),mtInformation,&91;mbOk&93;,0);
    end;
  end;

  ArquivoRecebido.Free;
end;



Responder Citar