---
title: "SmileyReplace funktion"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/47776-smileyreplace-funktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Erik Juhlin"
published: "2002-07-12T17:33:30.000Z"
updated: "2002-07-12T17:33:30.000Z"
replies: 0
views: 1473
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/47776-smileyreplace-funktion"
---

# SmileyReplace funktion

## #1 — Erik Juhlin, 2002-07-12T17:33Z

En snygg, smidig och enkel funktion för att byta ut smileytecken mot bilder. :)

```
<%
Function SmileyReplace(sString)
	Dim dic, k
	Set dic = Server.CreateObject("Scripting.Dictionary")
	
	dic("&#59;)") = "wink.gif" : dic("&#58;)") = "smile.gif"
	dic("&#120;(") = "angry.gif" : dic("&#58;D") = "biggrin.gif"
	dic("&#58;h") = "cool.gif" : dic("&#58;f") = "flirt.gif"
	
	For Each k In dic.Keys
		sString = Replace(sString, " " & k, " <img src=""" & dic(k) & """>", 1, -1, 1)
	Next 'k
	
	Set dic = Nothing
	
	SmileyReplace = sString
End Function

Response.Write SmileyReplace(" &#58;D ;)")
%>
```

Bara till o fylla på dictionaryt om man vill lägga in fler smileys.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/47776-smileyreplace-funktion