mail adreslerini temizleme

arkadaşlar merhaba elimde bir text dosyasida üyelerin adi soyadı, e-mail adresleri vs. bilgilerinin düzensiz bir şekilde listelendiği txt dosyasi var tahminlerime göre 20.000 üzerinde kayıt
asp kodu ile burdaki kayıtların içinden sadece e-mail adreslerini listelemek mümkünmü

asp yada php ile regular expression kullanarak yapabilisin
ayrıca bunun için programlarda var

<%
Response.write isValidEmail("david@codetoad.com") & "<BR>"
Response.write isValidEmail("davidcodetoadcom")

Function isValidEmail(myEmail)
dim isValidE
dim regEx

isValidE = True
set regEx = New RegExp

regEx.IgnoreCase = False

regEx.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
isValidE = regEx.Test(myEmail)

isValidEmail = isValidE
End Function%>

Burdan örnek alabilirsin

Merhaba;

Önce tüm metni boşluk karakteri ile split et, sonra ister regexp ile istersen de if ile yapılmış e-posta doğrulama fonksiyonları ile tüm metni tarat. Örnek kod;

<%
strMailler
strMetin = Split(elindekiMetin, " ")
For i = 0 To UBound(strMetin)
     If isMail(strMetin(i)) Then
          strMailler = strMailler & strMetin(i) & ";"
     End If
Next
 
Response.Write(strMailler)
%>

For yerine For Each döngüsü de kullanılabilir. isMail fonksiyonuna örnek olarak yukarıdaki regExp kullanılabilir. Bu işlemden sonra mail adreslerini aralarına ; koyarak ekrana yazacaktır. Kolay gelsin.

teşekkürler dostum sayende sorunu hallettim...
Cevap yazdığı için Erkutarhan arkadaşada teşekkürler

Hallettiğine sevindim, iyi çalışmalar.