Hi all,

How to count Uppercase Letter from a String.

Please help

Regards,
Sandeep

Function NumUpperCase(x)
  a = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  count = 0

  for c = 1 to Len(x) 
   if InStr(a,Mid (x,c,1)) > 0 then count = count+1
  next

  NumUpperCase = count
End Function
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.