Visual Basic programmers, Help needed!

[More Booze]

I wrote a function which picks a random word from a listbox.
The function is called "RANDOMWORD".

I got a textbox with the text
"Hi I am (WORD). I like to (WORD) and (WORD)."

I want to replace all (WORD) with random words but if
I use
document = Replace(document, "(WORD)", RANDOMWORD)
it will change all (WORD) to the same random word.

How should I do to get a new word for each (WORD) in the textbox?
(In the exeample its only 3 (WORD) but it vary)

[malakajoe]

I am far from a VB expert...but try this maybe.

Build an array first and then insert from that array.

Again, don't know much and probably won't work.

[NickPapageorgio]

I don't know VB but I would imagine it is much like anything else. Build an array of all the different (WORDS) you want and then build a function to randomize those words as needed.

[bobosoft]

Which version of VB is it?

[More Booze]

Its Visual Basic 6.0.

I dont know how the array thing could work better, I already can pick random words the problem is that I cant replace (WORD) without use the same random word for all.

Or maby you meant that I could grab the textbox and make it into a array and then loop throu it and replace the words one by one..
Hmm that may work.

[NickPapageorgio]

I was saying maybe build an array and function for each (WORD) box. So 3 different sets of arrays and functions. But then again I don't know VB so someone with more experience would probably have a better suggestion.

[bobosoft]

for VB 6.0 thats an easy one.

the replace function is laid out like this

Replace(expression, find, replacewith[, start[, count[, compare]]])


you have the first three required operators but you omitted the optional operators

start is the place in the string to start looking for words to replace. the first character is default.

count is the important one, it is the number of replacement to make. the defaul is -1 which meams make as many replacements as possible. simply change the value to 1 and it will only make 1 replacement at a time.

your code would look something like this for 3 replacements

Dim i as integer
For i = 1 to 3

RANDOMWORD = RanddomwordFunction()
document = Replace(document, "(WORD)", RANDOMWORD,1,1)

Next i
or if you wanted to unlimited replacements you oudl have it loop until document is the same as it waqs when it started

do

Document2 = document
RANDOMWORD = RanddomwordFunction()
document = Replace(document, "(WORD)", RANDOMWORD,1,1)

loop until document = document2

[More Booze]

YES!!!! thanks alot bobosoft, it fucking WORKED!
I asked about this in 4 programmer forums but nobody could answer.

[bobosoft]

Originally posted by More Booze
YES!!!! thanks alot bobosoft, it fucking WORKED!
I asked about this in 4 programmer forums but nobody could answer.

Of course not, the brightest of the brightest all hang around gfy.