Pega Nomes de um memo ex: a href=quot;/viewtopic.php?t=3584

Delphi

09/04/2008

Como faço para localizar todos a palavras assim desse estilo só que com os número do Tópico diferente ? href=´/viewtopic.php?t=35848´>

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

Warfighter

Curtidas 0

Respostas

Joaoshi

Joaoshi

09/04/2008

Colega, de uma pesquisada aqui mesmo no forum sobre a função [b:ab08c962aa]POS[/b:ab08c962aa] e sobre a função [b:ab08c962aa]POSEX[/b:ab08c962aa] da unit StrUtils. Pode ser uma caminho.

Espero ter ajudado.


GOSTEI 0
Warfighter

Warfighter

09/04/2008

Pederia citar um exemplo de como fazer isso ? :wink:

Flw


GOSTEI 0
Marco Salles

Marco Salles

09/04/2008

[b:35256c9c42]
Como faço para localizar todos a palavras
[/b:35256c9c42]

Localizar de Onde ??????

assim desse estilo só que com os número do Tópico diferente ? href=´/viewtopic.php?t=35848´>


desse modo gostria que ele add as palavras no memo1 desse jeito


As palavras estão aonde ????


GOSTEI 0
Warfighter

Warfighter

09/04/2008

Localizar em um Memo1

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
Joaoshi

Joaoshi

09/04/2008

Colega, um exemplo simples.

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
POSTAR