Censur av ord....

[pirro]

Såg vogitanns funktion o gjorde en egen....

<%
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....

//Pirro

[Mycodez]

Vart plaserar man den Script koden?

[noshornin]

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.

[Mycodez]

okej så skulle du kunna var vänligt och skriva ett ut ett exempel på hur det skulle se ut om jag har två text fält som heter meddelande och användare?

skulle vara mycket till hjälp för mig för då förstår jag lite mer hur koden funkar och så

[voigtann1]

koden ovan ge ju dig ett exempel redan:

<%=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.

[Mycodez]

Okej ska kolla på det