Como Filtrar Links

Question

Ol� senhores,Eu gostaria fazer o seguinte; tenho um Memo1 com um codigo HTML, e gostaria de saber como pegar somentes os links(//meusite.com.br/) deste c�digo que est� no Memo1 e jogar no Memo2. ...

Andepunk · Answer

[quote:1e84b300a9=�gabrielgrisi�]Ol� senhores,Eu gostaria fazer o seguinte; tenho um Memo1 com um codigo HTML, e gostaria de saber como pegar somentes os links(//meusite.com.br/) deste c�digo que est� no Memo1 e jogar no Memo2. Como fa�o?? n�o consigo desenvolver isto sozinho :(Att,Gabriel Grisi[/quote:1e84b300a9]Seguinte: voce gostaria de pegar a linha que contem um site ou pegar exatamente a linha q contem um site e capturar o site?se for pegar a linha toda que contem um site voce pode fazer assim:declare a variavel I como Integer[code:1:1e84b300a9]//pega o numero total de linhasFor I:=0 To Memo1.lines.count-1 Do// a funcao pos se encontrar o texto // retorna a posicao que esta o //texto sendo assim >0    if Pos(�//�, Memo1.Lines.Strings&#91;I&93;) > 0 Then      //repassa a linha que contem o link para o memo2      Memo2.Lines.Add(Memo1.Lines.Strings&#91;I&93;);[/code:1:1e84b300a9]nao compilei o codigo aqui pq neste maquina nao tem o delphi, mas se nao der certo me retorna que eu arrumo o procedimento.Anderson de Oliveira...

Gabrielgrisi · Answer

Obrigado pela aten��o Anderson, mas n�o deu certo.. veja como ficou no memo2;

href=�http://imag
href=�http://map
href=�http://new
href=�http://ww
href=�http://grou
href=�http://mail.
href=�http://ww

gostaria que fosse s� o http:// com o restante ... entendeu ? valeu ;)

Andepunk · Answer

[code:1:e4d10d5354]//pega o numero total de linhas For I:=0 To Memo1.lines.count-1 Do // a funcao pos se encontrar o texto // retorna a posicao que esta o //texto sendo assim >0    if Pos(�//�, Memo1.Lines.Strings&#91;I&93;) > 0 Then       //repassa a linha que contem o link para o memo2       Memo2.Lines.Add(StringReplace(�href="�, Memo1.Lines.Strings&91;I&93;,&91;&93;); [/code:1:e4d10d5354]...

Andepunk · Answer

assim vai remover o texo (href=��)[quote:053e79c2a5=�andepunk�][code:1:053e79c2a5]//pega o numero total de linhas For I:=0 To Memo1.lines.count-1 Do // a funcao pos se encontrar o texto // retorna a posicao que esta o //texto sendo assim >0    if Pos(�//�, Memo1.Lines.Strings&#91;I&93;) > 0 Then       //repassa a linha que contem o link para o memo2       Memo2.Lines.Add(StringReplace(�href="�, Memo1.Lines.Strings&91;I&93;,&91;&93;)); [/code:1:053e79c2a5][/quote:053e79c2a5]...

Gabrielgrisi · Answer

[Error] Unit1.pas(93): Incompatible types: �String� and �Set�

ent�o.. deu erro no final desta linha

Memo2.Lines.Add(StringReplace(�href=��, Memo1.Lines.Strings[I],[]));

O que seria?

Outra coisa .. se nao for pedir demais, como seria pra colocar um progressbar e ir colocando as linhas no memo e rolando o progressbar ..

:)

Andepunk · Answer

mete ficha que agora vai funcionar com o progress.

procedure TForm1.Button1Click(Sender: TObject);
var
   i : Integer;
   mDescricao : Boolean;
begin
//limpa memo2
Memo2.clear;

//define o maximo para o progress
ProgressBar1.Max := Memo1.lines.count;
//pega o numero total de linhas
For I:=0 To Memo1.lines.count-1 Do
begin
// a funcao pos se encontrar o texto http:// retorna a posicao que esta o //texto sendo assim >0
   if Pos(�http://�, Memo1.Lines.Strings[I]) > 0 Then
      //repassa a linha que contem o link para o memo2
      Memo2.Lines.Add(StringReplace(Memo1.Lines.Strings[I],�href="�,��,[rfReplaceAll, rfIgnoreCase]));
      //incrementa o progess a cada lnha percorrida
      ProgressBar1.Position := I;
end;

end;

Gabrielgrisi · Answer

//imag//map//new//ww//grou//mail.//ww//booContinua nao pegando o link completo hehehe :(...

F�rum Como Filtrar Links #371165