Dx21 - UDF

Home

eZine

Coding

Software

Network Admin.

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

	Back
	UDC Library

User Defined Functions Library

Syntax:	CreateRndString
Where:	intLength Numeric value, indicating length of string to return bAlpha Boolean value, indicating if alpha characters should be used. bNumeric Boolean value, indicating if numeric characters should be used bSpecialChars Boolean value, indicating if special characters should be used bCaseSensitive Boolean value, used only if bAlpha is true. A True value will cause both upper and lower case alpha characters to be returned, whereas a False value will return only upper.
Constants:	None
Return Type:	String

View Function in:

Function CreateRndString(intLength, bAlpha, bNumeric, bSpecialChars, bCaseSensitive)
	Const ALPHA_U = "ABCDEFGHIJKLMNOPQRSTUVXXYZ"
	Const ALPHA_L = "abcdefghijklmnopqrstuvwxyz"
	Const NUMERIC = "0123456789"
	Const SPECIAL = "{}[],.<>;:'?/|\`~!@#$%^&*()_-+="
	
	Dim strCHARS, intEval, strRetVal
	
	'Quit if nothing to do
	If bAlpha = False And bNumeric = False And bSpecialChars = False Then 
		CreateRndString = vbNullString
		Exit Function
	End If
	
	'Determine character range
	If bAlpha Then strCHARS = ALPHA_U
	If bAlpha And bCaseSensitive Then strCHARS = strCHARS & ALPHA_L
	If bNumeric Then strCHARS = strCHARS & NUMERIC
	If bSpecialChars Then strCHARS = strCHARS & SPECIAL
	
	Do
		Randomize
		intEval = Int(((LEN(strCHARS)) * Rnd) + 1)
		strRetVal = strRetVal & Mid(strCHARS,intEval,1)
	Loop Until Len(strRetVal) = intLength
	
	CreateRndString = strRetVal
End Function

Script Example

WScript.Echo "Alpha - All Caps:      " + CreateRndString(10,true,false,false,false)
WScript.Echo "Alpha - Mixed:         " + CreateRndString(10,true,true,false,true)
WScript.Echo "Numeric:               " + CreateRndString(10,false,true,false,false)
WScript.Echo "Special Chars:         " + CreateRndString(10,false,false,true,true)
WScript.Echo "Alpha/Numeric - Mixed: " + CreateRndString(10,true,true,false,true)
WScript.Echo "Alpha/SpChar - Caps:   " + CreateRndString(10,true,false,true,false)
WScript.Echo "All:                   " + CreateRndString(10,true,true,true,true)

Last Modification:
9/18/2006

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 10:02:15 PM for Unknown