Dx21 - UDF

Home

eZine

Coding

Software

Network Admin.

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

	Back
	UDC Library

User Defined Functions Library

Syntax:	ChangeCase
Where:	intFunction A known constant indicating the action to take. strString The string to manipulate.
Constants:	ccCapitalize = 1 ccInvert = 2
Return Type:	String

View Function in:

Function ChangeCase(intStyle, strString)
	Const ccCapitalize = 1
	Const ccInvert = 2	
			
	Dim intIndex, strEval, strWorking, aSent
	
	Select Case intStyle
		Case ccCapitalize
			If InStr(1, strString," ") = 0 Then
				ReDim aSent(0)
				aSent(0) = strString
			Else
				aSent = Split(strString," ")
			End If
			
			For intIndex = 0 To UBound(aSent)
				aSent(intIndex) = UCase(Left(aSent(intIndex),1)) & LCase(Right(aSent(intIndex),Len(aSent(intIndex))-1))
			Next
			
			For intIndex = 0 To UBound(aSent)
				strWorking = strWorking & aSent(intIndex) & " "
			Next
			strWorking = Trim(strWorking)
		
		Case ccInvert
			For intIndex = 1 To Len(strString)
				strEval = Mid(strString, intIndex,1)
				
				If Asc(strEval)=> 65 And Asc(strEval) <= 90 Then
					strEval = Chr(Asc(strEval)+32)
				ElseIf Asc(strEval) => 97 And Asc(strEval) <= 122 Then
					strEval = Chr(Asc(strEval)-32)
				End If
				
				strWorking = strWorking & strEval
			Next		
	End Select
	
	ChangeCase = strWorking
End Function

Script Example

Const ccCapitalize = 1
Const ccInvert = 2	

WScript.Echo ChangeCase(ccInvert,"This will Invert The Case") 
WScript.Echo ChangeCase(ccCapitalize,"this wIlL reSet the Capitalization")
WScript.Echo ChangeCase(ccInvert,"InVeRt")
WScript.Echo ChangeCase(ccCapitalize,"reSEt")

Last Modification:
6/29/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:54:08 PM for Unknown