Fórum problemas com copy memo #461397
19/11/2013
0
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));
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));
Jose Gomes
Curtir tópico
+ 0
Responder
Posts
19/11/2013
Jose Gomes
sim
bom dia
estive pesquisando na internet e achei esse função
COPY POS para pegar o conteu de uma memo e joga partes especifica em outro memo mais nao funciona seria para pega todas as vezes tivese no memo1 a frazer "key=(nome do cliente variaveis)<BR>" ele joga o nome do cliente em outro memo
function TForm2.TrataHTML(TagInicio, TagFinal : string; Texto : WideString): WideString;
var
posInicio, posFinal : integer;
begin
posInicio := AnsiPos(TagInicio,Texto)+Length(TagInicio);
posFinal := AnsiPos(TagFinal,Texto)+posInicio;
Result := Copy(Texto,posInicio, posFinal);
end;
quando chamo ela em um butom
procedure TForm2.Button5Click(Sender: TObject);
begin
Memo2.Text := TrataHTML(memo1.Text, 'key', '<BR>');
end;
mais nao funciona podem me ajuda obg
bom dia
estive pesquisando na internet e achei esse função
COPY POS para pegar o conteu de uma memo e joga partes especifica em outro memo mais nao funciona seria para pega todas as vezes tivese no memo1 a frazer "key=(nome do cliente variaveis)<BR>" ele joga o nome do cliente em outro memo
function TForm2.TrataHTML(TagInicio, TagFinal : string; Texto : WideString): WideString;
var
posInicio, posFinal : integer;
begin
posInicio := AnsiPos(TagInicio,Texto)+Length(TagInicio);
posFinal := AnsiPos(TagFinal,Texto)+posInicio;
Result := Copy(Texto,posInicio, posFinal);
end;
quando chamo ela em um butom
procedure TForm2.Button5Click(Sender: TObject);
begin
Memo2.Text := TrataHTML(memo1.Text, 'key', '<BR>');
end;
mais nao funciona podem me ajuda obg
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)