---
title: "Byta ut bokstäver mot bilder"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/107574-byta-ut-bokstäver-mot-bilder/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "magnusfeldth"
published: "2004-07-18T19:36:42.000Z"
updated: "2004-07-19T12:59:23.000Z"
replies: 22
views: 735
page: 2
pages: 2
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/107574-byta-ut-bokstäver-mot-bilder"
---
# Byta ut bokstäver mot bilder
_Sida 2 av 2._
## #21 — Erik Juhlin, 2004-07-19T11:48Z
Så där ja...
```
Function TextToImage(ByVal sString)
Dim sBasePath, i, sLetter, sImg, sNewString
Dim objRegExp
sBasePath = "images/"
For i = 1 To Len(sString)
sLetter = Mid(sString, i, 1)
Select Case Asc(sLetter)
Case 10, 13, 32 'spaces and linebreaks
sImg = sLetter
Case Else
sImg = "![]()
"
End Select
sNewString = sNewString & sImg
Next 'i
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.Pattern = "(<[\s\S]*?>+)(\s|\n|$)"
sNewString = objRegExp.Replace(sNewString, "$1$2")
Set objRegExp = Nothing
TextToImage = sNewString
End Function
```
Slipper en massa case-satser. Istället bara en för att inte replacea radbrytningar och mellanslag.
Den lägger dessutom \ kring hela "ord". Tar dock inte hänsyn till - eller liknande.
Vad de olika siffrorna är kan du se här:
Permalänk: https://www.webforum.nu/p/1391218
## #22 — magnusfeldth, 2004-07-19T12:18Z
Hur får jag in rätt sökväg?
```
sImg = "