Sitelerdeki email adreslerini toplamak

[xxemobg]

Arkadaşalr e-mail adreslerini çalma ile ilgili bir kaç örnek gördüm ama bişiy anlamadım
Benim istediğim se şu siteye gerek yok , diyelim , c:\a.txt içinde şöyle bir yazı var
bugün hava sıcak ve ali@hotmail.com gelecek....
amanese veli@ot.org ......................
Gibisinden bi yazı var ve biz bu dosyanın içindeki e-mail adreslerini nasıl alabiliriz?

Aklımdan birkaç fikir geçti ama arama kodlarını b türlü kuramadım

Aklımdan geçen Şöyle = dosya içerisinde @ işaretini arayacak ve ilk bulduğunda
@ ten sonra . taya kadarını ve . tadan sonrada 3 karakterini alacak birde
@ ten önce kelimenin ilk boşluğuna kadar yani ismin önündeki boşluğa kadar ki karakterleri alacak ? bunun arama taktiği nasıl kurulabilir?

[xxemobg]

arkadaşlar anlatırken ayrıntılı kodları açıklayarak anlatırsanız sevinirim

[creatize]

Valla ben delphide 1 tane yazmıştım fakat mantık olarak senin dedigin türden mantık kullanmamıştım

Sayfa içindeki linkleri sürekli get ettiriyorum ve sayfa kaynagında parseliyorum

Parseledigim taglar

başlangıç mailto:
Bitiş ">

bu ikisi arasındaki degerleri alıyordum. fakat link olarak verilmeyen mailleri bulmak zorr

[xxemobg]

ev mailto: lar için senin dediğin taktik kullanılabilir senin delphi ile yazdığın taktiğin kodlarını yapıştırablirmisin buraya ?

[creatize]

var
src,tk:string;
b,c,d:integer;
i:integer;
begin
for i := 0 to listbox3.items.count-1 do
begin
src:=idhttp1.get(listbox3.items[i]);
Application.ProcessMessages; // kitlenmesin die
for b:=7 to length(src)do
begin
if rightstr(leftstr(src ,b),7)='mailto:' then //mailto: arıyoz.
begin
c:=b+1;//alacağımız kısımın başlangıcının nerde oldugunu yazıyoz.
d:=b; // bitişini bulmak için b yi d ye atıyoz
repeat
Application.ProcessMessages;
d:=d+1;
tk:=rightstr(leftstr(src ,d),2);
until tk='">';//bitiş metnini aratıyoz.bulasıya kadar dyi 1 arttırıyoz
memo1.Lines.Add(midstr(src ,c,d-c-1));

end;

burda ilkin listbox3 e sitedeki linkleri aktarıom daha sonra linklerden arama yaptırıyorum.

[Mystical]

yukarıdaki kodlara göre eğer site içerisindeki mail link şeklinde yazılmadıysa(mailto kullanılmadıyla yani) Mail adresini almayacaktır ki buda sorun olur herkes mailto kullanmaz
bir site içeriğinde vs..

[Revlis]

dos mantığı yürütebilirsiniz *@*.* şeklinde string search yapabilirsiniz.

[nbakolik]

bence @ harfi aratılıp sağ ve sol tarafındaki ilk boşluklara kadar olan bölüm alınırsa tam olarak alınmış olur