Random Generation string

Question

1.00/5 (1 vote)

See more:

Hi All,

I would like to generate Random string of fixed length.The code is below.

VB

Private Shared Function RandomString(Size As Integer) As String
        Dim input As String = "abcdefghijklmnopqrstuvwxyz0123456789"
        Dim chars = Enumerable.Range(0, Size).[Select](Function(x) input(Random.[Next](0, input.Length)))
        Return New String(chars.ToArray())
    End Function

But I receive an error of

Quote:
Overload resolution failed because no accessible 'Select' can be called with these arguments:
Extension method 'Public Function Select(Of TResult)(selector As System.Func(Of Integer, Integer, TResult)) As System.Collections.Generic.IEnumerable(Of TResult)' defined in 'System.Linq.Enumerable': Nested function does not have a signature that is compatible with delegate 'System.Func(Of Integer, Integer, TResult)'.
Extension method 'Public Function Select(Of TResult)(selector As System.Func(Of Integer, Integer, TResult)) As System.Collections.Generic.IEnumerable(Of TResult)' defined in 'System.Linq.Enumerable': Data type(s) of the type parameter(s) cannot be inferred from these arguments. Specifying the data type(s) explicitly might correct this error.

Regards
Sreejith

Posted 13-May-15 4:13am

Member 11658469

Updated 13-May-15 9:48am

Maciej Los

v2

Add a Solution

3 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

OriginalGriff · Answer 1 · 2015-05-13T04:34:00

Solution 1

Try this:

VB

Private Shared chars As String = "abcdefghijklmnopqrstuvwxyz0123456789"
Private random As New Random()
Private Function RandomString(size As Integer) As String
    Return New String(Enumerable.Repeat(chars, size).[Select](Function(s) s(random.[Next](s.Length))).ToArray())
End Function

Posted 13-May-15 4:34am

OriginalGriff

Comments

Maciej Los 13-May-15 16:15pm

Hmmm... Have you tested it, Paul?

OriginalGriff 13-May-15 16:33pm

Wrote and tested in C#, then translated via Telerik:
http://converter.telerik.com/
It normally gets it right...
Though quite what the HTML is doing in there I don't know...

OriginalGriff 13-May-15 16:35pm

Interesting - it's a CP bug.
I suspect Markdown... I'll get it reported to the hamsters.

Maciej Los 13-May-15 16:48pm

5ed!
Have a look at my answer ;)

OriginalGriff 13-May-15 17:43pm

Are you channelling He Who Must Not Be Named? :laugh:

Maciej Los 14-May-15 1:28am

;)

Maciej Los · Answer 2 · 2015-05-13T10:44:00

Random needs to be intialized! Please see: Ranodm Class (System)[^]

This works as well:

VB

Private Function RandomString(size As Integer) As String

	Dim input As String = "abcdefghijklmnopqrstuvwxyz0123456789"
	Dim r As New Random
	Dim qry = Enumerable.Range(0, Size).[Select](Function(x) input(r.Next(0, input.Length)))
	Return New String(qry.ToArray())
   
End Function

Usage and result:

VB

Dim a As String = RandomString(55)
'result: y0lchxdvh8yaz73tbu1q0h6uptpkm19ldso8ozm64pnk7bvum86uz9e

OriginalGriff · Answer 3 · 2015-05-13T10:45:00

OK, there seems to be a site bug which is corrupting the VB code.
Let's see if we can get it readable:

VB

Private Shared chars As String = "abcdefghijklmnopqrstuvwxyz0123456789"
Private random As New Random()
Private Function RandomString(size As Integer) As String
    Return New String(Enumerable.Repeat(chars, size). [Select]

(Function(s) s( random. [Next]

(s.Length))) .ToArray())
End Function

Assemble the bits into a single line!

Random Generation string

3 solutions

Solution 1

Solution 2

Solution 3

Add your solution here

Preview 0