Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Beginner
Jul 9, 1999

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
Eric Lynn
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date