Random word generator?

[KurogamineNox 0]

What would I have to do to create a random word generator?

[AdmiralAlkex 129]

Like this?

Local $asWords[2] = ["Boat", "Car"]
MsgBox(0, "Here's a word for you", $asWords[Random(0, UBound($asWords), 1)])

[KurogamineNox 0]

That is one way, though your code seems to error at times.

I was thinking of like having it generate a word and storing it in a variable for later uses.

If possible able to make words without having to list words(If possible)

Ill go with any suggestion.

[maqleod 1]

There is no way you can get something to list words without some sort of list to verify they are actually words, otherwise you'll just get jumbles of letters returned.

[KurogamineNox 0]

There is no way you can get something to list words without some sort of list to verify they are actually words, otherwise you'll just get jumbles of letters returned.

That is what I was thinking lol, but creating a big list of words is time consuming. Well results are results, I just don't know why the guys code crashes at times.

[maqleod 1]

It errors because he has a 2 value array and 0-ubound($aswords) is 3 values to random.

Edited September 23, 2010 by maqleod

[KurogamineNox 0]

Help fix it? Or other suggestions?

[maqleod 1]

Local $asWords[2] = ["Boat", "Car"]
MsgBox(0, "Here's a word for you", $asWords[Random(0, UBound($asWords) -1, 1)])

[smashly 12]

Hi, the net is a great place to get word lists, saves you having to write them out yourself.

I used http://dictionary-thesaurus.com/Wordlists.html to get an Adjectives list.

Here's what I mean give the script a second to get the word list.

#Include <File.au3>

Global $sFile = @ScriptDir & "\Adjectives(929).txt"
Global $sFileSource = "http://dictionary-thesaurus.com/wordlists/Adjectives%28929%29.txt"
Global $aWord_Adjectives, $iMsg

If Not FileExists($sFile) Then InetGet ($sFileSource, $sFile)

If FileExists($sFile) Then
    _FileReadToArray($sFile, $aWord_Adjectives)
    If Not @error Then
        Do
            $iMsg = MsgBox(65, "Random Adjective", StringUpper($aWord_Adjectives[Random(1, $aWord_Adjectives[0], 1)]) & @LF & @LF & "Click Ok for another word")
        Until $iMsg = 2
    EndIf
Else
    MsgBox(64, "Not Found", "Word file not found")
EndIf

Cheers

Edited September 23, 2010 by smashly

[AlmarM 24]

Random words without storing them you say?

This is like the closest I can get.

Global $Pattern = "Xooxxo"
MsgBox(0, "", "Your random word: " & _RandomWord($Pattern))

Func _RandomWord($sPattern)
    Local $aSplit = StringSplit($sPattern, "")
    Local $aXList = StringSplit("bcdfghjklmnpqrstvwxyz", "")
    Local $aOList = StringSplit("aeiou", "")
    Local $sReturn = ""

    For $i = 1 To $aSplit[0]
        If ($aSplit[$i] == "X") Then
            $sReturn &= StringUpper($aXList[Random(1, $aXList[0], 1)])
        ElseIf ($aSplit[$i] == "x") Then
            $sReturn &= $aXList[Random(1, $aXList[0], 1)]
        ElseIf ($aSplit[$i] == "O") Then
            $sReturn &= StringUpper($aOList[Random(1, $aOList[0], 1)])
        ElseIf ($aSplit[$i] == "o") Then
            $sReturn &= $aOList[Random(1, $aOList[0], 1)]
        EndIf
    Next

    Return $sReturn
EndFunc

[Mison 1]

Maybe you can use this information to create something out of nothing..

The most used letters in the English language:

Top 5 - "ETAIN"

Top 6 - "ETAOIN"

Top .. "ETAON RISHD LFCMU GYPWB VKXJQ Z"

The most common letter pairs as "TH HE AN RE ER IN ON AT ND ST ES EN OF TE ED OR TI HI AS TO"

The most common doubled letters as "LL EE SS OO TT FF RR NN PP CC"

http://en.wikipedia.org/wiki/Letter_frequency

http://letterfrequency.org/

Edited September 23, 2010 by Mison

[junkew 478]

More details will help

• English, German, French, Chinese, ..... language
• Valid existing words from a dictionary
• Just some characters A-Z or special letters (diacritics) in UNICODE
• ....

[Nine 1,604]

1 hour ago, oddssatisfy said:

Do you guys know of a good random word generator besides the memocamp one? A free one if possible?

Of course we can come up with this.  But you will need to elaborate your requirements in clear terms. At least provide a decent runable snippet of your intentions.  Then we should be able to help you out.

[AspirinJunkie 75]

10 hours ago, oddssatisfy said:

I’ve checked the other word generators on the net but they seem to generate only one word at a time and not a list of words.

https://random-word-api.herokuapp.com/word?number=10

API-Documentation: http://random-word-api.herokuapp.com/home