case recognitionhelp please!

[mickymoo]

I have written a named entity recogniser. Is there a method to get the program to recognise whether a character in a txt file is uppercase or lower case. I don't care what letter it is, I just want the program to recognise if a letter is Ucase or Lcase. At the moment I am doing a string comparison from a .txt file, bt there must be a better way than this.

Any thoughts gratefully appreciated

 

[JustinEzequiel]

?

Option Explicit

Private Sub Command1_Click()
  Print IsLower(Left$(Text1.Text, 1))
End Sub

Private Function IsLower(ByVal sText As String) As Boolean
  Dim sTemp As String
  
  sTemp = LCase$(sText)
  
  IsLower = (sTemp = sText)
End Function

 

[CCLINT]

Caution: The above will not work if Option Compare is set to Text. The default is of course Binary, but if you have in the declarations section of the module:

Option Compare Text

then you will either need to change it to (or just remove it):

Option Compare Binary

or you will need to use the StrComp function:

StrComp(Sting1, String2, vbBinaryCompare)