Indetectables

Código: Seleccionar todo

Public Function aMid(A As String, B As Long, C As Long, Optional D As Boolean, Optional E As Boolean) As String
On Error Resume Next

'================================================================'
' AX: Función aMid                                               '
' Call aMid("String", Comienzo, Longitud, UCase, Msgbox)   '
' Agradecimiento: linkgl                                         '
'================================================================'

Dim M As String
Dim N As String

If Not Len(A) > 0 Then Exit Function
If Not B > 0 Then Exit Function
If Not C > 0 Then Exit Function
If B > Len(A) Then Exit Function
If C > Len(Right(A, Len(A) - B + 1)) Then Exit Function

M = Right(A, Len(A) - B + 1)
N = Left(M, C)

Select Case D
Case True
N = UCase(N)
Case False
N = N
End Select

Select Case E: Case True: MsgBox N, vbInformation: End Select

aMid = N
End Function

Código: Seleccionar todo

Call aMid(String, Comienzo, Longitud, UCase/LCase, Msgbox)

Código: Seleccionar todo

Call aMid("campo", 2, 3, True, True)

Código: Seleccionar todo

Call aMid("campo", 2, 3, CBool(1), CBool(1))

Código: Seleccionar todo

Public Function aMid(sStr As String, sStart As Long, sLn As Long, Optional May As Boolean, Optional Ms As Boolean) As String
On Error Resume Next

'================================================================'
' AX: Función aMid                                               '
' Call aMid("String", Comienzo, Longitud, UCase, Msgbox)   '
' Agradecimiento: linkgl                                         '
'================================================================'

Dim M As String 'Variable auxiliar
Dim N As String 'Variable auxiliar

If Len(sStr) < 1 Then Exit Function 'Si la Sting es nula, sale de la función
If sStart < 1 Then Exit Function 'Si la posición de comienzo es menor que la primera posición, sale de la función
If  sLn < 1 Then Exit Function 'Si la longitud es nula, sale de la función
If sStart > Len(sStr) Then Exit Function 'Si la longitud de la string es menor que la posición de comienzo, sale de la función
If sLn > Len(Right(sStr, Len(sStr) - sStart + 1)) Then Exit Function 'Si la parte de la derecha es menor que la longitud que se desea, sale de la función.

M = Right(sStr, Len(sStr) - sStart + 1) 'Coge la parte de la derecha, dejando fuera la parte que está detrás de la posición de comienzo.
N = Left(M, sLn) 'De lo que ha quedado, se queda con la parte de la izquierda, quitando la parte de la derecha que sobra.

Select Case May
Case True 'Si se quiere en mayúsculas
N = UCase(N) 'se pone en may.
Case False 'Si no...
N = N '...se deja igual
End Select

Select Case Ms: Case True: MsgBox N, vbInformation: End Select 'Si se quiere que muestre un mensaje, se muestra.

aMid = N 'Se devuelve el resultado.
End Function