How to select randomly Single String from multiple Strings in VB Script

144 100+

Hi Friends,

I am trying in VBScript. I have names "Orange","Red","Blue","Yellow". I need any one of this names to be displayed randomly in MSGBOX. How can I do that. I tried the below code but it is not working. Can you correct it if it is wrong.

Expand|Select|Wrap|Line Numbers

 
 <html>

<head>

<script type="text/vbscript">
 
Dim first() as String = {"Orange","Red","Blue","Yellow"}

MsgBox(first(Rnd))
 
</script>

</head>

</html>

Feb 16 '11 #1

Subscribe Post Reply

2424

yarbrough40

320

100+

the Rnd function only returns a number from 0 to 1. try something like:

Expand|Select|Wrap|Line Numbers

 Dim first() As String = {"Orange", "Red", "Blue", "Yellow"}

        Dim random As New Random()

        MsgBox(first(random.Next(4)))

Feb 16 '11 #2

davidson1

144

100+

I tried this below Code..But it is not working..Any other alternate code

[code]

<html>
<head>
<script type="text/vbscript">

Dim first() As String = {"Orange", "Red", "Blue", "Yellow"}
Dim random As New Random()
MsgBox(first(random.Next(4)))

</script>
</head>
</html>

[\CODE]

Feb 16 '11 #3

yarbrough40

320

100+

try

Expand|Select|Wrap|Line Numbers

 Dim first() As String = {"Orange", "Red", "Blue", "Yellow"}

Dim Random As Integer = CInt(Int((4 * Rnd()) + 0))

MsgBox(first(Random))

Feb 16 '11 #4

davidson1

144

100+

I tried this below code. But still it is not working. Any other code?

[code]
<html>
<head>
<script type="text/vbscript">
Dim first() As String = {"Orange", "Red", "Blue", "Yellow"}
Dim Random As Integer = CInt(Int((4 * Rnd()) + 0))
MsgBox(first(Random))
</script>
</head>
</html>
[\CODE]

Feb 16 '11 #5

yarbrough40

320

100+

can you be more specific as opposed to just "it's not working"? : ) are you getting compilation errors / runtime errors? if so what do they say?

I am a vb.net guy so you may just need to do some googling for "vbscript random function"

Feb 16 '11 #6

davidson1

144

100+

The message box is not coming with that Random name. It just executes and shows a Blank Page.No Error.

Feb 16 '11 #7

Similar topics

byte[] of data -> multiple strings

by: Maury Markowitz | last post by:

I have a byte returned from a DLL that contains n c-style strings inside it. Any suggestions on how to easily pull them out into a string? Encoding helps with a single byte array (although easily...

C# / C Sharp

select a single node from an xml file ?

by: Patrick F | last post by:

how do i select a single node value from the list? ive tried with this, but it dosent work =/ private string FetchFieldFromXml(string strId) {

ASP.NET

Column values to single string

by: John | last post by:

Hi I have an email column in a table. How can I turn values in the column for all records into a single string with each email separated by a ;? Thanks Regards

Microsoft Access / VBA

Single string print statements on multiple lines.

by: HeEm | last post by:

In my 100 level CS course, I was asked to create multiple lines of output within a single string. Of course I know how to: print "I am" print "a python" print "newbie." How can I get this...

Python

Matching multiple strings from a file

by: gwigg | last post by:

Hi, I am trying to match multiple strings per line from a file and extract them into an array. Apparently the first match is assigned $1, how do I know what the last match is ie $last?? I would like...

Perl

concatinating rows returned from ADO select into a single string?

by: jc | last post by:

I might be able to do this in t-sql, but is there an easy way to do this in vb.net/ado.net? Say my function looks like this: Public Function GetDataSet(ByVal sql As String) As DataSet If...

Visual Basic .NET

Single string vs list of strings

by: Scott Sharkey | last post by:

Hi All, I have a need to determine whether a passed variable is a single string, or a list of strings. What is the most pythonic way to do this? Thanks. -Scott

Python

Replacing multiple strings in a file

by: Polarism | last post by:

Hello, I am very new to perl and I am having trouble figuring out how to replace multiple strings in a single file. The file has something around 750k instances that need to be replaced with 350...

Perl

Concatenating multiple strings into single string while preserving terminating NULL

by: Markus | last post by:

Hi, guys. I'm receiving a dynamic amount of strings and from these strings I need to make a single string containing them all. However, I need to preserve the NULL characters to separate the...

C / C++

How to turn on java script in a villaon keypad mobile phone

by: Charles Arthur | last post by:

How do i turn on java script on a villaon, callus and itel keypad mobile phone

Java

Migrating Website to Cloud - Emmanuel Katto

by: emmanuelkatto | last post by:

Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud. Please let me know. Thanks! Emmanuel

General

Navigating the Data Structures and Algorithms (DSA)

by: BarryA | last post by:

What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...

Algorithms / Advanced Math

Looking to do Android software development, any suggestions? Is flutter better?

by: nemocccc | last post by:

hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?

General

Is that possible of reading the .csv file in column wise and the column have different lengths ?

by: Sonnysonu | last post by:

This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...

C / C++

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...

Windows Server

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...

C / C++

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...

Online Marketing

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...

Career Advice