---
title: "text till bilder"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/157456-text-till-bilder"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "room"
published: "2007-02-22T09:53:14.000Z"
updated: "2007-02-22T10:44:22.000Z"
replies: 3
views: 318
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/157456-text-till-bilder"
---

# text till bilder

## #1 — room, 2007-02-22T09:53Z

Hejsan.. Har nu sökt igenom forumet och hittat massor av varianter att ersätta text mot bilder. Men ingen som passar för mitt ändamål.

Jag vill ha en funktion som t ex ersätter a till \_a.gif och A till a.gif. Altså olika för små resp. stora bokstäver.

Jag vill även att tecken som  ! " # % & ( ) ersätts mot de bilder jag gjort och de heter ju då t ex: exlamation.gif, lparen.gif osv.

Någon som har en funktion för ovanstående eller kan med några rader skriva om den jag använder (som enbart ersätter allt till stora bokstäver)

```
Function bildtext(bytText) 
		For i = 1 To Len(bytText)
			Response.Write "<img src=dao/fonts/" & Mid(bytText,i,1) & ".gif>"
		Next
		bildtext = bytText 
	End Function
```

Någon?

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

## #2 — @nders, 2007-02-22T09:57Z

Kanske kan fjunka:

```
		For i = 1 To Len(bytText)
			sLetter = Mid(bytText,i,1)
			sImageName = sLetter
			if lcase(sLetter) = sLetter then
				' lower case
				sImageName = "_" & sLetter
			end if
			Response.Write "<img src=dao/fonts/" & sLetter & ".gif>"
		Next
```

Specialtecknen får du nog göra någon if-sats för, kanske med en smidig array, eller ett dictionary? :)

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

## #3 — room, 2007-02-22T10:09Z

japps det funkade finfint.. Förutom att jag fick byta ut sLetter mot sImageName  på Response.Write raden :).

dictionary? hur funkar?

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

## #4 — @nders, 2007-02-22T10:44Z

> Förutom att jag fick byta ut sLetter mot sImageName på Response.Write raden

Såklart, blev lite snabbskrivet där. :)

> dictionary? hur funkar?

Prova något sånt härnt:

```
set objDict = Server.CreateObject("Scripting.Dictionary")
objDict.Add "!", "exclamation.gif"
objDict.Add "#", "hash.gif"

		For i = 1 To Len(bytText)
			sLetter = Mid(bytText,i,1)
			sImageName = sLetter & ".gif"
			if objDict.Exists(sLetter) then
				sImageName = objDict(sLetter)
			else
				if lcase(sLetter) = sLetter then
					' lower case
					sImageName = "_" & sLetter
				end if
			end if
			Response.Write "<img src=dao/fonts/" & sImageName & ">"
		Next
		
 
 set objDict = Nothing
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/157456-text-till-bilder