Faça uma procura por qualquer string que inicie por "mailto:"; E termine com um ">". Isso, se o html contiver os emails em formato de link.
Para uma lista em modo texto, faça a procura por "@". A partir da posição encontrada, volte até encontrar um delimitador (espaço, <, ou outros [verifique no código html]). Continue para o fim da string, procurando por outro delimitador. Sabendo o início e o fim, é só adicionar nos items do combobox. O código, vc escreve. Em 28/01/08, Draweppe <[EMAIL PROTECTED]> escreveu: > > Olá Srs > > Qual a melhor forma de extrair emails em uma página da web? > > Eu já consigo pegar o código html de uma página que está no webbrowser e > transportar para um memo. > ---------------------------------------------------------- > var > iall : IHTMLElement; > > begin > > if Assigned(WebBrowser1.Document) then > begin > iall := (WebBrowser1.Document AS IHTMLDocument2).body; > > while iall.parentElement <> nil do > > begin > iall := iall.parentElement; > end; > memo1.Text := iall.outerHTML; > end; > > ---------------------------------------------------------- > > Falta eu poder extrair o(s) email(s) dessa página e transportar, por > exemplo, para um combobox . > > Certo da colaboração, desde já agradeço > -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
