Weblogs Código

RecorteX

73 usuarios y 244 recortes de código
Usuario

Contraseña
Crear cuenta
asp csharp css fechas Flash html imagenes java javascript linux mysql oracle php sql SQLServer url vbnet web xhtml xml
Top Usuarios
fjmp76 (43)
albin (31)
josuebasurto (31)
juanjo (30)
pedrocaro (9)
stanz (8)
AndiXTRM (7)
Joserra (7)
miiglesi (6)
aplyca (5)
Top Etiquetas
php (38)
vbnet (28)
javascript (26)
csharp (26)
html (25)
java (24)
sql (18)
xml (13)
mysql (13)
css (10)
xhtml (7)
Flash (7)
imagenes (7)
linux (6)
fechas (6)
asp (6)
oracle (5)
url (5)
web (5)
SQLServer (5)

Funcion para checar si un valor esta dentro de una serie separada por comas

 
    Function IsIn(ByVal val1 As String, ByVal text As String) As Boolean
        Dim ret As Boolean = False
        Dim temp() As String
        Dim separador As String = ","
        temp = Microsoft.VisualBasic.Split(text, separador)
        For Each b As String In temp
            If val1 = b Then
                ret = True
                Exit For
            End If
        Next
        Return ret
    End Function
 
Identifícate para dejar un comentario.
Proyecto: Juanjo Navarro, 2006 - Diseño: Albin