ActiveDelphi

[jgomescg]

boa tarde gostaria de uma ajuda aqui
esto jogando em um memo uma lista de link de um site que estou abrindo por um WebBrowser e queria joga dessa lista de links apenas os link que tenho em seu inicio "key=" e no fim "-1-1-0-0-0-0-0-1-0-0-0-0" para outro memo ou tabela mais não tive sucesso usando o copy pos alguém poderia me ajuda


esto usando para carrega o memo 2 com os link esse comando


for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do
Memo2.Lines.Add(Webbrowser1.OleObject.Document.Links.Item(i));
muito obrigado

[jwalamino69]

Bom dia.

Eu colocaria os links em uma tabela e depois faria a seleção com "select * from tabela where like " e faria o insert no segubdo memo.

Walfrido
https://sites.google.com/site/esocialdiscute/

[jgomescg]

como seria esse select em um campo memo da tabela?

[jwalamino69]

select campomemo from minhatabela where campomemo like '%1-1-0-0-0-0-0-1-0-0-0-0"%' and campomemo like '%key='

[jgomescg]

FIZ PELO COPY MESMO OBRIGADO A TODOS

function TForm2.TextoEntre(Texto, Delimitador1, Delimitador2: String; CaseSensitive : boolean = false): string;
var Inicio, Fim : Integer;
Saida : string;
begin
Saida := Texto;
Inicio := Pos(Delimitador1, Saida);
Saida := Copy(Saida, Inicio + Length(Delimitador1), Length(Saida));
Fim := Pos(Delimitador2, Saida);
if Fim > 0 then
Saida := Copy(Saida, 1, Fim - 1);
Result := Saida;