Solved

vb.net - get random from array

Posted on 2013-05-14
1
433 Views
Last Modified: 2013-05-14
Hello,
I am trying to get 3 results when I call showRand() function.
how can I make something so that I dont get the same number twice?

        Dim numbs() As String = {"1", "2", "3", "11", "12", "13"}
        Debug.Print(showRand(numbs, 3))
        
    
    Function showRand(ByRef data() As String, Optional ByVal MoreThanOne As Integer = 0) As String
        Dim Result As String = Nothing
        Dim Rand As New Random

        If MoreThanOne > 0 Then
            For i = 1 To MoreThanOne
                Result += data(Rand.Next(0, data.GetUpperBound(0) + 1)) & ","
            Next
            Result = Result.Substring(0, Result.Length - 1)
        Else
            Result = data(Rand.Next(0, data.GetUpperBound(0) + 1))
        End If

        Return Result
    End Function

Open in new window

0
Comment
Question by:XK8ER
1 Comment
 
LVL 85

Accepted Solution

by:
Mike Tomlinson earned 500 total points
ID: 39167123
One way...
    Function showRand(ByVal data() As String, Optional ByVal MoreThanOne As Integer = 0) As String
        Dim Result As String = Nothing
        Static Rand As New Random

        If MoreThanOne > 0 Then
            If MoreThanOne <= data.Length Then
                Dim index As Integer
                Dim strings As New List(Of String)(data)
                Dim selected As New List(Of String)
                For i As Integer = 1 To MoreThanOne
                    index = Rand.Next(0, strings.Count)
                    selected.Add(strings(index))
                    strings.RemoveAt(index)
                Next
                Result = String.Join(",", selected.ToArray)
            End If
        Else
            Result = data(Rand.Next(0, data.Length))
        End If

        Return Result
    End Function

Open in new window

0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This document covers how to connect to SQL Server and browse its contents.  It is meant for those new to Visual Studio and/or working with Microsoft SQL Server.  It is not a guide to building SQL Server database connections in your code.  This is mo…
A long time ago (May 2011), I have written an article showing you how to create a DLL using Visual Studio 2005 to be hosted in SQL Server 2005. That was valid at that time and it is still valid if you are still using these versions. You can still re…
This video shows how to use Hyena, from SystemTools Software, to bulk import 100 user accounts from an external text file. View in 1080p for best video quality.
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…

839 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question