---
title: "Omvandla till en funktion"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/7321-omvandla-till-en-funktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Ricki"
published: "2000-12-04T15:05:00.000Z"
updated: "2000-12-04T19:55:00.000Z"
replies: 5
views: 344
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/7321-omvandla-till-en-funktion"
---

# Omvandla till en funktion

## #1 — Ricki, 2000-12-04T15:05Z

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 ;)

Permalänk: https://www.webforum.nu/p/7321

## #2 — emission, 2000-12-04T15:32Z

```
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
```

Permalänk: https://www.webforum.nu/p/252354

## #3 — Ricki, 2000-12-04T15:46Z

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!")
\-------------------------------------------------------^

Permalänk: https://www.webforum.nu/p/252355

## #4 — emission, 2000-12-04T16:27Z

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

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

response.write texten

Permalänk: https://www.webforum.nu/p/252356

## #5 — Ricki, 2000-12-04T17:10Z

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?

Permalänk: https://www.webforum.nu/p/252357

## #6 — emission, 2000-12-04T19:55Z

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) & "%")

Permalänk: https://www.webforum.nu/p/252358

---

Tråden på webben: https://www.webforum.nu/amne/asp/7321-omvandla-till-en-funktion