text till bilder

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?

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? :)

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

dictionary? hur funkar?

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