<%
Function CensurWord(strText,strWord)
strText = strText & " "
strWord = Replace(strWord,".","\.")
strSplit = split(strWord,",")
strPattern = "("
for i = 0 to ubound(strSplit)
if i <> ubound(strSplit) then
strPattern = strPattern & strSplit(i) & "|"
else
strPattern = strPattern & strSplit(i)
end if
if i = ubound(strSplit) then
strPattern = strPattern & ").*?[\s]"
end if
next
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = true
objRegExp.Pattern = strPattern
strText = objRegExp.Replace(strText,"*censur* ")
Set objRegExp = Nothing
CensurWord = left(strText,(len(strText)-1))
End Function
%>
<%=CensurWord("her sver jag helvetesskit javla skitsak helsikesscript sa du vet","helvetes,javla,skit,helsike")%>
den censurerar ä'ven om du skriver helvetesskit så censurerar den hela ordet....
Funktioner kan man placera vart som helst i .asp filer, men man brukar lägga dem i någon inkluderad fil för att kunna använda dem i alla filer utan att behöva skriva om funktionen i varje fil.
<%=CensurWord("her sver jag helvetesskit javla skitsak helsikesscript sa du vet","helvetes,javla,skit,helsike")%>
CensurWord() funktionen få in en sträng och gör censurringen åt dig.
där strängen "her sver jag helvetesskit javla skitsak helsikesscript sa du vet" är orginal strängen och "helvetes,javla,skit,helsike" är de ord som skall censureras bort.
