How do I add random numbers to end of string

Question

0.00/5 (No votes)

See more:

Hi,
I generate a random string and I want it to be same length every time but it can vary from 24 to 29 characters. If I want it to be 30 how can I pad the end of the string with random numbers so it will always be 30 characters long. So if its 24 characters it would add 6 extra characters or if its 25 it would add 5 extra random characters

What I have tried:

Tried making it longer than 30 and removing characters but couldn't get it to work

DateCode is just the date formatted in a certain way.
There is a function to calculate the CRC32 of a string
There is a list of unique serials in a list box

The CRC32 generated can vary in length which I only spotted when testing 5000 serials.

VB

For Each item As String In lstserials.Items
           
          file.WriteLine(item & "," & "PB" & LocationCode & txtReference.Text & DateCode & Crc32CalcString(System.Guid.NewGuid.ToString() & DateAndTime.Now.ToString & item))
            

        Next

Posted 29-Jan-20 4:21am

johnjsm

Updated 29-Jan-20 5:04am

v2

Add a Solution

Comments

Richard Deeming 29-Jan-20 10:34am

If you want us to help you fix your code, then you need to show us the relevant parts of your code.

Click the green "Improve question" link and update your question to show the code you currently have, and explain what you've tried and where you're stuck.

Richard MacCutchan 29-Jan-20 11:06am

You have update your post but the code you have added has nothing to do with the original question.

2 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)

phil.o · Answer 1 · 2020-01-29T04:38:00

VB

Public Function PadString (length As Integer, original As String) As String
   Dim len As Integer = original.Length
   If len > length
      original = original.SubString(length)
   Else if len < length
      Dim rand As New Random
      While original.Length < length
         original += rand.Next(1, 10).ToString()
      End While
   End If
   Return original
End Function

There may be some prettier/quicker/smarter ways, this is just a quick coding from someone who doesn't do VB so much anymore.

Richard MacCutchan · Answer 2 · 2020-01-29T04:39:00

Solution 2

VB

Dim line As String
Dim lco As Integer
line = "the quick brown fox jumps"
Console.WriteLine("line: {0}, count: {1}", line, line.Count)
lco = line.Count
While lco < 30
    line += "*"
    lco += 1
End While
Console.WriteLine("line: {0}", line)

Posted 29-Jan-20 4:39am

Richard MacCutchan