---
title: "Bytt ut bokstäver till bilder"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38095-bytt-ut-bokstäver-till-bilder"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "skarbratt"
published: "2000-07-19T08:05:00.000Z"
updated: "2000-07-19T08:05:00.000Z"
replies: 0
views: 860
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/38095-bytt-ut-bokstäver-till-bilder"
---

# Bytt ut bokstäver till bilder

## #1 — skarbratt, 2000-07-19T08:05Z

```
'Katalogen där du lägger bilderna i.
dir = "tecken/"
'specialtecken som skall vara godkända.
sstr=" .,!?"
'Texten som skall omvandlas
text = "Din, textsträng som du vill översätta"
For i = 1 To Len(text)

'Om du använder dig av andra tecken typ ,.?! så måste du döpa dem till tex tecken1.gif, etc.
If instr(sstr,Mid(text,i,1))> 0 then
	tmpstr = tmpstr & "<IMG SRC='"&dir&"tecken" & instr(sstr,Mid(text,i,1)) & ".gif'>" & vbCrLf
Else 
	tmpstr = tmpstr & "<IMG SRC='"&dir& Mid(text,i,1)&".gif'>" & vbCrLf
End If

Next

text = tmpstr

Response.Write(text)
%>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/38095-bytt-ut-bokstäver-till-bilder