Omvandla till en funktion

5 svar · 344 visningar · startad av Ricki 4 dec. 2000

RickiMedlem sedan juni 2000373 inlägg

Trådstart4 dec. 2000 15:05#1

Tjena,
Skulle någon duktig en kunna göra om detta script till en funktion?

<%
'-------------------------------------------------------
' Katalogen där du lägger bilderna i
'-------------------------------------------------------
dir = "grafik/font/"

'-------------------------------------------------------
' Specialtecken som skall vara godkända
'-------------------------------------------------------
sstr=" .!,?"

'-------------------------------------------------------
' Texten som skall omvandlas
'-------------------------------------------------------
text = "slarver... skyll dig själv!"

For i = 1 To Len(text)

'-------------------------------------------------------
' Om du använder dig av andra tecken typ ,.?! så måste du döpa dem till tex tecken1.gif, etc.
'-------------------------------------------------------
If inStr(sstr,Mid(text,i,1))> 0 then
	tmpstr = tmpstr & "<img src=" & chr(34) & dir &  "tecken" & instr(sstr,Mid(text,i,1)) & ".gif" & chr(34) & " border=" & chr(34) & "0" & chr(34) & " hspace=" & chr(34) & "1" & chr(34) & ">"
Else 
	tmpstr = tmpstr & "<img src=" & chr(34) & dir &  Mid(text,i,1) & ".gif" & chr(34) & " border=" & chr(34) & "0" & chr(34) & " hspace=" & chr(34) & "1" & chr(34) & ">"End If

Next

text = tmpstr

Response.Write(text)
%>

Jag skulle vilja anropa funktionen ungefär såhär, med två parametrar. Ena är sökvägen till bilderna och andra är texten som ska omvandlas.
KonvertText("bilder/text","omvandla mig")

Tack på förhand

emissionMedlem sedan dec. 19996 721 inlägg

4 dec. 2000 15:32#2

function KonvertText(dir,text)
'-------------------------------------------------------
' Katalogen där du lägger bilderna i
'-------------------------------------------------------

'-------------------------------------------------------
' Specialtecken som skall vara godkända
'-------------------------------------------------------
sstr=" .!,?"

'-------------------------------------------------------
' Texten som skall omvandlas
'-------------------------------------------------------

For i = 1 To Len(text)

'-------------------------------------------------------
' Om du använder dig av andra tecken typ ,.?! så måste du döpa dem till tex tecken1.gif, etc.
'-------------------------------------------------------
If inStr(sstr,Mid(text,i,1))> 0 then
tmpstr = tmpstr & "<img src=" & chr(34) & dir & "tecken" & instr(sstr,Mid(text,i,1)) & ".gif" & chr(34) & " border=" & chr(34) & "0" & chr(34) & " hspace=" & chr(34) & "1" & chr(34) & ">"
Else 
tmpstr = tmpstr & "<img src=" & chr(34) & dir & Mid(text,i,1) & ".gif" & chr(34) & " border=" & chr(34) & "0" & chr(34) & " hspace=" & chr(34) & "1" & chr(34) & ">"End If

Next

KonvertText= tmpstr
end function

RickiMedlem sedan juni 2000373 inlägg

4 dec. 2000 15:46#3

Det funkar inte, när jag skriver:
KonvertText("grafik/font/","Konvertera den här texten!")
så säger den att det inte går att använda paranteser när en sub anropas!
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0414)
Det går inte att använda parenteser när en Sub anropas.
/design/password.asp, line 36, column 56
KonvertText("grafik/font/","Konvertera den här texten!")
-------------------------------------------------------^

emissionMedlem sedan dec. 19996 721 inlägg

4 dec. 2000 16:27#4

Du ville ha en funktion, inte en sub...

texten=KonvertText("grafik/font/","Konvertera den här texten!")

response.write texten

RickiMedlem sedan juni 2000373 inlägg

4 dec. 2000 17:10#5

Varför kan man inte göra såhär?:

		\<%
		P1 = KonvertText("grafik/font/","\<%FormatNumber(Procent1,1)%\>%")
		P2 = KonvertText("grafik/font/","\<%FormatNumber(Procent2,1)%\>%")
		%\>

Kan du se vad jag försöker göra?

emissionMedlem sedan dec. 19996 721 inlägg

4 dec. 2000 19:55#6

Därför att man inte kan stoppa in kontextswitchar (<% och %> ) mitt i ASP-koden. De är där för att avgränsa kod från HTML.

P1 = KonvertText("grafik/font/",FormatNumber(Procent1,1) & "%")
P2 = KonvertText("grafik/font/",FormatNumber(Procent2,1) & "%")