Just nu i M3-nätverket
Gå till innehåll

Hitta ett ord i en sträng?


sudd

Rekommendera Poster

Hej! Jag skall göra ett "censurera" scipt. Om t.ex. en besökare skriver ett olämpligt ord så säger sciptet till.

 

Ex.

str = "Hej alla j-vla idioter"

...sen vill jag ha ett scipt som kollar om j-vla finns med, hur gör jag det?

 

Tacksam för all hjälp!

 

Länk till kommentar
Dela på andra webbplatser

<%
Dim String

String = strangen

If (Instr(String, "jävlar")) Then 

  Response.write "Fult ord du använder"

Else

  Response.Write "Du är duktig!"

End IF
%>

 

/ Kristoffer

 

Länk till kommentar
Dela på andra webbplatser

Jag skall göra ett "censurera" scipt. Om t.ex. en besökare skriver ett olämpligt ord så säger sciptet till.

 

I praktiken är det omöjligt, du skulle vara tvungen att ta med vartenda "fult" ord som existerar i svenska språket och dessutom alternativa stavningar.

 

[inlägget ändrat 2003-02-24 13:08:43 av qwerty99]

Länk till kommentar
Dela på andra webbplatser

Jo, men det kan hjälpa oss att få bort det värsta. Det är bara det tekniska vi söker. Vi förstår att det blir många ord, vi hade gärna önskat att Bill Gates gör en funktion som nedan.

 

If fultord then = nått

 

else

 

järnet!

 

end if

 

...ja du förstår :)

 

Länk till kommentar
Dela på andra webbplatser

En snabb och ful løsning blir Replace med en array med alla ord som du vill kolla igenom.

 


Function replaceUglyWord(myString)
aUglyWord(0) = "j-vlar"
aUglyWord(1) = "jævlar"
...

For iIndex = 0 to UBound(aUglyWord)
myString = Replace(myString, aUglyWord(iIndex), "[Censur]")
next

replaceUglyWord = myString

 

- Magnus

-----------------------------------------------------

Jag är inte kaxig, jag är bara så jävla bäst...

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...