como pegar parte de um texto num arquivo mesmo.

01/09/2004

0

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

Marcosdiirr

Responder

Posts

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]);
    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;



Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar