--- title: "Replace" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/9178-replace/page2" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "qwerty" published: "2001-04-09T11:09:00.000Z" updated: "2001-04-27T06:40:00.000Z" replies: 23 views: 378 page: 2 pages: 2 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/9178-replace" --- # Replace _Sida 2 av 2._ ## #21 — PatrikB, 2001-04-11T09:44Z har du använt dig av Server.HTMLEncode("Min text med å, ä och ö") när du sparar ned texten. Visa lite kod hur det ser ut när du har sparat ned till filen cya, PatrikB Permalänk: https://www.webforum.nu/p/267291 ## #22 — qwerty, 2001-04-11T10:36Z Här är hela koden: ``` <% '------RENSA-UT-FULA-ORD-FUNKTION--------------------------------------------------KK- Set A = CreateObject("Scripting.FileSystemObject") Set B = A.OpenTextFile ("c:\inetpub\wwwroot\txt\badwords.txt") fulaord = B.ReadAll B.close Application("BadWords") = fulaord Function checkBadWord(StringToCheck) Dim objRegExp, match, matches, arrPattern, I Set objRegExp = New RegExp objRegExp.Global = True objRegExp.IgnoreCase = true arrPattern = Split(Application("BadWords")) For I = LBound(arrPattern) TO UBound(arrPattern) objRegExp.Pattern = arrPattern(I) Set matches = objRegExp.Execute(StringToCheck) For Each match In matches StringToCheck = Replace(StringToCheck,match,"") Next Set matches = Nothing Next Set objRegExp = Nothing checkBadWord = StringToCheck End Function strString = Request.Form("textfield") 'Response.Write checkBadWord(strString) '-------------------------------------------------------------------------------------- %> <%=checkBadWord(strString)%> ``` ...och så här ser badwords.txt ut: ``` jävla fan skit ``` Permalänk: https://www.webforum.nu/p/267292 ## #23 — PatrikB, 2001-04-11T14:34Z ... he, he ... den funkar. Det jag ville ha kod på är HUR du sparar det som står i badwords.txt En rolig sak hände när jag testkörde scriptet. Du kan inte ha med fan i bildnamnet litenfan.gif för fan är ett förbjudet ord och sorteras såleds bort =O cya, PatrikB Permalänk: https://www.webforum.nu/p/267293 ## #24 — qwerty, 2001-04-27T06:40Z Jag sparar inte den textfilen med hjälp av asp. Jag har skrivit den i 'wordpad'. Allt funkar perfa utom att om man sätter in åäö i sina svordomar så glider de igenom "filtret" Permalänk: https://www.webforum.nu/p/267294 --- Tråden på webben: https://www.webforum.nu/amne/asp/9178-replace/page2 Föregående sida: https://www.webforum.nu/amne/asp/9178-replace.md