17-10-12, 04:46 PM
كاتب الموضوع : AhmedEssawy
كود :
Dim emailparts() As String
Dim user As String
Dim provider As String
emailParts = "SomeName@SomeCompany.com".Split("@".ToCharArray, 2)
If emailParts.Length = 2 Then
user = emailParts(0)
provider = emailParts(1)
Else
' Email address is not valid. The expected format is user@provider.*
user = String.Empty
provider = String.Empty
End If