Posting av kode!

[aadnk]

Ettersom forumsoftwaren nå ikke automatisk konverterer fra mellomrom til ikke-brytende mellomrom for visning i HTML (i hvert fall ikke for sitatblokker), har jeg lagt til denne funksjonaliteten i programmet. Programmet ligger fremdeles på min hjemmeside.

 

Bemerk: "Tab to" må være satt til "    " (ALT+0160 fire ganger) for at dette skal fungere. Dette gjelder kun dersom du har eksekvert programmet tidligere.

 

Eksempelkode:

Imports System.Text.RegularExpressions

 

Public Class Filters

   Public Function ProfanityFilter(ByVal Text As String) As String

       ' Apply our magical and amazingly effective Curse Word Filter

       Return Regex.Replace(Text, "\b(fuck|ass|asshole|cock|cocksucker|shit|bullshit|cunt|" & _

        "motherfucker|piss|pussy|slut|tit|twat|wanker|bitch)\b", AddressOf CensorWord, RegexOptions.IgnoreCase)

   End Function

 

   Private Function CensorWord(ByVal Match As System.Text.RegularExpressions.Match) As String

       ' Replaces all vocals with *

       Return Regex.Replace(Match.Value, "[aeiouy]", "*")

   End Function

End Class