Just nu i M3-nätverket
Jump to content

Hitta ett ord i en sträng?


sudd

Recommended Posts

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!

 

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

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 :)

 

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...