---
title: "Replejsa text med grafik-bugg"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/44407-replejsa-text-med-grafik-bugg"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "daPhil"
published: "2002-05-23T12:59:54.000Z"
updated: "2002-05-24T11:52:50.000Z"
replies: 9
views: 389
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/44407-replejsa-text-med-grafik-bugg"
---
# Replejsa text med grafik-bugg
## #1 — daPhil, 2002-05-23T12:59Z
Hej, jag har skrivit en funktion som ersätter bokstäver med motsvarande .gif bild. Det går utmärkt med de stora bokstäverna, men när det kommer till de små funkar det inte, det blir en evil-loop eftersom ASP scriptet vill ersätta tecknen som utgör html koden för varje .gif bild (src taggen etc) här kommer funktionen...
```
<%@ CODEPAGE = 10000%>
<%
Function ReplaceCommon(text)
A = Replace(text, "A", "
")
B = Replace(A, "B", "
")
C = Replace(B, "C", "
")
D = Replace(C, "D", "
")
E = Replace(D, "E", "
")
F = Replace(E, "F", "
")
G = Replace(F, "G", "
")
H = Replace(G, "H", "
")
I = Replace(H, "I", "
")
J = Replace(I, "J", "
")
K = Replace(J, "K", "
")
L = Replace(K, "L", "
")
M = Replace(L, "M", "
")
N = Replace(M, "N", "
")
O = Replace(N, "O", "
")
P = Replace(O, "P", "
")
Q = Replace(P, "Q", "
")
R = Replace(Q, "R", "
")
S = Replace(R, "S", "
")
T = Replace(S, "T", "
")
U = Replace(T, "U", "
")
V = Replace(U, "V", "
")
W = Replace(V, "W", "
")
X = Replace(W, "X", "
")
Y = Replace(X, "Y", "
")
Z = Replace(Y, "Z", "
")
AOb = Replace(Z, "Å", "
")
AEb = Replace(AOb, "Ä", "
")
OEb = Replace(AEb, "Ö", "
")
a = Replace(OEb, "a", "
")
b = Replace(a, "b", "
")
c = Replace(b, "c", "
")
d = Replace(c, "d", "
")
e = Replace(d, "e", "
")
f = Replace(e, "f", "
")
g = Replace(f, "g", "
")
h = Replace(g, "h", "
")
i = Replace(h, "i", "
")
j = Replace(i, "j", "
")
k = Replace(j, "k", "
")
l = Replace(k, "l", "
")
m = Replace(l, "m", "
")
n = Replace(m, "n", "
")
o = Replace(n, "o", "
")
p = Replace(o, "p", "
")
q = Replace(p, "q", "
")
r = Replace(q, "r", "
")
s = Replace(r, "s", "
")
t = Replace(s, "t", "
")
u = Replace(t, "u", "
")
v = Replace(u, "v", "
")
w = Replace(v, "w", "
")
x = Replace(w, "x", "
")
y = Replace(x, "y", "
")
z = Replace(y, "z", "
")
AOs = Replace(z, "å", "
")
AEs = Replace(AOs, "ä", "
")
OEs = Replace(AEs, "ö", "
")
ReplaceCommon = OEs
End Function
%>
```
Någon som vet nått smartare sätt att göra detta? Codepage 10000 har jag för att jag kodar på Mac, så bry er inte om det.
Permalänk: https://www.webforum.nu/p/44407
## #2 — LAMP, 2002-05-23T13:44Z
En smartare lösning hade varit att göra någon pattern i regular expressions. Tyvärr är jag ingen hödare på reg exp, men flera andra här på wF är. Borde du inte skicka in **text** i samtliga replacevillkor?
Permalänk: https://www.webforum.nu/p/681082
## #3 — voigtann1, 2002-05-23T13:54Z
vänta lite så ska jag se om jag kan göra något åt dej
Permalänk: https://www.webforum.nu/p/681091
## #4 — voigtann1, 2002-05-23T14:01Z
```
<%
Function ReplaceCommon(f2)
Set objRegExp = New regexp
objRegExp.Global = true
f2 = Server.HTMLEncode(f2)
objRegExp.Pattern = "([a-z])"
f2 = objRegExp.Replace(f2,"
")
objRegExp.Pattern = "([A-Z])"
f2 = objRegExp.Replace(f2,"
")
ReplaceCommon = f2
End Function
%>
```
så.. får inte å ä ö saken att fungera med tanken av att den vill ersätta OEa och dom till bilder... någon annan vet kanske detta?
Permalänk: https://www.webforum.nu/p/681095
## #5 — Quazzo, 2002-05-23T14:49Z
Hmm...inte för att vara sådan, men tar inte detta mycket prestanda från servern ? Har du möjlighet eller så kör med en komponent istället.
Permalänk: https://www.webforum.nu/p/681133
## #6 — pirro, 2002-05-23T15:49Z
i övrigt så kan man använda
text = Replace(text,"bokstav","\ till bild text (bra till räknare &Community).
Permalänk: https://www.webforum.nu/p/681375
## #10 — daPhil, 2002-05-24T11:52Z
...och här kan man prova hur det funkar:
Dock ej med siffror, har ej orkat göra några..
Permalänk: https://www.webforum.nu/p/681441
---
Tråden på webben: https://www.webforum.nu/amne/asp/44407-replejsa-text-med-grafik-bugg