Tu comunidad de Seguridad Informatica

Para ver Todo el contenido del foro es necesario estar Registrado!
Antes de comentar o Aportar es Obligado Leer Las: Reglas | Rules
Ya Esta Disponible al publico "LeProject" el Videojuego del Foro Click Aquí Para Ver el Post.
Pitbull Security Labs "Extras" Esta Disponible! [ENTRA]

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1AX 

avatar
Moderadores
Moderadores

Ver perfil de usuario
el Miér Abr 13, 2011 2:59 pm
Esta es una buena alternativa a la función tradicional InStr de VB.

Código:
Public Function aInStr(A As Long, B As String, C As String) As Long
On Error Resume Next

'========================================================'
' AX: aInStr                                            '
' Uso: Call aInStr(Inicio, Cadena 1, Cadena 2)          '
'                          '
'========================================================'

Dim F As String
Dim G As String
Dim H As String
Dim X As Long

H = Right(B, Len(B) - 1)

For X = A To Len(B)
F = Mid(H, X - 1, Len(C))
If F = C Then aInStr = X: GoTo Z
Next X

Z:
End Function

Modo de Uso:
Código:
Call aInStr(Inicio, Cadena 1, Cadena 2)

[Tienes que estar registrado y conectado para ver este vínculo]

Saludos.

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.