---
title: "Byta ut bokstäver mot bilder"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/107574-byta-ut-bokstäver-mot-bilder"
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: 1
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 1 av 2._

## #1 — magnusfeldth, 2004-07-18T19:36Z

En del sajter har ju bilder som bokstäver, med andra ord, de har en a.gif som ett A, b-gif som ett B och så vidare för att kunna skriva ut text från en databas och göra vissa textfält coolare.

En kod man kan använda är tex

```
 <%
Function Smiley(text)

text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")
text = Replace(text,"a","<img src=""a.gif"">")
```

osv...

Mina frågor är tre:
1, finns det nåt enklare sätt att göra detta på än att skriva in hela alfabetet?
2, Var kan jag hitta en lista på alla specialkoder för tecken som Å, Ä, Ö och paranteser och liknande?
3, Finns det nåt sätt man kan göra för att radbryta om ett ord är för långt? (som det är nu hamnar alla bokstäver som är för långt på nästa rad, men jag vill att hela det ordet skall radbrytas)

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

## #2 — M.Cheraghi, 2004-07-18T19:43Z

Svar på tvåan kan jag ge delvis.

Å = & aring;
Ä = & auml;
Ö = & ouml;

(fast det ska inte vara mellanslag mellan & och t.ex ouml;)

Resten kan jag dessvärre inte svaret på, men tyckte det var bra att du tog upp det :) Jag är också intresserad utav svar på dina frågor :) \*Håller tråden under bevakning\*

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

## #3 — icaaq, 2004-07-18T19:54Z

<http://www.webforum.nu/showthread.php?s=&threadid=100138&forumid=148>

mv icaaq

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

## #4 — magnusfeldth, 2004-07-18T20:09Z

Löser den koden problem 3 också? Nån som testat? Kan man skippa vissa bokstäver utan prob? Tex ì kommer jag nog inte använda;)

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

## #5 — Nickemannen, 2004-07-18T20:40Z

Du skulle ju kunna lösa det med en for each loop.

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

## #6 — Sebbe, 2004-07-18T23:19Z

Just nu är jag tyvärr för trött för att "bygga vidare" på Erik Juhlins kod, men jag tror nog att det här ska funka för alla problem. :)

```
str = "Här kan man ju då skriva en text som är över femtio tecken lång, för att demonstrera hur det fungerar."
str = LCase(str)

For i = 1 To Len(str) Step 50 ' 50 = Antalet bokstäver innan radbyte
  strTemp = strTemp & Mid(str, i, 50) & vbCrLf
Next

arr = Split(strTemp, vbCrLf)

For i = 0 To UBound(arr)
  For j = 1 To Len(arr(i))
    strLetter = Mid(arr(i), j, 1)

    Select Case strLetter
      Case "å"
        strImage = "aring.gif"
      Case "ä"
        strImage = "auml.gif"
      Case "ö"
        strImage = "ouml.gif"
      Case Else
        If Asc(strLetter) => 97 AND Asc(strLetter) <= 122 Then strImage = strLetter & ".gif"
    End Select

    If strImage <> "" Then
      Response.Write("<img src=""" & strImage & """>")
    Else
      Response.Write(strLetter)
    End If

    strImage = ""
  Next

  Response.Write("<br>" & vbCrLf)
Next
```

Den där koden gör bara om a-ö till bilder, om du vill ha andra tecken är det bara att lägga till dem i Select Case-satsen. Du fattar säkert hur, eller hur? ;)

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

## #7 — magnusfeldth, 2004-07-19T09:33Z

Koden fungerar bra för att skriva ut bokstäverna, men den bryter fortfarande mitt i ord, tex "fungerar" kan bli 

```
funger
ar
```

... hur löser man det?

Och när det gäller andra tecken, tex punkter och komman och så vidare, kan jag döpa dem till vad som helst och lägga in i select case?

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

## #8 — @nders, 2004-07-19T09:38Z

Det första problemet går säkert att lösa med css, så kika lite i det forumet.

Angående din andra fråga: Jajjenutt! :)

Mvh

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

## #9 — magnusfeldth, 2004-07-19T10:46Z

Tyvärr, jag kan inte hitta nåt bra om radbrytning, har sökt både i asp-forumet och css-forumet...

Dessutom, hur gör jag " och / får lite prob med dem...

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

## #10 — @nders, 2004-07-19T10:51Z

```
Case """" ' citationstecken
     strImage="citat.gif"
Case "/"
     strImage="slash.gif"
```

Eller vad var det du menade?

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

## #11 — magnusfeldth, 2004-07-19T10:56Z

Thanks, nu fungerar citattecknet (och snedstreck som jag hade råkat stava fel till bildfilen på)...

Nu återstår bara radbrytningen :)

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

## #12 — Jesper T, 2004-07-19T11:00Z

/r :r

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

## #13 — Jesper T, 2004-07-19T11:01Z

```
<span style="white-space: nowrap">Dina bokstäver</span>
```

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

## #14 — magnusfeldth, 2004-07-19T11:06Z

> **Jesper T skrev:**
>
> ```
> <span style="white-space: nowrap">Dina bokstäver</span>
> ```

Var ska jag sätta in det här? Före och efter koden? :q

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

## #15 — Jesper T, 2004-07-19T11:08Z

Tänk lite... ;)

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

## #16 — Jesper T, 2004-07-19T11:09Z

Gissa?:
a.\<%asp%\> \<span style="white-space: nowrap"\>Dina bokstäver\</span\>
b.\<span style="white-space: nowrap"\>Dina bokstäver\</span\>\<%asp%\>
c.\<span style="white-space: nowrap"\>\<%asp%\>\</span\>
  :bla  :e  ;)

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

## #17 — magnusfeldth, 2004-07-19T11:12Z

well, jag testade c, men det fungerar icke för mig... :(

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

## #18 — Jesper T, 2004-07-19T11:18Z

Och som vanligt:
Vad fungerar inte?
Hur ser koden ut?

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

## #19 — magnusfeldth, 2004-07-19T11:22Z

kod: 

```
<span style="white-space: nowrap">
                 <% str = "Här kan man ju då skriva en text som är över femtio tecken långé|:/=, för att demonstrera hur det fungerar.123456 ()>-+"
str = LCase(str)

For i = 1 To Len(str) Step 32 ' 32 = Antalet bokstäver innan radbyte
  strTemp = strTemp & Mid(str, i, 32) & vbCrLf
Next

arr = Split(strTemp, vbCrLf)

For i = 0 To UBound(arr)
  For j = 1 To Len(arr(i))
    strLetter = Mid(arr(i), j, 1)

    Select Case strLetter
      Case "å"
        strImage = "images/letters/aring.gif"
      Case "ä"
        strImage = "images/letters/auml.gif"
      Case "ö"
        strImage = "images/letters/ouml.gif"
      Case "!"
        strImage = "images/letters/utrop.gif"
      Case "?"
        strImage = "images/letters/fraga.gif"
      Case "#"
        strImage = "images/letters/number.gif"
      Case "."
        strImage = "images/letters/punkt.gif"
      Case ","
        strImage = "images/letters/komma.gif"
      Case "+"
        strImage = "images/letters/plus.gif"
      Case "-"
        strImage = "images/letters/streck.gif"
      Case "<"
        strImage = "images/letters/hakvanster.gif"
      Case ">"
        strImage = "images/letters/hakhoger.gif"
      Case "("
        strImage = "images/letters/parantesvanster.gif"
      Case ")"
        strImage = "images/letters/paranteshoger.gif"
      Case "["
        strImage = "images/letters/hakparantesvanster.gif"
      Case "]"
        strImage = "images/letters/hakparanteshoger.gif"
      Case "0"
        strImage = "images/letters/0.gif"
      Case "1"
        strImage = "images/letters/1.gif"
      Case "2"
        strImage = "images/letters/2.gif"
      Case "3"
        strImage = "images/letters/3.gif"
      Case "4"
        strImage = "images/letters/4.gif"
      Case "5"
        strImage = "images/letters/5.gif"
      Case "6"
        strImage = "images/letters/6.gif"
      Case "7"
        strImage = "images/letters/7.gif"
      Case "8"
        strImage = "images/letters/8.gif"
      Case "9"
        strImage = "images/letters/9.gif"
      Case "é"
        strImage = "images/letters/accente.gif"
      Case "/"
        strImage = "images/letters/snedstreck.gif"
      Case "\"
        strImage = "images/letters/backslash.gif"
      Case "%"
        strImage = "images/letters/procent.gif"
      Case "*"
        strImage = "images/letters/star.gif"
      Case "'"
        strImage = "images/letters/accent.gif"
      Case "="
        strImage = "images/letters/likamed.gif"
      Case ":"
        strImage = "images/letters/kolon.gif"
      Case ";"
        strImage = "images/letters/semikolon.gif"
      Case "|"
        strImage = "images/letters/raktstreck.gif"
      Case """" 
        strImage = "images/letters/citat.gif"
      Case Else
        If Asc(strLetter) => 97 AND Asc(strLetter) <= 122 Then strImage = "images/letters/" & strLetter & ".gif"
    End Select

    If strImage <> "" Then
      Response.Write("<img src=""" & strImage & """>")
    Else
      Response.Write(strLetter)
    End If

    strImage = ""
  Next

  Response.Write("<br>" & vbCrLf)
Next%></span>
```

Fel: ingen skillnad från tidigare, alltså att den radbryter mitt i ord, och jag vill att hela ord skall vara intakta - ordet "fungerar" skall alltså inte brytas så att det står "funger" på ena raden och "ar" på andra raden...

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

## #20 — Erik Juhlin, 2004-07-19T11:30Z

Man får väl gå in och styra upp det här... :OO

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/107574-byta-ut-bokstäver-mot-bilder  
Nästa sida: https://www.webforum.nu/amne/asp/107574-byta-ut-bokstäver-mot-bilder/page2.md