Check if first char of a word is uppercase?

[unba1300]

Hello,

Could someone please tell me if there is an easy way to check in code if the first character of a string was entered as uppercase or not? I don't want to convert it - just check it.

Thanks.

 

[Woinowski]

There might be an easier solution, but this should work

' s is your string
Dim first as String
first = s.Substring2(0,1)
If first.ToUpperCase = first then
  ' Here we are
end if

 

[unba1300]

Thanks for your very quick reply. Your solution set me in the right direction again.

 

[Roger Garstang]

Could also get an ASCII/Int value of the first char and do a range compare if English text. May even work without the numeric conversion with something like > "@" and < "[". Be sure to check for length of string/no input so the substring or whatever you use to get the first char doesn't fail.

 

[Mahares]

If you are looking for an alternate, here it is:

   txt="Basic4Android"
   If Asc(txt) >= 65 AND  Asc(txt)  <= 90 Then  '65 is A, 90 is Z
      Msgbox(txt & " starts with an upper case letter.","")
   Else
      Msgbox(txt & " starts with a lower case letter or something else.","")
   End If

 

[Roger Garstang]

Yeah, something like that would work. May have to still check for an empty string. There is also an old trick using 32(The 6th bit) too. If you notice the values are 32 apart, so checking for or toggling that bit determines case. ASCII and bytes were so simple before they tossed in all this Unicode stuff.

 

[Woinowski]

Using ASC Value might be problematic

Android (and B4A) use UniCode, as far as I understand it. Restricting that check to ASCII might miss something.