@mmix
Ovo sto si napisao:
Code:
[\w.%-]+@([\w-]+\.)+[\w]{2,6}
Nije dobro resenje kako sto si i sam rekao...
Po tome dddd@dddd.ddd je EMAIL :)
@CtrlAltDel
Sve mi se cini da je tvoj RegExp malo neispravan :)
Recimo evo sta meni pada napamet:
Code:
' neka Funkcija koja ce da vrati emial adresu
' mada ni ovo nije neko 100 % resenje ali moze lako da se izvede....
Public Function VratiEmail(ByVal str As String) As String
str = Regex.Replace(str, "[^\w\.@-_]", " ")
Dim EmailArray() As String = Split(str)
Dim LastNonEmpty As Integer = -1
For i As Integer = 0 To EmailArray.Length - 1
If EmailArray(i) <> "" And (InStr(EmailArray(i), "@") And InStr(EmailArray(i), ".")) Then
LastNonEmpty += 1
EmailArray(LastNonEmpty) = EmailArray(i)
End If
Next
Return EmailArray(LastNonEmpty)
End Function
Znaci imamo ovako nesto:
Code:
Dim str As String = "dddd ddddd dddd dd@d.dd >nekiemial@sajt.com.au/> sasasas sas@dfs fdf"
'Treba da vrati nekiemial@sajt.com.au
MsgBox(VratiEmail(str))
'Jedini problem je ako se nadje jos jedan email ili kombinacija stringa gde ima @ i .
Mada funkcija moze da se napravi da vrati sve tako reci email adrese a kasnije se proveri ispravnost te email adrese :)
Poz
sale
PHP/MySQl/SQL/VB.NET/JAVA/JSP/Servlet/MSSQLServer/MSAccess/Perl
COBOL/JCL/CICS -> IBM Mainframe
Nortel/Cisco/Sidewinder