Replace med løkke

strTekst = "Den tekst hvor ordene alfa, beta, gamma skal udskiftes..."

strAlleOrd = "alfa,beta,gamma,delta"
arrAlleOrd = split(strAlleOrd, ",")

strUdskiftMed = "første,anden,tredie,fjerde"
arrUdskiftMed = split(strUdskiftMed, ",")

for idx = 0 to ubound(arrAlleOrd)
  strTekst = Replace(1, strTekst, strOrd, arrUdskiftMed(idx), vbTextCompare)
next

CRAP! Løkken skal lige ændres til dette:

for idx = 0 to ubound(arrAlleOrd)
  strTekst = Replace(1, strTekst, arrAlleOrd(idx), arrUdskiftMed(idx), vbTextCompare)
next

Hej Softspot
Tusind tak for hjælpen.
Når jeg prøver at indsætte din kodestump, får jeg følgende fejl. Hvad kan det betyde?

Microsoft VBScript runtime error '800a000d'
Type mismatch: '[string: "første"]'
/admin/l.asp, line 153

Hvordan ser resten af din kode ud?

Set fs=Server.CreateObject("Scripting.FileSystemObject")
filSti = "../" & recAb.Fields.Item("newsPath").Value
Set f=fs.OpenTextFile(Server.MapPath(filSti), 1)
'Response.Write Replace(f.Read(200), "<BR>", " ") & "&nbsp;..."


strTekst = f.Read(200)

strAlleOrd = "<p>,</p>,i"
arrAlleOrd = split(strAlleOrd, ",")

strUdskiftMed = "ABE,ABE,ABE"
arrUdskiftMed = split(strUdskiftMed, ",")

for idx = 0 to ubound(arrAlleOrd)
  strTekst = Replace(1, strTekst, strOrd, arrUdskiftMed(idx), vbTextCompare)
next

for idx = 0 to ubound(arrAlleOrd)
  strTekst = Replace(1, strTekst, arrAlleOrd(idx), arrUdskiftMed(idx), vbTextCompare)
next

Sorry, jeg mixer parametrene til nogle forskellige rutiner. Det skal se således ud:

strTekst = "Den tekst hvor ordene alfa, beta, gamma skal udskiftes..."

strAlleOrd = "alfa,beta,gamma,delta"
arrAlleOrd = split(strAlleOrd, ",")

strUdskiftMed = "første,anden,tredie,fjerde"
arrUdskiftMed = split(strUdskiftMed, ",")

for idx = 0 to ubound(arrAlleOrd)
  strTekst = Replace(strTekst, arrAlleOrd(idx), arrUdskiftMed(idx), vbTextCompare)
next

Det var altså Replace jeg havde lavet en fejl i...

Perfekt! Nu ruller det. Mange tak for hjælpen.
Læg et svar, så sender jeg points!

Velbekomme :)

takker!

Tak for point :)