---
title: "byta text mot bilder"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/102345-byta-text-mot-bilder"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Meng"
published: "2004-04-26T10:00:21.000Z"
updated: "2004-04-27T08:07:02.000Z"
replies: 18
views: 443
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/102345-byta-text-mot-bilder"
---
# byta text mot bilder
## #1 — Meng, 2004-04-26T10:00Z
Om jag har t ex texten "Oskar fyller 23 idag" i versions fältet i databasen och vill byta alla O till o_pixel.gif och alla 2 till 2_pixel.gif ... har gjort hela alfabetet.. hur kan jag skriva funtionen till detta?
Något sånt här?
'Dela upp i bokstäver
'Fortsätt till EOF
\
\_pixel.gif"\>
'bla bla
?
Permalänk: https://www.webforum.nu/p/102345
## #2 — Mika3l, 2004-04-26T10:07Z
Så här kanske? :)
```
Function fixatecken(str)
str = Replace(str,"a","![]()
")
'fixa för alla bokstäver
fixatecken = str
End Function
Response.Write(fixatecken("Texten här"))
```
Borde ju gå att lösa på något smidigare sätt m.h.a For Each men jag kan inte komma på riktigt hur för tillfället. ;)
Permalänk: https://www.webforum.nu/p/1333595
## #3 — PDahlen, 2004-04-26T10:22Z
Fast nu skickar du tillbaka samma sträng som du skickade in. Det är a du ska skicka tillbaka eftersom det är den strängen som får den replacade str variabeln.
```
Function fixatecken(str)
a = Replace(str,"a","![]()
")
'fixa för alla bokstäver
fixatecken = a
End Function
Response.Write(fixatecken("Texten här"))
```
Permalänk: https://www.webforum.nu/p/1333600
## #4 — Mika3l, 2004-04-26T10:26Z
Sorry, skrev fel i koden! Ska redigera! :)
Permalänk: https://www.webforum.nu/p/1333602
## #5 — Meng, 2004-04-26T10:30Z
hum får det inte riktigt till att funka, vad gör jag fel? =)
```
<% strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& _
Server.MapPath("../databas/version.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
objConn.open strConnect
SQL = "SELECT * FROM info"
rs.Open SQL, objConn %>
<% Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../databas/version.mdb")
Function fixatecken(str)
a = Replace(str,"a","![]()
")
b = Replace(str,"b","![]()
")
c = Replace(str,"c","![]()
")
d = Replace(str,"d","![]()
")
e = Replace(str,"e","![]()
")
f = Replace(str,"f","![]()
")
g = Replace(str,"g","![]()
")
h = Replace(str,"h","![]()
")
i = Replace(str,"i","![]()
")
j = Replace(str,"j","![]()
")
k = Replace(str,"k","![]()
")
l = Replace(str,"l","![]()
")
m = Replace(str,"m","![]()
")
n = Replace(str,"n","![]()
")
o = Replace(str,"o","![]()
")
u = Replace(str,"u","![]()
")
p = Replace(str,"p","![]()
")
q = Replace(str,"q","![]()
")
r = Replace(str,"r","![]()
")
s = Replace(str,"s","![]()
")
t = Replace(str,"t","![]()
")
v = Replace(str,"v","![]()
")
w = Replace(str,"w","![]()
")
fixatecken = a
fixatecken = b
fixatecken = c
fixatecken = d
fixatecken = e
fixatecken = f
fixatecken = g
fixatecken = h
fixatecken = i
fixatecken = j
fixatecken = k
fixatecken = l
fixatecken = m
fixatecken = n
fixatecken = o
fixatecken = p
fixatecken = q
fixatecken = r
fixatecken = s
fixatecken = t
fixatecken = v
fixatecken = w
End Function%>
<%=fixatecken(RS("version"))%>
<%Conn.Close
Set Conn = Nothing%>
```
Permalänk: https://www.webforum.nu/p/1333607
## #6 — Mika3l, 2004-04-26T10:35Z
Se min redigerade kod. ;)
Permalänk: https://www.webforum.nu/p/1333610
## #7 — Meng, 2004-04-26T10:41Z
Fråga mig inte vad som hände men när jag kör denna koden så krashar ie och öppnar exel och försöker imortera som också krashar.. =) vad händer?!
```
Function fixatecken(str)
str = Replace(str,"a","![]()
")
str = Replace(str,"b","![]()
")
str = Replace(str,"c","![]()
")
str = Replace(str,"d","![]()
")
str = Replace(str,"e","![]()
")
str = Replace(str,"f","![]()
")
str = Replace(str,"g","![]()
")
str = Replace(str,"h","![]()
")
str = Replace(str,"i","![]()
")
str = Replace(str,"j","![]()
")
str = Replace(str,"k","![]()
")
str = Replace(str,"l","![]()
")
str = Replace(str,"m","![]()
")
str = Replace(str,"n","![]()
")
str = Replace(str,"o","![]()
")
str = Replace(str,"u","![]()
")
str = Replace(str,"p","![]()
")
str = Replace(str,"q","![]()
")
str = Replace(str,"r","![]()
")
str = Replace(str,"s","![]()
")
str = Replace(str,"t","![]()
")
str = Replace(str,"v","![]()
")
str = Replace(str,"w","![]()
")
str = Replace(str,"x","![]()
")
str = Replace(str,"y","![]()
")
str = Replace(str,"0","![]()
")
str = Replace(str,"1","![]()
")
str = Replace(str,"2","![]()
")
str = Replace(str,"3","![]()
")
str = Replace(str,"4","![]()
")
str = Replace(str,"5","![]()
")
str = Replace(str,"6","![]()
")
str = Replace(str,"7","![]()
")
str = Replace(str,"8","![]()
")
str = Replace(str,"9","![]()
")
fixatecken = str
End Function%>
<%=fixatecken(RS("version"))%>
```
Permalänk: https://www.webforum.nu/p/1333615
## #8 — Mika3l, 2004-04-26T10:43Z
Jadu, jag har då ingen aning om varför Excel körs igång och det kraschar, låter gaaaanska märkligt! :e
Permalänk: https://www.webforum.nu/p/1333616
## #9 — Meng, 2004-04-26T10:47Z
men koden måste ju vara helt galen ju, kan man inte bara säga, gör en bild per bokstav och sen köra
\![]()
\_pixel.gif"\>
?
Permalänk: https://www.webforum.nu/p/1333618
## #10 — Jesper T, 2004-04-26T11:06Z
Permalänk: https://www.webforum.nu/p/1333631
## #11 — Erik Juhlin, 2004-04-26T11:42Z
Nu gör ni så här och håller tyst sen! :p
Permalänk: https://www.webforum.nu/p/1333643
## #12 — Meng, 2004-04-26T11:45Z
haha erik, jag pallar inte göra fler bilder eller döpa om dem :p
Kör på OverRides istället men hur ska jag skriva denna för att den ska fungera.. kan inte allt vad som gäller ' " ' " ' " '" osv..
```
response.write obj.CharToImg("Replace(RS("version"),vbCrLf,"
"))")
```
Permalänk: https://www.webforum.nu/p/1333647
## #13 — Meng, 2004-04-26T11:47Z
fixade det nu :birp
```
response.write obj.CharToImg(Replace(RS("version"),vbCrLf,"
"))
```
Permalänk: https://www.webforum.nu/p/1333648
## #14 — Erik Juhlin, 2004-04-26T11:50Z
Haha lyssnar du på OveRRidE, den nollan! :p
```
Response.Write Replace(obj.CharToImg(RS("version").Value), vbCrLf, "
")
```
Permalänk: https://www.webforum.nu/p/1333654
## #15 — Erik Juhlin, 2004-04-26T11:50Z
Prova att lägga in en radbrytning så får du se roliga effekter... :)
Permalänk: https://www.webforum.nu/p/1333655
## #16 — Meng, 2004-04-26T12:38Z
Haha jo jag märkte det, men de va ju inte så "roliga effekter" :p ända som hände va ju att det stog \ istället. men tack "ybergurun" på asp :p
Permalänk: https://www.webforum.nu/p/1333688
## #17 — Meng, 2004-04-26T12:54Z
Hur gör jag så det blir en \
\ det är radbrytning, för annars ligger texten kloss mot varandra för jag klantat mig när jag gjort bilderna..
Permalänk: https://www.webforum.nu/p/1333705
## #18 — Erik Juhlin, 2004-04-27T06:52Z
```
Response.Write Replace(obj.CharToImg(RS("version").Value), vbCrLf, "![]()
")
```
Permalänk: https://www.webforum.nu/p/1334165
## #19 — Meng, 2004-04-27T08:07Z
Haha Erik Juhlin gjorde ett fel! :birp :birp :birp
måste ha \ innan också ju annars trycker bilden bara ut kanten ju..
```
Response.Write Replace(obj.CharToImg(RS("version").Value), vbCrLf, "
")
```
Tack ändå men jag kom på det själv precis efter jag skrivit här som vanligt, sover nog för lite ;)
Permalänk: https://www.webforum.nu/p/1334183
---
Tråden på webben: https://www.webforum.nu/amne/asp/102345-byta-text-mot-bilder