---
title: "Ersätta funktion!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/81847-ersätta-funktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "asp"
published: "2003-07-11T21:51:56.000Z"
updated: "2003-07-12T00:43:48.000Z"
replies: 11
views: 275
page: 1
pages: 1
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/81847-ersätta-funktion"
---

# Ersätta funktion!

## #1 — asp, 2003-07-11T21:51Z

Hej!

Jag vill ha en function som ersätter vissa tecknen innan jag sparar ned dem i databasen.

```
function ersatta(str)
str = Replace(str,"ö","o")
str = Replace(str,"ä","a")
str = Replace(str,"å","a")
end function

namn = ersatta(Request.Form("namn"))
epost = ersatta(Request.Form("epost"))
```

Denna kod ovan fungerar ej. =(

Permalänk: https://www.webforum.nu/p/81847

## #2 — Josef, 2003-07-11T22:17Z

```
Function ersatta(str)
    str = Replace(str, "ö", "o")
    str = Replace(str, "ä", "a")
    ersatta = Replace(str, "å", "a")
End Function

namn = ersatta(Request.Form("namn"))
epost = ersatta(Request.Form("epost"))
```

Permalänk: https://www.webforum.nu/p/1108140

## #3 — K@llen, 2003-07-11T22:54Z

```
function ersatta(str)
str = Replace(str,"ö","o")
str = Replace(str,"ä","a")
str = Replace(str,"å","a")

[b]ersatta = str[/b]

end function
```

Permalänk: https://www.webforum.nu/p/1108175

## #4 — asp, 2003-07-11T23:03Z

Lite frågor:

1\. Gör denna kod så att all html-kod skrivs ut som text förutom de jag vill ersätta?

```
Function ersatta(str)
    str = Replace(str, "[b]", "<b>")
    str = Replace(str, "[/b]", "</b>")
    str = Replace(str,"''","'")
    str = Replace(str,vbCrLf,"<br>")
    str = Server.HTMLEncode(str)
    str = ersatta
End Function
```

Sedan när jag vill spara ned så skriver jag detta under funktionen?

```
rubrik = ersatta(Request.Form("rubrik"))
datum = now()
skribent = ersatta(Request.Form("skribent"))
epost = ersatta(Request.Form("epost"))
hemsida = ersatta(Request.Form("hemsida"))
meddelande = ersatta(Request.Form("meddelande"))
catid = ersatta(Request.Form("catid"))

If Len("rubrik") > 0 Then
 SQL = "INSERT INTO Tradar (rubrik, datum, skribent, epost, hemsida, meddelande, catid) VALUES ('" & rubrik & "','" & datum & "','" & skribent & "','" & epost & "','" & hemsida & "','" & meddelande & "','" & catid & "')"
 objConn.Execute(SQL)
  Response.Write("<b>Sparat</b>")
End if
```

Permalänk: https://www.webforum.nu/p/1108187

## #5 — K@llen, 2003-07-11T23:11Z

Jag hade gjort replacen vid presentationen med undantag för escapesekvenserna. Sedan har du vänt nedanstående rad bak och fram:

str = ersatta

ska vara

ersatta = str

Permalänk: https://www.webforum.nu/p/1108189

## #6 — asp, 2003-07-11T23:18Z

Men i min replace blir ju  **\<b\> och då räknas det som html kod och skrivs därför ut som text men det vill jag ju inte.

hur skall jag göra?**

Permalänk: https://www.webforum.nu/p/1108192

## #7 — solbulle, 2003-07-11T23:57Z

Flytta upp raden:

str = Server.HTMLEncode(str)

inne i din funktion.

Permalänk: https://www.webforum.nu/p/1108203

## #8 — asp, 2003-07-12T00:10Z

thanks. men hade redan gjort det. =)

Permalänk: https://www.webforum.nu/p/1108205

## #9 — asp, 2003-07-12T00:13Z

Om jag vill vill ignonera all html kod då? Inte skrica ut den som sträng bara ta bort?

Permalänk: https://www.webforum.nu/p/1108207

## #10 — solbulle, 2003-07-12T00:20Z

Regexp skulle jag tro, kanske ett mönster som plockar bort allt mellan \< samt \>.

Du bör nog kunna hitta något om du söker.

Permalänk: https://www.webforum.nu/p/1108208

## #11 — asp, 2003-07-12T00:25Z

Aha, var det så krångligt?

Kan man göra så att den endast visar A-Ö, a-ö samt "!","?" och "." .

Permalänk: https://www.webforum.nu/p/1108210

## #12 — MartinD, 2003-07-12T00:43Z

En variant är att köra ett reguljärt uttryck som plockar ut alla tecken utom dom tillåtna:
\[^A-Z,a-z,!\\?\\.\]

Du får sen ersätta dom med tomrum eller liknande.
Vet ej hur du får det att fungera med åäö men det kan säkert någon annan svara på.

Permalänk: https://www.webforum.nu/p/1108211

---

Tråden på webben: https://www.webforum.nu/amne/asp/81847-ersätta-funktion