martes, 24 de febrero de 2015

Busca una cadena de caracteres en otra cadena

Es un código muy simple pero muy útil.


Supongamos que tenemos 2 dominios a los cuales queremos enviar diferentes notificaciones:
@dominio1.com
@dominio2.com


Dim v_email as string = "hugo@dominio1.com"
Dim v_dominio1 As String = v_email
Dim v_dominio2 As String = "@dominio1.com"
Dim v_resulta As Boolean
v_resultado=v_dominio1.Contains(v_dominio2)
If v_resultado = true Then
   'envía notificaciones para el @dominio1.com
Else
    'envía notificaciones para el @dominio2.com
End if

Comparte