Dx21 - UDF

Home

eZine

Coding

Software

Network Admin.

Home > Coding > Libraries > UDF / UDC Library > UDF Library

	Back
	UDC Library

User Defined Functions Library

Syntax:	IsCase
Where:	String Variable or string literal of the text to evaluate CaseType Numeric constant indicating evaluation style
Constants:	UDFUpperCase = 1 UDFLowerCase = 0
Return Type:	Boolean

View Function in:

Function IsCase(strWord, CaseState)
	Dim strEval
	Dim intIndex
	Dim bHasOpposite
	
	bHasOpposite = False
	
	For intIndex = 1 to LEN(strWord)
		strEval = MID(strWord, intIndex, 1)
		
		If CaseState = 0 Then
			'Lower
			If (ASC(strEval) => 65 AND ASC(strEval) =< 90) AND _
				 NOT (ASC(strEval) => 97 AND ASC(strEval) =< 122) Then bHasOpposite = True
		Else			
			'Upper
			If (ASC(strEval) => 97 AND ASC(strEval) =< 122) AND _
				 NOT (ASC(strEval) => 65 AND ASC(strEval) =< 90) Then bHasOpposite = True
		End If
	Next
	
	IsCase = NOT bHasOpposite	
End Function

Script Example

strString = "api_call"

WScript.Echo IsCase("API_CALL 1 2 three", UDFUpperCase)
WScript.Echo IsCase("APICALL", UDFUpperCase)
WScript.Echo IsCase("APIcCALL", UDFLowerCase)
WScript.Echo IsCase("apicall 1 2 three", UDFLowerCase)
WScript.Echo IsCase(strString, UDFLowerCase)

Last Modification:
1/1/2005

More Information: None

	FAQs \| Terms Of Use \| Privacy Policy \| Contact Us
	Copyright © 1997 - 2010 Dx21, LLC. All rights reserved. Dx21, LLC a Washington Limited Liability Company Page Rendered at: 9/8/2010 9:57:21 PM for Unknown