replace tekst der vises ud fra en database...

Replace(tekstStreng, ":)", "<img src=""smiley.gif"">")

tekststreng.. hvad skal der stå der?
er ikke nwbie men heller ikke prof..

<%
sometext="Welcome to this Web!!"
response.write(RepReplace(sometext, ":)", "<img src=""smiley.gif"">"))
%>

det skal være: sometext="Welcome to this Web :)  !!"
også skiftes :) med giffen

tekstStreng er bare en stump tekst. F.eks. en del af et databaseudtræk.

det smarteste er at du lavet en funktion hvori du ændrer alle de ting der skal replaces - fx;

function smileys(tekst)
tekst = replace(tekst, ":-)", "<img src='glad.jpg'>")
tekst = replace(tekst, ":-(", "<img src='sur.jpg'>")
smileys = tekst
end function

og derefter fungere selve funktion sådan;

response.write(smileys(rs("tektst")))

Det er ret vildt, manuelt at skulle skrive blockwords ind i en kode, og så skrive 200 Replace-statements. Jeg vil klart anbefale, at du bruger et array med "bad-words" og derefter looper igennem dem.

F.eks:

<%
myStopWords = "erotik,dum,snavs,snask,Thomas Regin,ASP"

minArtikel = "Thomas Regin kan godt lide erotik og masser af snavs og snask. Han er virkelig dum, men god til ASP"

mySplit = Split(myStopWords,",")
myArtSplit = split(minArtikel," ")

for t = 0 to ubound(mySplit)
    for y = 0 to ubound(myArtSplit)
        if myArtSplit(y) = mySplit(t) then
            minArtikel = Replace(minArtikel,myArtSplit(y),"¤%/!%")
        End If
    Next   
Next

Response.Write minArtikel
%>

Det virker ihvertfald!

Mvh,

Thomas Regin.

Her kommer lige en version, der rent faktisk virker! ;)

<%
myStopWords = "erotik,dum,snavs,snask,Thomas Regin,ASP"

minArtikel = "Thomas Regin kan godt lide erotik og masser af snavs og snask. Han er virkelig dum, men god til ASP"

mySplit = Split(myStopWords,",")
myArtSplit = split(minArtikel," ")

for t = 0 to ubound(mySplit)
    minArtikel = Replace(minArtikel,mySplit(t),"¤(/)(/")
Next

Response.Write minArtikel
%>

Thomas

rolig nu.. i deler alle pointene men det andet svar var nok :)
Nå men tak fordi der er så mange der vil hjælpe..

Herligt! ;)

En sidste ting på falderebet.. Du kan lave case IN-sensitivity på din replace-funktion således:

minArtikel = Replace(minArtikel,mySplit(t),"CENSUR",1,-1,vbTextCompare)

Mvh,

Thomas.

hvad gør den så?

Jeg formoder, at spørgsmålet var til mig og at det drejer sig om case insensitivity?

I så fald, så gør den det, at den replacer uanset om du skriver med stort eller lille!

Eksempel:

minStreng = "Jeg går en TUR"
Response.Write Replace(minStreng, "tur", "runde")

Ovenstående giver flg. resultat:

Jeg går en TUR

Og det var jo ikke hensigten! Her vil det være oplagt at bruge vbTextCompare:

Response.Write Replace(minStreng, "tur", "runde", 1, -1, vbTextCompare)

Resultat:

Jeg går en runde

/thomas

ok jamen d vil j huske ;)