Vad kan jag göra bättre?

4 svar · 191 visningar · startad av skarbratt 12 juli 2000

skarbrattMedlem sedan juli 2000325 inlägg

Trådstart12 juli 2000 11:45#1

Har här nedan gjort ett script som bygger på lite data som jag samlat här i forumet.

Det går ut på att ersätta bokstäver till bilder istället. Hittade bara ett som omvandlade siffror. Men är liksom inte bäst på sådant här så jag skulle vilja ha tips på förbättringar:

<%
dir = "tecken/"
alt = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 .,!?"
text = "Din, textsträng som du vill översätta"
For i = 1 To Len(text)

If Instr(alt, Mid(text,i,1)) > 0 then

If Mid(text,i,1) = " " then
	tmpstr = tmpstr & "<IMG SRC='"&dir&"tecken1.gif'>" & vbCrLf
End If 

If Mid(text,i,1) = "." then
	tmpstr = tmpstr & "<IMG SRC='"&dir&"tecken2.gif'>" & vbCrLf
End If 

If Mid(text,i,1) = "," then
	tmpstr = tmpstr & "<IMG SRC='"&dir&"tecken3.gif'>" & vbCrLf
End If 

If Mid(text,i,1) = "!" then
	tmpstr = tmpstr & "<IMG SRC='"&dir&"tecken4.gif'>" & vbCrLf
End If 

If Mid(text,i,1) = "?" then
	tmpstr = tmpstr & "<IMG SRC='"&dir&"tecken5.gif'>" & vbCrLf
End If 

If Mid(text,i,1) <> " " AND Mid(text,i,1) <> "?" AND Mid(text,i,1) <> "!" AND Mid(text,i,1) <> "," AND Mid(text,i,1) <> "." then
	tmpstr = tmpstr & "<IMG SRC='"&dir& Mid(text,i,1)&".gif'>" & vbCrLf
End If

End If

Next

text = tmpstr

Response.Write(text)
%>

VideMedlem sedan dec. 19998 577 inlägg

12 juli 2000 11:50#2

Tja, du skulle ju kunna ersätta If-satserna som kolla om det är speciella tecken med en Select Case... det skulle snabba upp lite...

skarbrattMedlem sedan juli 2000325 inlägg

12 juli 2000 12:03#3

säger du så så skall jag göra så.

Viste faktiskt inte vilket som gick snabbast...

VideMedlem sedan dec. 19998 577 inlägg

12 juli 2000 12:08#4

Det är ju just det att en select-sats bara behöver hitta ett av värdena, medans fem stycken if-satser måste kollas allihopa... det är detta som tar med kraft...

emissionMedlem sedan dec. 19996 721 inlägg

12 juli 2000 17:03#5

Varför inte bara...

sstr=" .,!?"

If instr(sstr,Mid(text,i,1))> 0 then
tmpstr = tmpstr & "<IMG SRC='"&dir&"tecken" & instr(sstr,Mid(text,i,1)) & ".gif'>" & vbCrLf

Else 
tmpstr = tmpstr & "<IMG SRC='"&dir& Mid(text,i,1)&".gif'>" & vbCrLf

End If