 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
Hewitt
Novato
Registrado: Quarta-Feira, 4 de Mai de 2005
Mensagens: 71
|
 Enviada: Sex Mai 06, 2016 7:19 pm Assunto: Formatação do código fonte HTML - idHTTP |
 |
|
Boa noite! Tenho um simples programa que pega o código fonte de uma página, e está funcionando como deveria. Mas eu queria tentar fazer uma formatação nesse código fonte. Separar os tópicos, pular uma linha quando tiver a a tag "<br>", essas coisas, e não sei por onde começar:
O código fonte que recebo é esse:
| Código: | | <span>Alterado o valor do ticket do sistema de loteria</span><br>O ticket agora custa apenas 1000 gold.<br>Os jogadores podem comprar quantos tickets quiserem.<br>Lembrando que o maior premio acumula até que alguém acerte os 5 números.<br><br><span>Implementado o sistema de Arena para Duelos</span><br>Foram adicionadas duas estátuas no mundo, sendo uma em Britain e outra em Cove.<br> |
Isso é só uma parte.
Alguém poderia me ajudar ou dar uma luz?
Obrigado! |
|
| Voltar ao Topo |
|
 |
Hewitt
Novato
Registrado: Quarta-Feira, 4 de Mai de 2005
Mensagens: 71
|
| Enviada: Sáb Mai 07, 2016 1:31 pm Assunto: |
|
|
O código que estou usando, é esse:
| Código: | procedure TForm1.FormCreate(Sender: TObject);
var
Pagina, Lista: String;
begin
IdHTTP1.Request.Accept := 'text/html, */*';
IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (compatible; IndyLibrary)';
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
IdHTTP1.HandleRedirects := True;
Pagina := idHTTP1.Get('http://www.xxxxxxxx.com.br/index.html');
Lista := Copy(Pagina, Pos('<div>', Pagina), Length(Pagina));
Lista := Copy(Lista, 1, Pos('</div>', Lista)+Length('</div>'));
Memo1.Lines.Text := UTF8Decode(Lista);
end; |
|
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
