---
title: "En fråga!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/56418-en-fråga"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Firegamez.com"
published: "2002-10-18T16:21:05.000Z"
updated: "2002-10-19T10:43:30.000Z"
replies: 2
views: 166
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/56418-en-fråga"
---

# En fråga!

## #1 — Firegamez.com, 2002-10-18T16:21Z

Tja! När man trycker på en knapp så kommer en smilie i en text ruta! Typ som i webf! Men om man tar på Ändra tråd sen så står det \[ IMG \]Genväg till bilden\[ /IMG \] Utan mellan rummen! Men hur gör jag för att få bort det??? Har 2 filer om det formatfunktion.asp och rev_formatfunktion! Vet inte vilken jag ska ta så jag tar den första! Säg till om ni vill se den andra! 

```
<%Function FormatText(sIn)
	Dim charPos, sOut, curChar, urlChar, urlPos, urlString, imgChar, imgPos, imgString, smilebit
	
	For charPos = 1 To Len(sIn)
		curChar = Mid(sIn, charPos, 1)
		if mid(sIn, charPos, 5) = "[img]" then
			sOut = sOut + "<img src="""
			charPos = charPos + 5
			imgString = ""
			imgChar = ""
			imgPos = charPos
			do until mid(sIn, imgPos, 6) = "[/img]"
				imgChar = mid(sIn, imgPos, 1)
				imgString = imgString + imgChar
				imgPos = imgPos + 1
				if imgPos > len(sIn) then
					sOut = sOut + imgString + """>"
					exit for
				end if
			loop
			imgString = left(imgString, len(imgString))
			sOut = sOut + imgString + """>"
			charPos = charpos + (imgPos - charPos + 5)
		'convert anything starting with http:// or www. to a link
		elseif (mid(sIn, charPos, 7) = "http://") or (mid(sIn, charPos, 4) = "www.") then
			sOut = sOut + "<a href=""http://"
			if mid(sIn, charPos, 7) = "http://" then
				charPos = charPos + 7
			end if
			urlString = ""
			urlChar = ""
			urlPos = charPos
			do until (urlChar = " ") or (urlChar = chr(13)) or (urlChar = "[")
				urlChar = mid(sIn, urlPos, 1)
				urlString = urlString + urlChar
				if urlChar = ":" or urlChar = "&gt;" then
					smilebit = mid(sIn, urlPos+1, 1)
					if not IsNumeric(smilebit) then
						urlPos = urlPos + 1
						exit do
					end if
				elseif urlChar = "8" then
					if mid(sIn, urlPos+1, 2) = "-o" or mid(sIn, urlPos+1, 2) = "-O" or mid(sIn, urlPos+1, 1) = "o" or mid(sIn, urlPos+1, 1) = "O" then
						urlPos = urlPos + 1
						exit do
					end if
				end if
				urlPos = urlPos + 1
				if urlPos > len(sIn) then
					sOut = sOut + urlString + """ target=""_blank"">" + urlString + "</a>"
					exit for
				end if
			loop
			urlString = left(urlString, len(urlString)-1)
			
			sOut = sOut + urlString + """ target=""_blank"">" + urlString + "</a>"
			charPos = charpos + (urlPos - charPos - 2)
		else
			sOut = sOut + curChar
		end if
	Next
	
    sOut = Replace(sOut, "&gt;:-&gt;", "<img src=""images/pb_smiley_evil.gif"" align=""middle"" alt=""Elak"">")
	sOut = Replace(sOut, "8-)", "<img src=""images/pb_smiley_cool.gif"" align=""middle"" alt=""CooL 8-)"">")
	sOut = Replace(sOut, "X-(", "<img src=""images/pb_smiley_dead.gif"" align=""middle"" alt=""DöD X-("">")
	sOut = Replace(sOut, ":*", "<img src=""images/pb_smiley_kisses.gif"" align=""middle"" alt=""Puss :*"">")
	sOut = Replace(sOut, ":?", "<img src=""images/pb_smiley_question.gif"" align=""middle"" alt=""Frågar :?"">")
	sOut = Replace(sOut, vbcrlf, "<br>")
	sOut = Replace(sOut, "&gt;:(", "<img src=""images/pb_smiley_angry.gif"" align=""middle"" alt=""arg"">")
	sOut = Replace(sOut, "&gt;:-(", "<img src=""images/pb_smiley_angry.gif"" align=""middle"" alt=""arg"">")
	sOut = Replace(sOut, "8o", "<img src=""images/pb_smiley_shocked.gif"" align=""middle"" alt=""shockad 8O"">")
	sOut = Replace(sOut, "8O", "<img src=""images/pb_smiley_shocked.gif"" align=""middle"" alt=""shockad 8O"">")
	sOut = Replace(sOut, "8-o", "<img src=""images/pb_smiley_shocked.gif"" align=""middle"" alt=""shockad 8O"">")
	sOut = Replace(sOut, "8-O", "<img src=""images/pb_smiley_shocked.gif"" align=""middle"" alt=""shockad 8O"">")
	sOut = Replace(sOut, ":)", "<img src=""images/pb_smiley_happy.gif"" align=""middle"" alt=""Glad :)"">")
	sOut = Replace(sOut, ":-)", "<img src=""images/pb_smiley_happy.gif"" align=""middle"" alt=""Glad :)"">")
	sOut = Replace(sOut, ":(", "<img src=""images/pb_smiley_sad.gif"" align=""middle"" alt=""Ledsen :("">")
	sOut = Replace(sOut, ":-(", "<img src=""images/pb_smiley_sad.gif"" align=""middle"" alt=""Ledsen :("">")
	sOut = Replace(sOut, ":D", "<img src=""images/pb_smiley_laugh.gif"" align=""middle"" alt=""Skrattar :D"">")
	sOut = Replace(sOut, ":-D", "<img src=""images/pb_smiley_laugh.gif"" align=""middle"" alt=""Skrattar :D"">")
	sOut = Replace(sOut, ":p", "<img src=""images/pb_smiley_razz.gif"" align=""middle"" alt=""Lipar :p"">")
	sOut = Replace(sOut, ":-p", "<img src=""images/pb_smiley_razz.gif"" align=""middle"" alt=""Lipar :p"">")
	sOut = Replace(sOut, ";)", "<img src=""images/pb_smiley_wink.gif"" align=""middle"" alt=""Blinkar ;)"">")
	sOut = Replace(sOut, ";-)", "<img src=""images/pb_smiley_wink.gif"" align=""middle"" alt=""Blinkar :)"">")
	sOut = Replace(sOut, "[b]", "<b>")
	sOut = Replace(sOut, "[/b]", "</b>")
	sOut = Replace(sOut, "[i]", "<i>")
	sOut = Replace(sOut, "[/i]", "</i>")
	sOut = Replace(sOut, "[u]", "<u>")
	sOut = Replace(sOut, "[/u]", "</u>")
	sOut = Replace(sOut, "[citat]", "<blockquote><font face=""verdana,arial,helvetica"" size=""1"">Citat</font><hr>")
	sOut = Replace(sOut, "[/citat]", "<hr></blockquote>")
	sOut = Replace(sOut, "</blockquote><br><br><br>", "</blockquote>")
	sOut = Replace(sOut, "</blockquote><br><br>", "</blockquote>")
	sOut = Replace(sOut, "</blockquote><br>", "</blockquote>")
	
	FormatText = sOut
End Function
%>
```

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

## #2 — Firegamez.com, 2002-10-18T19:43Z

Är det ingen som vet?!?!?!?!

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

## #3 — G8, 2002-10-19T10:43Z

[Tips](http://www.webforum.nu/showthread.php?s=&threadid=55116) 

Sätt smileyreplace funktionen på sidan där texten visas istället för att skriva in sökväg etc. i databasen...

//G8

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/56418-en-fråga