---

Jeg har nedenstående kode, som virker fint når jeg skal erstatte noget
tekst, som ikke indeholder tegnet . (punktum) eller \ (backslash)
har det noget med MO_RegExp.Pattern at gøre og hvordan ændres den evt., det
hjælper nemlig ikke noget bare at fjerne den linie.

<%
Function ErstatOrd(MO_Streng, MO_Ord, MO_Tag1)
Set MO_RegExp = New RegExp

MO_RegExp.Pattern = "([\?\*\+\.\|\{\}\\\[\]\(\)])"
MO_RegExp.IgnoreCase = True
MO_RegExp.Global = True
MO_Ord = MO_RegExp.Replace((MO_Ord), "\\$1")
MO_RegExp.Pattern = "(" & (MO_Ord) & ")"

ErstatOrd = MO_RegExp.Replace(MO_Streng, MO_Tag1)

Set MO_RegExp = Nothing
End Function

'Disse to linier virker ikke
response.write ErstatOrd("i denne tekst skal fil1.txt erstattes med
fil2.htm","fil1.txt","fil2.htm") & "<br>"
response.write ErstatOrd("i denne tekst skal tekst1/fff erstattes med
tekst2","tekst1]fff","tekst2")

'Denne virker fint
response.write ErstatOrd("i denne tekst skal 111 erstattes med
222","111","222")
%>


Mvh. Christoffer Thygesen

e-mail: cht@cht.dk
homepage: http://cht.dk