Saber si una cadena está en mayuscula

[pkj]

He buscado en el foro un poco por encima a ver si encontraba algo parecido a esto pero no ha sido así, y como creo que puede interesar a alguien voy a permitirme comentaros mis experiencias.

Hoy revisando algo (que he dejado a medias, por cierto), me he quedado ensimismado precisamente con una función que hice hace tiempo para distinguir entre mayúsculas y minúsculas.

Muchos de los que hayan intentado hacer esto habrán pasado por fases muy parecidas a las que yo he pasado, intentando primero comparar todas las letras, luego las acentuadas, las eñes, etc... y otros métodos, como uno que se me ocurrió, que fue meter todas las posibles letras en una cadena y con instr() saber si la letra esta en la lista o no, y otros métodos liosos.

El caso es que todas las funciones que creaba, o tenían demasiado código o no tenian en cuenta detalles como caracteres de puntuación, espacios en blanco, cadenas vacías, etc.

Pues hoy, después de intentar varias modificaciones más y cuando ya menos lo esperaba, he caido en esta solución.

Creo que cumple todas las reglas básicas:
Admite caracteres sueltos o cadenas completas.
Si le dás una cadena vacía devuelve False
Ignora cualquier caracter que no sea una letra, devolviendo True solamente en el caso de que la cadena contenga letras y todas ellas sean mayúsculas.

P.ej: "ESTA CADENA, ESTÁ EN MAYÚSCULAS." devuelve True.

¡Y todo ello en una sola línea de 2 comparaciones!

Cadena <> LCase$(Cadena)) And (Cadena = UCase$(Cadena)

Si lo metemos en una función sería algo como:

Código :

Function EsMayuscula(ByVal Cadena As String) As Boolean
  EsMayuscula = (Cadena <> LCase$(Cadena)) And (Cadena = UCase$(Cadena))
End Function
 

Y para las minúsculas pues:

Código :

Function EsMinuscula(ByVal Cadena As String) As Boolean
  EsMinuscula = (Cadena <> UCase$(Cadena)) And (Cadena = LCase$(Cadena))
End Function
 

Irónicamente, aún cuando la función no tiene en cuenta si en el texto que le envias hay solo letras o hay también caracteres que no son letras, resulta que cualquiera de las dos se puede usar para saber si un caracter suelto es una letra o no:

Código :

EsLetra = EsMayuscula (Ucase$(Caracter))
 

Si es una letra, la funcion devuelve True por que le llega una letra mayuscula
Si no es letra devuelve False al no encontrar ninguna letra.


Por otro lado, si lo que quereis de la función es conseguir un False cuando, por ejemplo, la cadena mandada contenga algún caracter que no sea estrictamente una letra mayúscula, pues de momento solo se me ocurre que hagais un bucle y comprobeis la cadena letra a letra.
Las funciones podrían quedar así:

Código :

Public Function EsMayusculaEstrict(ByVal Cadena As String) As Boolean
  Dim F As Long
  For F = 1 To Len(Cadena)
    EsMayusculaEstrict = (Mid$(Cadena, F, 1) <> LCase$(Mid$(Cadena, F, 1))) And (Mid$(Cadena, F, 1) = UCase$(Mid$(Cadena, F, 1)))
    If EsMayusculaEstrict = False Then Exit For
  Next F
End Function
 
 
Public Function EsMinusculaEstrict(ByVal Cadena As String) As Boolean
  Dim F As Long
  For F = 1 To Len(Cadena)
    EsMinusculaEstrict = (Mid$(Cadena, F, 1) <> UCase$(Mid$(Cadena, F, 1))) And (Mid$(Cadena, F, 1) = LCase$(Mid$(Cadena, F, 1)))
    If EsMinusculaEstrict = False Then Exit For
  Next F
End Function
 

Saludos