Replejsa text med grafik-bugg

9 svar · 368 visningar · startad av daPhil 23 maj 2002

daPhilMedlem sedan apr. 2001151 inlägg

Frågan23 maj 2002 12:59#1

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", "<img src=img/commonletters/Abig.gif>")
	B = Replace(A, "B", "<img src=img/commonletters/Bbig.gif>")
	C = Replace(B, "C", "<img src=img/commonletters/Cbig.gif>")
	D = Replace(C, "D", "<img src=img/commonletters/Dbig.gif>")
	E = Replace(D, "E", "<img src=img/commonletters/Ebig.gif>")
	F = Replace(E, "F", "<img src=img/commonletters/Fbig.gif>")
	G = Replace(F, "G", "<img src=img/commonletters/Gbig.gif>")
	H = Replace(G, "H", "<img src=img/commonletters/Hbig.gif>")
	I = Replace(H, "I", "<img src=img/commonletters/Ibig.gif>")
	J = Replace(I, "J", "<img src=img/commonletters/Jbig.gif>")
	K = Replace(J, "K", "<img src=img/commonletters/Kbig.gif>")
	L = Replace(K, "L", "<img src=img/commonletters/Lbig.gif>")
	M = Replace(L, "M", "<img src=img/commonletters/Mbig.gif>")
	N = Replace(M, "N", "<img src=img/commonletters/Nbig.gif>")
	O = Replace(N, "O", "<img src=img/commonletters/Obig.gif>")
	P = Replace(O, "P", "<img src=img/commonletters/Pbig.gif>")
	Q = Replace(P, "Q", "<img src=img/commonletters/Qbig.gif>")
	R = Replace(Q, "R", "<img src=img/commonletters/Rbig.gif>")
	S = Replace(R, "S", "<img src=img/commonletters/Sbig.gif>")
	T = Replace(S, "T", "<img src=img/commonletters/Tbig.gif>")
	U = Replace(T, "U", "<img src=img/commonletters/Ubig.gif>")
	V = Replace(U, "V", "<img src=img/commonletters/Vbig.gif>")
	W = Replace(V, "W", "<img src=img/commonletters/Wbig.gif>")
	X = Replace(W, "X", "<img src=img/commonletters/Xbig.gif>")
	Y = Replace(X, "Y", "<img src=img/commonletters/Ybig.gif>")
	Z = Replace(Y, "Z", "<img src=img/commonletters/Zbig.gif>")
	AOb = Replace(Z, "Å", "<img src=img/commonletters/AObig.gif>")
	AEb = Replace(AOb, "Ä", "<img src=img/commonletters/AEbig.gif>")
	OEb = Replace(AEb, "Ö", "<img src=img/commonletters/OEbig.gif>")
	
	a = Replace(OEb, "a", "<img src=img/commonletters/Asmall.gif>")
	b = Replace(a, "b", "<img src=img/commonletters/Bsmall.gif>")
	c = Replace(b, "c", "<img src=img/commonletters/Csmall.gif>")
	d = Replace(c, "d", "<img src=img/commonletters/Dsmall.gif>")
	e = Replace(d, "e", "<img src=img/commonletters/Esmall.gif>")
	f = Replace(e, "f", "<img src=img/commonletters/Fsmall.gif>")
	g = Replace(f, "g", "<img src=img/commonletters/Gsmall.gif>")
	h = Replace(g, "h", "<img src=img/commonletters/Hsmall.gif>")
	i = Replace(h, "i", "<img src=img/commonletters/Ismall.gif>")
	j = Replace(i, "j", "<img src=img/commonletters/Jsmall.gif>")
	k = Replace(j, "k", "<img src=img/commonletters/Ksmall.gif>")
	l = Replace(k, "l", "<img src=img/commonletters/Lsmall.gif>")
	m = Replace(l, "m", "<img src=img/commonletters/Msmall.gif>")
	n = Replace(m, "n", "<img src=img/commonletters/Nsmall.gif>")
	o = Replace(n, "o", "<img src=img/commonletters/Osmall.gif>")
	p = Replace(o, "p", "<img src=img/commonletters/Psmall.gif>")
	q = Replace(p, "q", "<img src=img/commonletters/Qsmall.gif>")
	r = Replace(q, "r", "<img src=img/commonletters/Rsmall.gif>")
	s = Replace(r, "s", "<img src=img/commonletters/Ssmall.gif>")
	t = Replace(s, "t", "<img src=img/commonletters/Tsmall.gif>")
	u = Replace(t, "u", "<img src=img/commonletters/Usmall.gif>")
	v = Replace(u, "v", "<img src=img/commonletters/Vsmall.gif>")
	w = Replace(v, "w", "<img src=img/commonletters/Wsmall.gif>")
	x = Replace(w, "x", "<img src=img/commonletters/Xsmall.gif>")
	y = Replace(x, "y", "<img src=img/commonletters/Ysmall.gif>")
	z = Replace(y, "z", "<img src=img/commonletters/Zsmall.gif>")
	AOs = Replace(z, "å", "<img src=img/commonletters/AOsmall.gif>")
	AEs = Replace(AOs, "ä", "<img src=img/commonletters/AEsmall.gif>")
	OEs = Replace(AEs, "ö", "<img src=img/commonletters/OEsmall.gif>")
	
	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.

LAMPMedlem sedan mars 2002777 inlägg

23 maj 2002 13:44#2

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?

voigtann1Medlem sedan juni 20019 519 inlägg

23 maj 2002 13:54#3

vänta lite så ska jag se om jag kan göra något åt dej

voigtann1Medlem sedan juni 20019 519 inlägg

23 maj 2002 14:01#4

<%

Function ReplaceCommon(f2)

Set objRegExp = New regexp
objRegExp.Global = true
f2 = Server.HTMLEncode(f2)

objRegExp.Pattern = "([a-z])"
f2 = objRegExp.Replace(f2,"<img src='img/commonletters/$1small.gif'>")
objRegExp.Pattern = "([A-Z])"
f2 = objRegExp.Replace(f2,"<img src='img/commonletters/$1stor.gif'>")
	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?

QuazzoMedlem sedan juli 2001324 inlägg

23 maj 2002 14:49#5

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.

pirroMedlem sedan aug. 2001226 inlägg

23 maj 2002 15:49#6

i övrigt så kan man använda
text = Replace(text,"bokstav","<img...")
text = Replace(text,"bokstav2","<img...")
osv

voigtann1Medlem sedan juni 20019 519 inlägg

23 maj 2002 16:52#7

gör det verkligen det??? jag undra detta...

daPhilMedlem sedan apr. 2001151 inlägg

24 maj 2002 07:15#8

Tack voigtann1 för din fina regexp, jag ska helt klart kolla lite närmare på såna saker i framtiden. Om jag vill ha 0-9 sätter jag 0-Z då? Och ÅÄÖ måste jag ha också, om någon vet kan ni ju hojta ;)

voigtann1Medlem sedan juni 20019 519 inlägg

24 maj 2002 07:20#9

kolla in min sida jag gjorde den igår efter mitt inlägg:
http://voigt.voigtan.cjb.net/view.asp?fil=scripts/textpic.asp&title=Text till bild text (bra till räknare &Community).

daPhilMedlem sedan apr. 2001151 inlägg

24 maj 2002 11:52#10

...och här kan man prova hur det funkar: https://www.daphil.com/text2pic

Dock ej med siffror, har ej orkat göra några..