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
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
Curtir tópico
+ 0
Responder
Posts
01/09/2004
Aroldo Zanela
Colega,
Neste caso, pode-se utilizar o seguinte exemplo:
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
Clique aqui para fazer login e interagir na Comunidade :)