devxlogo

Generate Random Strings

Generate Random Strings

This code helps test SQL functions or other string-manipulation routines so you can generate random strings. You can generate random-length strings with random characters and set ASCII bounds, both upper and lower:

 	Public Function RandomString(iLowerBoundAscii As _		Integer, iUpperBoundAscii As Integer, _		lLowerBoundLength As Long, _		lUpperBoundLength As Long) As String		Dim sHoldString As String		Dim lLength As Long		Dim lCount As Long		'Verify boundaries		If iLowerBoundAscii < 0 Then iLowerBoundAscii = 0		If iLowerBoundAscii > 255 Then iLowerBoundAscii = 255		If iUpperBoundAscii < 0 Then iUpperBoundAscii = 0		If iUpperBoundAscii > 255 Then iUpperBoundAscii = 255		If lLowerBoundLength < 0 Then lLowerBoundLength = 0		'Set a random length		lLength = Int((CDbl(lUpperBoundLength) - _			CDbl(lLowerBoundLength) + _			1) * Rnd + lLowerBoundLength)		'Create the random string		For lCount = 1 To lLength			sHoldString = sHoldString & _				Chr(Int((iUpperBoundAscii - iLowerBoundAscii _				+ 1) * Rnd + iLowerBoundAscii))		Next		RandomString = sHoldString	End Function
See also  How HealthStream Learning Center Supports Healthcare Education and Compliance
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist