Automating QTP Test Automation Home Automation Articles Downloads QTP Gotchas Links Books Contact About Site Map
String Function - Check all lowerThis function checks if a string is ENTIRELY in lower case. Download it Here (right-click and then save target as). (NOTE - you can just cut & paste from below, but the formatting will have multiple spaces instead of tabs).
'=========================================================================
Function zStr_CheckIsAllLower(sInput) 'This function tells you if a string is ENTIRELY in lower case 'Usage: 'If zStr_CheckIsAllLower(sTemp) Then ' MsgBox(sTemp & " is in all lower case") 'Else ' MsgBox(sTemp & " is NOT in all lower case") 'End If Dim oRegEx, cMatches zStr_CheckIsAllLower = True Set oRegEx = New RegExp oRegEx.Pattern = "[^a-z]" oRegEx.IgnoreCase = False Set cMatches = oRegEx.Execute(sInput) If cMatches.Count > 0 Then zStr_CheckIsAllLower = False End If Set cMatches = Nothing Set oRegEx = Nothing End Function '========================================================================= |