Random Words

[T0MMY]

Hi, i really need to get a random word from a txt file. my txt file looks a little somthing like this...

line one
another line
and other
.....etc etc

i had a look on here andi found this....

'Load the file into vWords
Dim vWords() As String
Dim iCount As Integer

iCount = 0

Open "Dictionary.txt" For Input As #1
Do Until EOF(1)
    Line Input #1, tmp
    Redim vWords(iCount)
    vWords(iCount) = tmp
    iCount = iCount + 1
Loop 
Close #1

''Get a random value
Dim I As Integer

I = Int(Rnd * UBound(vWords)) + 1
MsgBox "The Random word is: " & vWord(I)

By Megtron
and i think its what i need but it dont work for me

wen i placed it in Form_Load and hit run it highlights the very last word on the last line (the vWord) and says..

Complie Error:
Sub or Function not defined

maybe its because im using VB5? i dunno knowing me its prob somthing really silly
thanx for reading

[NotLKH]

Looks like a typo.
There is no such thing vWord defined
Change the line to this:

MsgBox "The Random word is: " & vWords(I)

-Lou

[T0MMY]

Hey thanx doh! its past that bit now but now when i hit the run button it just says The Random word is: and not returning any word can anyone spot anything else?
thanx

[ExcalibursZone]

Hmm I've done this with a few things in my game. How about this:

Dim rndWords() As String
Dim sFile As String
Dim FF As Integer
 
Randomize
FF = FreeFile()
Open "C:\Words.Txt" For Input As #FF
    sFile = Input$(LOF (FF), FF)
Close #FF
 
rndWords = Split(sFile, vbCrLf)
 
MsgBox "The Random Word is: " & rndWords(int(rnd * UBound(rndWords)))

[T0MMY]

Thanx but is there anyway of doing it with out the spilt funcation? as im using VB5

[ExcalibursZone]

Sure, try this:

Private Sub Form_Load()
    Dim Fred() As String
    Dim X As Integer
    Fred = vb5Split("this" & vbCrLf & "is" & vbCrLf & "only" & vbCrLf & "a" & vbCrLf & "test", vbCrLf)
    For X = 0 To UBound(Fred)
        MsgBox Fred(X)
    Next X
End Sub
 
Public Function vb5Split(ByVal sText As String, sDelim As String) As String()
    Dim sTemp() As String
    Dim X As Integer
 
    X = -1
    sText = sText & sDelim
    Do While InStr(1, sText, sDelim) > 0
        X = X + 1
        ReDim Preserve sTemp(X)
        sTemp(X) = Left(sText, InStr(1, sText, sDelim) - 1)
        sText = Mid(sText, Len(sTemp(X)) + Len(sDelim) + 1)
    Loop
    vb5Split = sTemp
End Function

There you have it a split function. The Form_Load Junk is an example of how to use it. Have fun.

[T0MMY]

Hey it worked thanx so much!

[ExcalibursZone]

Nop A Troblem