Jag har skrivit en function som heter "SLUMPORD", den slumpar ord från en lista jag har.

Vad jag vill göra är att ersätta alla "taggar" i en textbox med olika slumpord.
Om vi till exempel säger att taggen i textboxen ser ut såhär "(ORD)".
Och texten i textboxen ser ut såhär.

"Lasse åt en stor (ORD). Och sen byggde han en koja utav (ORD).
När han satt i kojan kastade han en (ORD)."

Om jag nu kör detta kommando

textbox = Replace(textbox, "(ORD)", SLUMPORD)

Då ersätts ju givetvis alla (ORD) med samma slumpade ord.
Nån som vet hur jag ska göra för att få ett nytt ord varje gång?
I denna textbox är det 3 taggar som ska ersättas men det varierar.

Du kan ju använda InStr() funktionen och manuelt infoga din text eller RegExp.

Det här borde funka ?

While Instr(textbox,"(ORD)") > 0 ' så länge det finns några "(ORD)" kvar
Replace(textbox, "(ORD)", SLUMPORD,,1) ' byter ut en förekomst av "(ORD)"
Wend

/Johan

VB gillade inte koden så jag satte dit "textbox =" framför replace.

While Instr(textbox,"(ORD)") > 0 ' så länge det finns några "(ORD)" kvar
textbox = Replace(textbox, "(ORD)", SLUMPORD,,1) ' byter ut en förekomst av "(ORD)"
Wend

Nu körsloopen men endast 1 av taggarna byts ut innan loopen avslutas.
Någon som vet varför?

Missade tilldelningen...

Testa med en lokal variabel i stället för själva textboxen

/Johan

Hmm får det inte att fungera :(
Såg nu att den inte byter ut nåt ord alls, såg fel förut.
Tack ändå för dina försök.

Nån som kan förklara hur jag ska göra för att använda InStr() eller RegExp ?

Fick hjälp i ett annat forum. Kunde lösa det såhär

Do
document2 = document
RANDOMWORD = RANDOM 'Random är functionen
document = Replace(document, "(WORD)", RANDOMWORD, 1, 1)
Loop Until document = document2

Men hur jävla trög är jag inte här, vafan skrev ja inte ut funktionen för i svaret.... Behöver den nu.