Random Generate - Xtreme Visual Basic Talk

11-12-2003, 01:20 PM

slash85

Newcomer

Join Date: Nov 2003

Posts: 3

Random Generate

Hi,

I'm tryin to write a little program that generates names i have got 2 .txt files the 1st contains first names 2nd contains surnames, i want the program 2 take random first names and merge them with random surnames and export the results into another txt file, is this possible can any1 help me out ?

Thanks in Advance
Slash

11-12-2003, 01:24 PM

Iceplug

MetaCenturion

Retired Moderator
* Guru *

Join Date: Aug 2001

Location: California, USA

Posts: 16,583

Read all of the names in the file and store them in an array. This will enable you to generate a random name (after you've generated the random number of course) by referencing the array member that matches the random number you created.
Have you worked with arrays before?

__________________

Iceplug, USN
Quadrill 1 Quadrill 2 (full) Quadrill 3 JumpCross .NET Website is ALIVE! - DL Platform Tour for VB.NET! Posting Guidelines Hint: Specify your location in your user cp profile if you want compassion!

11-12-2003, 01:27 PM

slash85

Newcomer

Join Date: Nov 2003

Posts: 3

Nope i'm a newbie, thanks for the quick reply can you give me a little more detail?

11-12-2003, 01:33 PM

Iceplug

MetaCenturion

Retired Moderator
* Guru *

Join Date: Aug 2001

Location: California, USA

Posts: 16,583

Um... you may want to learn more about arrays and file access before attempting something like this.

Code:

Private Sub Form_Click()
Dim Xnames(0 To 9) As String, R as Integer
Xnames(0) = "Rover"
Xnames(1) = "Fido"
Xnames(2) = "Bowwow"
Xnames(3) = "Doggy"
MsgBox Xnames(1)
'For loop sets all array elements
For R = 0 To 9
  Xnames(R) = "Meow Mix"
Next
MsgBox Xnames(1)
'Childs Play mathematics
R = 8 + 2 * 4 - 3 * 5
Xnames(R) = "Iceplug"
MsgBox Xnames(1)

11-12-2003, 01:57 PM

slash85

Newcomer

Join Date: Nov 2003

Posts: 3

just tried that little bit of code you sent wen i click it says compile error: expected end sub???????

11-12-2003, 02:41 PM

zanth_quareni zanth_quareni is offline

Senior Contributor

Join Date: Aug 2003

Location: Tomarria

Posts: 905

Quote:
Originally Posted by slash85
just tried that little bit of code you sent wen i click it says compile error: expected end sub???????

Put an End Sub on the end of that and it will work.

For reading in the names, do something like this:

Code:

dim Fornames$(), Surnames$()
dim fullName$
dim i%, j%

redim fornames(0)
redim surnames(0)

Open "C:\forname.txt" for input as #1
    do until eof(1)
        redim preserve Fornames(ubound(Fornames)+1)
        input #1, Fornames(ubound(Fornames))
    loop
close #1
'now do the same for surnames

i=int(rnd * (ubound(fornames)-1))
j=int(rnd * (ubound(surnames)-1))

fullName = fornames(i) & " " & surnames(j)
msgbox fullName

Something like that should get you started, didn't test but should work.

__________________
...leben ohne sinn...