Fórum Pega Nomes de um memo ex: a href=quot;/viewtopic.php?t=3584 #356931
09/04/2008
0
desse modo gostria que ele add as palavras no memo1 desse jeito
/viewtopic.php?t=35848
/viewtopic.php?t=38446
/viewtopic.php?t=89875
e assi por diante quando for achando
alguém sabe ?
Warfighter
Curtir tópico
+ 0Posts
09/04/2008
Joaoshi
Espero ter ajudado.
Gostei + 0
10/04/2008
Warfighter
Flw
Gostei + 0
10/04/2008
Marco Salles
Localizar de Onde ??????
As palavras estão aonde ????
Gostei + 0
14/04/2008
Warfighter
Como deu para ver o inicio não muda o que muda é a númeração isso que eu gostaria de sabe como pegar essas palavras do memo com seus respectivos números
flw
Gostei + 0
14/04/2008
Joaoshi
procedure TForm1.Button1Click(Sender: TObject);
var nPosicao:Integer;
sProcura:String;
nContador:Integer;
begin
Memo3.Clear;
sProcura := ´/viewtopic.php?t=´; // texto a ser procurado
nPosicao := 0;
nContador := 1;
While nContador < Length(Memo1.Text) do
begin
nPosicao := PosEx(sProcura,Memo1.Text,nContador);
if nPosicao > 0 then
Memo3.Lines.add(Copy(Memo1.Text,nPosicao + Length(sProcura),5));
Inc(nContador,nPosicao);
end;
end;Memo1 - Texto a ser pesquisado.
Memo3 - Retorna o números encontrados
Espero ter ajudado.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)