Replace, repace ikke midt et et ord

Prøv

strContent = replace(strContent, " pik ", "rose",1,-1,1)

Denne version virker også selv om der bruges store og små bogstaver, ordet ligger i starten eller slutningen af teksten, og hvis der f.eks. kommer et !-tegn lige efter:

Set re = New RegExp
re.Pattern = "\bpik\b"
re.IgnoreCase = True
re.Global = True

strContent = re.Replace(strContent, "rose")

Hehe, nårh ja selvfølgelig, den lå lige til højrebenet..

Smid et svar ;)

strContent = replace(strContent, " pik ", "rose",1,-1,1)
denne virker fint, og tager også højde for store og små bogstaver..

... men ikke for:

"pik ... mere tekst"
"mere tekst ... pik"
"mere tekst ... pik!!! ... mere tekst"

eller bare:

"pik"

Har du helt ret i,sku lige til at sige det efter at have testet det :D

Har min function her, hvordan smider jeg den derin, når jeg trækker badword ud fra databasen

Function Badword(strContent)

    strBadword= "select * from badword where active = true"
    Set RsBadword= conn.Execute(strBadword)
    While Not RsBadword.EOF
    strContent = replace(strContent, " " & rsBadword("badword") & " ", " <font color=""#87A2B2"" title=""Ord fanget af ordfilteret"" style=""cursor:pointer;""><u>" & rsBadword("goodword") & "</u></font> ",1,-1,1)
    Rsbadword.MoveNext
    Wend
    Set RsBadword=Nothing

    Badword = strContent
End Function

Function Badword(strContent)
    Set re = New RegExp
    re.IgnoreCase = True
    re.Global = True

    strBadword = "SELECT * FROM badword WHERE active = true"
    Set RsBadword = conn.Execute(strBadword)
    While Not RsBadword.EOF
        re.Pattern = "\b" & rsBadword("badword") & "\b"
        strContent = re.Replace(strContent, "<font color=""#87A2B2"" title=""Ord fanget af ordfilteret"" style=""cursor:pointer;""><u>" & RsBadword("goodword") & "</u></font>"

        RsBadword.MoveNext
    Wend
    Set RsBadword = Nothing
    Badword = strContent
End Function

Har du fået afprøvet det?

Åh, fik jeg ikke afsluttet det..
Sorry..
Men det fungerer helt optimalt :)

Svar :^)