---
title: "Inga smileys mellan [kod] och [/kod]"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/63935-inga-smileys-mellan-kod-och-kod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ampy"
published: "2003-01-06T00:09:35.000Z"
updated: "2005-09-09T06:54:33.000Z"
replies: 4
views: 1079
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/63935-inga-smileys-mellan-kod-och-kod"
---

# Inga smileys mellan [kod] och [/kod]

## #1 — ampy, 2003-01-06T00:09Z

Har denna funktion:

```
Function Free(txt)
	txt = Replace(txt, ":)", "<img src=""smileys/smile.gif"">")
	txt = Replace(txt, ":D", "<img src=""smileys/biggrin.gif"">")
	txt = Replace(txt, ";)", "<img src=""smileys/wink.gif"">")
	txt = Replace(txt, ":P", "<img src=""smileys/tongue.gif"">")
	txt = Replace(txt, ":o", "<img src=""smileys/oh.gif"">")
	txt = Replace(txt, ":@", "<img src=""smileys/angry.gif"">")
	txt = Replace(txt, ":x", "<img src=""smileys/dead.gif"">")
	txt = Replace(txt, ":s", "<img src=""smileys/devil.gif"">")
	txt = Replace(txt, ":(", "<img src=""smileys/frown.gif"">")
	txt = Replace(txt, ":&amp;", "<img src=""smileys/clown.gif"">") 

	txt = Replace(txt, "[kod ]", "Kod:<hr color='#999999' width='100%'><font color='#AA0404'>")
	txt = Replace(txt, "[/kod ]", "</font><hr color='#999999' width='100%'>")

        free = txt
End Function
```

Nu om man skriver tex:

\[ kod\] :) 

så blir det en smileygubbe i koden.

Hur ska man göra så att den inte omvandlar :) till en smileybild mellan kod-taggarna?

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

## #2 — Denniz PoP, 2003-01-06T02:36Z

Finns självklart andra sätt, men:

Först, se om \[ kod\] samt  finns med i koden och kolla även vart \[ kod\] är och vart  är. Kontrollera sedan vart din smilie är Är den mellan så skall den inte göras om.

Finns som sagt säker andra lösningar, men denna var den första jag kunde komma på iaf.

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

## #3 — ampy, 2003-02-28T21:31Z

Hmm, tror det blir rätt så krångligt med den lösningen, finns det ingen smartare lösning?  :q

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

## #4 — Denkan, 2003-03-01T11:53Z

**Denna söta funktion funkar ganska bra : )** 

```
<% 
Function orderFunc(str,done)
sW = "[ kod]"
eW = "[ /kod]"

sPos = InStr(LCase(str),sW)
	If sPos > 0 Then
	mStr = Mid(str, sPos+Len(sW))
	ePos = InStr(LCase(mStr),eW)
		If ePos > 0 Then
		p1 = Left(str, sPos-1)
		p2 = Left(mStr,ePos-1)
		p3 = Right(str,Len(str)-Len(p1)-Len(p2)-Len(sW)-Len(eW))
		End If
	End If

If p2 <> "" Then
orderFunc = orderFunc(p3,done&Free(p1)&p2)
Else
orderFunc = done & Free(str)
End if
End Function

Function Free(txt)
	txt = Replace(txt, ":)", "<img src=""smileys/smile.gif"">")
	txt = Replace(txt, ":D", "<img src=""smileys/biggrin.gif"">")
	txt = Replace(txt, ";)", "<img src=""smileys/wink.gif"">")
	txt = Replace(txt, ":P", "<img src=""smileys/tongue.gif"">")
	txt = Replace(txt, ":o", "<img src=""smileys/oh.gif"">")
	txt = Replace(txt, ":@", "<img src=""smileys/angry.gif"">")
	txt = Replace(txt, ":x", "<img src=""smileys/dead.gif"">")
	txt = Replace(txt, ":s", "<img src=""smileys/devil.gif"">")
	txt = Replace(txt, ":(", "<img src=""smileys/frown.gif"">")
	txt = Replace(txt, ":&", "<img src=""smileys/clown.gif"">") 

   free = txt
End Function
%>
```

För att anropa funktionen: **orderFunc("din sträng","")**

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

## #5 — ptr_lks, 2005-09-09T06:54Z

1. i samband med att inlägget skrivs så skriver jag tex : 

   ```
   :-)
   ```
2. I gästboken visas som en smily-gubbe

1. jag har ett "gäng" med smilysar
2. när jag skriver inlägget så klickar jag på lämplig "gubbe"
3. den gubben visas i gästboken

 
Är detta görlig?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/63935-inga-smileys-mellan-kod-och-kod