Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB5,VB6
Expertise: Intermediate
Sep 1, 2001

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 i
End Function
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date