11-12-2003, 02:41 PM
Join Date: Aug 2003
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:
dim Fornames$(), Surnames$()
dim i%, j%
Open "C:\forname.txt" for input as #1
do until eof(1)
redim preserve Fornames(ubound(Fornames)+1)
input #1, Fornames(ubound(Fornames))
'now do the same for surnames
i=int(rnd * (ubound(fornames)-1))
j=int(rnd * (ubound(surnames)-1))
fullName = fornames(i) & " " & surnames(j)
Something like that should get you started, didn't test but should work.
...leben ohne sinn...