18 svar · 438 visningar · startad av Meng
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
<img src="../include/images/<%=RS("version")%>_pixel.gif">
'bla bla
?
Så här kanske? :)
Function fixatecken(str)
str = Replace(str,"a","<img src=""../include/images/a_pixel.gif"">")
'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. ;)
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","<img src=""../include/images/a_pixel.gif"">")
'fixa för alla bokstäver
fixatecken = a
End Function
Response.Write(fixatecken("Texten här"))
Sorry, skrev fel i koden! Ska redigera! :)
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","<img src=""../include/images/a_pixel.gif"">")
b = Replace(str,"b","<img src=""../include/images/b_pixel.gif"">")
c = Replace(str,"c","<img src=""../include/images/c_pixel.gif"">")
d = Replace(str,"d","<img src=""../include/images/d_pixel.gif"">")
e = Replace(str,"e","<img src=""../include/images/e_pixel.gif"">")
f = Replace(str,"f","<img src=""../include/images/f_pixel.gif"">")
g = Replace(str,"g","<img src=""../include/images/g_pixel.gif"">")
h = Replace(str,"h","<img src=""../include/images/h_pixel.gif"">")
i = Replace(str,"i","<img src=""../include/images/i_pixel.gif"">")
j = Replace(str,"j","<img src=""../include/images/j_pixel.gif"">")
k = Replace(str,"k","<img src=""../include/images/k_pixel.gif"">")
l = Replace(str,"l","<img src=""../include/images/l_pixel.gif"">")
m = Replace(str,"m","<img src=""../include/images/m_pixel.gif"">")
n = Replace(str,"n","<img src=""../include/images/n_pixel.gif"">")
o = Replace(str,"o","<img src=""../include/images/o_pixel.gif"">")
u = Replace(str,"u","<img src=""../include/images/u_pixel.gif"">")
p = Replace(str,"p","<img src=""../include/images/p_pixel.gif"">")
q = Replace(str,"q","<img src=""../include/images/q_pixel.gif"">")
r = Replace(str,"r","<img src=""../include/images/r_pixel.gif"">")
s = Replace(str,"s","<img src=""../include/images/s_pixel.gif"">")
t = Replace(str,"t","<img src=""../include/images/t_pixel.gif"">")
v = Replace(str,"v","<img src=""../include/images/v_pixel.gif"">")
w = Replace(str,"w","<img src=""../include/images/w_pixel.gif"">")
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%>
Se min redigerade kod. ;)
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","<img src=""../include/images/a_pixel.gif"">")
str = Replace(str,"b","<img src=""../include/images/b_pixel.gif"">")
str = Replace(str,"c","<img src=""../include/images/c_pixel.gif"">")
str = Replace(str,"d","<img src=""../include/images/d_pixel.gif"">")
str = Replace(str,"e","<img src=""../include/images/e_pixel.gif"">")
str = Replace(str,"f","<img src=""../include/images/f_pixel.gif"">")
str = Replace(str,"g","<img src=""../include/images/g_pixel.gif"">")
str = Replace(str,"h","<img src=""../include/images/h_pixel.gif"">")
str = Replace(str,"i","<img src=""../include/images/i_pixel.gif"">")
str = Replace(str,"j","<img src=""../include/images/j_pixel.gif"">")
str = Replace(str,"k","<img src=""../include/images/k_pixel.gif"">")
str = Replace(str,"l","<img src=""../include/images/l_pixel.gif"">")
str = Replace(str,"m","<img src=""../include/images/m_pixel.gif"">")
str = Replace(str,"n","<img src=""../include/images/n_pixel.gif"">")
str = Replace(str,"o","<img src=""../include/images/o_pixel.gif"">")
str = Replace(str,"u","<img src=""../include/images/u_pixel.gif"">")
str = Replace(str,"p","<img src=""../include/images/p_pixel.gif"">")
str = Replace(str,"q","<img src=""../include/images/q_pixel.gif"">")
str = Replace(str,"r","<img src=""../include/images/r_pixel.gif"">")
str = Replace(str,"s","<img src=""../include/images/s_pixel.gif"">")
str = Replace(str,"t","<img src=""../include/images/t_pixel.gif"">")
str = Replace(str,"v","<img src=""../include/images/v_pixel.gif"">")
str = Replace(str,"w","<img src=""../include/images/w_pixel.gif"">")
str = Replace(str,"x","<img src=""../include/images/x_pixel.gif"">")
str = Replace(str,"y","<img src=""../include/images/y_pixel.gif"">")
str = Replace(str,"0","<img src=""../include/images/0_pixel.gif"">")
str = Replace(str,"1","<img src=""../include/images/1_pixel.gif"">")
str = Replace(str,"2","<img src=""../include/images/2_pixel.gif"">")
str = Replace(str,"3","<img src=""../include/images/3_pixel.gif"">")
str = Replace(str,"4","<img src=""../include/images/4_pixel.gif"">")
str = Replace(str,"5","<img src=""../include/images/5_pixel.gif"">")
str = Replace(str,"6","<img src=""../include/images/6_pixel.gif"">")
str = Replace(str,"7","<img src=""../include/images/7_pixel.gif"">")
str = Replace(str,"8","<img src=""../include/images/8_pixel.gif"">")
str = Replace(str,"9","<img src=""../include/images/9_pixel.gif"">")
fixatecken = str
End Function%>
<%=fixatecken(RS("version"))%>
Jadu, jag har då ingen aning om varför Excel körs igång och det kraschar, låter gaaaanska märkligt! :e
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
<img src=""../include/images/<%bokstav%>_pixel.gif">
?
Nu gör ni så här och håller tyst sen! :p
http://www.webforum.nu/showthread.php?s=&postid=820613#post820613
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,"<br>"))")
Haha lyssnar du på OveRRidE, den nollan! :p
Response.Write Replace(obj.CharToImg(RS("version").Value), vbCrLf, "<br>")
Prova att lägga in en radbrytning så får du se roliga effekter... :)
Haha jo jag märkte det, men de va ju inte så "roliga effekter" :p ända som hände va ju att det stog <br> istället. men tack "ybergurun" på asp :p
Hur gör jag så det blir en <img src="e.gif" width="100%" height="1"><br> det är radbrytning, för annars ligger texten kloss mot varandra för jag klantat mig när jag gjort bilderna..
Response.Write Replace(obj.CharToImg(RS("version").Value), vbCrLf, "<img src=""e.gif"" width=""100%"" height=""1""><br>")
Haha Erik Juhlin gjorde ett fel! :birp :birp :birp
måste ha <br> innan också ju annars trycker bilden bara ut kanten ju..
Response.Write Replace(obj.CharToImg(RS("version").Value), vbCrLf, "<br><img src=../include/images/e.gif width=100% height=2><br>")
Tack ändå men jag kom på det själv precis efter jag skrivit här som vanligt, sover nog för lite ;)