devxlogo

IsStringUpper – Determine whether a string contains only uppercase chars

IsStringUpper – Determine whether a string contains only uppercase chars

Private Declare Function IsCharUpper Lib "user32" Alias "IsCharUpperA" (ByVal _    cChar As Byte) As Boolean' Check is the specified string is composed only by upper case characters (no ' digits and no special chars)' Example:'    MsgBox "Is upper case? " & IsStringUpper("HELLO")'    MsgBox "Is upper case? " & IsStringUpper("HElLO")Public Function IsStringUpper(ByVal sText As String) As Boolean    Dim i As Integer        IsStringUpper = True        ' for each char in the string    For i = 1 To Len(sText)        ' if not upper case, set False as return value and exit the for loop        If IsCharUpper(Asc(Mid$(sText, i, 1))) = False Then            IsStringUpper = False            Exit For        End If    Next iEnd Function

devx-admin

Share the Post: