hejsan! jag skulle vilja göra så att alla tecken som jag printar ut på en webbsida ersätts av gif/jpg bilder om jag från börjag har skapat
a.gif/jpg
b.gif/jpg
osv. så skulle jag vilja att alla a.blir a.gif/jpg osv. det blir många gif/jpg bilder men det kan ju kanske vara kul att ha det så. jag vill altså att all text som finns inne i en databas (access) ersätts av motsvarande bilder. någon som fattar hur jag vill ha det tro :-)
om någon vet hur man skall göra så skulle jag bli glad om jag fick ett tips ang. detta.

//Tommy

Hade du tänkt att all text på din sida skulle byggas upp av bilder?
Tänk på att din sida kommer bli extremt seg för vissa av dina besökare då...

Man brukar bara byta text mot bild i besöksräknare och när man vill ha simeys annars.

Men, så här byter du ut text mot bild;
<code>
Function replaceTxtImg(sTextIn)

replaceTxtImg = Replace(sTextIn, "a", "<IMG SRC='a.jpg'>")
replaceTxtImg = Replace(replaceTxtImg, "b", "<IMG SRC='b.jpg'>")
replaceTxtImg = Replace(replaceTxtImg, "c", "<IMG SRC='c.jpg'>")
replaceTxtImg = Replace(replaceTxtImg, "d", "<IMG SRC='d.jpg'>")
replaceTxtImg = Replace(replaceTxtImg, "e", "<IMG SRC='e.jpg'>")
replaceTxtImg = Replace(replaceTxtImg, "f", "<IMG SRC='f.jpg'>")
replaceTxtImg = Replace(replaceTxtImg, "g", "<IMG SRC='g.jpg'>")
replaceTxtImg = Replace(replaceTxtImg, "h", "<IMG SRC='h.jpg'>")
replaceTxtImg = Replace(replaceTxtImg, "i", "<IMG SRC='i.jpg'>")
' ... och så vidare...

End Function
</code>
Anropa med:
<code>
<%
=replaceTxtImg("Flygande bäckasiner söka hwila på mjuka tuvor. 1234567890")
%>
</code>

Den där koden kommer inte att fungera... ;)

Vad händer när du har ersatt
f
med <img src="f.gif">
och du fortsätter med g? jo
abcdefg
blir först:
<img src="a.gif"><img src="b.gif"><img src="c.gif"><img src="d.gif"><img src="e.gif"><img src="f.gif">G

Vad händer nu då? jo, alla g i IMG blir ju en bild?

Det enda korrekta sättet är unfegär såhär:

function TextToImage(Text)
dim sTemp, sTemp2
dim sResult
dim sChar
sResult = ""
sTemp = Text
do while sTemp <> ""
sTemp2 = left(stemp, 1)
stemp = mid(stemp, 2)
if asc(sTemp2) >= asc("a") and asc(sTemp2) <= asc("z") then
sChar = "small_" & sTemp2
if asc(sTemp2) >= asc("A") and asc(sTemp2) <= asc("Z") then
sChar = "big_" & sTemp2
if asc(sTemp2) >= asc("0") and asc(sTemp2) <= asc("9") then
sChar = "number_" & sTemp2
else
sChar = "other_" & replace(replace(server.htmlencode(schar), "&", ""), ";", "")
end if
sResult = sResult & "<img src=""" & sChar & ".gif"">"
loop
end function


Något sådant tror jag skulle kunna fungera. a till z bilderna börjar med small_BOKSTAV, A till Z med big_BOKSTAV, 0 till 9 med number_SIFFRA, resten med other_HTML-MOJSET-UTAN-&-ELLER-;

Ahha! *knackar mej i pannan* du har såå rätt!

Ja skyller på att de e söndag. ;-)

Du är inte den första som har tänkt fel på den där saken med bilderna, det kan jag lova. ;)

Annars skulle jag rekommendera att texten görs om till bilder utav ett javascript istället... Snabbare för både servern och klienten.

En annan lösning kan ju annars vara att göra om det till en array och sen loopa igenom den.

Dim MyString, MyArray
MyString = RS("Sizes")
MySize = RS("SizeID")

MyArray = Split(MyString, ",", -1, 1)
for i = 0 to ubound(MyArray)
Response.Write "<img src="" & MyArray(i) & ">"
next

Om det är snabbt vette tusan, servern får ju snurra en hel del.

//Anna-Karin

funkar det som ni visat mig om jag hämtar in text från en tabell i en accessdatabas? tänkte ju printa ut info från kolumen memo så här:

<code><%=RS("memo")%></code>

//Tommy

om du stoppar in texten i en variabel, gör om den till bild och sedan skriver ut den; ja.

variabel,?? hur då.