---
title: "Funktion"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/39390-funktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Rinaldo"
published: "2002-03-10T18:29:19.000Z"
updated: "2002-03-10T21:07:32.000Z"
replies: 7
views: 297
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/39390-funktion"
---

# Funktion

## #1 — Rinaldo, 2002-03-10T18:29Z

Om man ska göra en funktion där man ska ersätta varje tecken med någotting annat... hur är det smidigast att gå till väga då?

Genom en for slinga eller regular expressions...

Går det att göra med båda?

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

## #2 — Jörgen HP, 2002-03-10T18:52Z

> ska ersätta varje tecken

 

vidareutveckla gärna detta ;)

mvh Jörgen HP

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

## #3 — Rinaldo, 2002-03-10T18:54Z

Jag kommer alltså ha en string med kanske en mening och alla olika tecken i den kommer jag vilja ersätta med andra tecken, bilder eller dylikt.

Hur gör jag detta lättast...

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

## #4 — Jörgen HP, 2002-03-10T19:01Z

typ så här?

```
Function bytaTecken(txt)
txt = Replace(txt, "a", "<img src=""bild_a.gif"">")
txt = Replace(txt, "b", "<img src=""bild_b.gif"">")
bytaTecken = txt
End Function
```

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

## #5 — Rinaldo, 2002-03-10T19:31Z

Ja typ sådär, fast jag vill inte hålla på att byta ut alla, var för sig...

```
		strString = "A"
		
		set objRE = New RegExp
		objRE.Global = True
		objRE.IgnoreCase = True
		
		objRE.Pattern = "(A)" 
		strString = objRE.Replace(strString, "<img src=$1.gif>")
		response.write strString
```

Om jag gör det med regexps, hur kan man då göra för att bara behöva använda en eller kanske några replace å ändå ersätta alla med bilder eller någoting annat...?	

(koden bara skriven ur huvet så det är säkert något fel)

R: Om jag bara sätter en . i pattern så skriver den väl ut alla tecken och bilder, men hur gör jag då med radmatningar och mellanslag?

```
		strString = "A"
		
		set objRE = New RegExp
		objRE.Global = True
		objRE.IgnoreCase = True
		
		objRE.Pattern = "(.)" 
		strString = objRE.Replace(strString, "<img src=$1.gif>")
		response.write strString
```

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

## #6 — LarsG, 2002-03-10T20:01Z

Vilka tecken vill du byta ut?

Om det är A-Z och a-z så

```
function repl(string)
dim letter
if len(string) > 0 then
   letter = ucase(left(string,1))
   if  letter >= "A" and letter <= "Z" then
       repl = "<img src=" & letter & ".gif>" & repl(mid(string,2))
   else
       repl = letter & repl(mid(string,2))
   end if
else
   repl = ""
end if
end function
```

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

## #7 — Rinaldo, 2002-03-10T20:40Z

Tack! Det där verkar bra!

Det kommer vara A-Ö plus en del special tecken...

Två frågor.

- Fungerar detta om det är radbrytningar?
- Går det att anpassa så att det blir olika när det är stora respektive små bokstäver?

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

## #8 — LarsG, 2002-03-10T21:07Z

Radbrytningar har ingen betydelse

Om du vill skilja på små och stora kan du lägga till fler if (du måste ha något prefix på för att skilja på filerna.)

```
function repl(string)
dim letter
if len(string) > 0 then
   letter = left(string,1)
   if  (letter >= "A" and letter <= "Z") _
   or (letter = "Å" or letter = "Ä" or letter = "Ö" )  then
       repl = "<img src=" & letter & ".gif>" & repl(mid(string,2))
   elseif (letter >= "a" and letter <= "z" )_
   or (letter = "å" or letter = "ä" or letter = "ö" )  then
      repl =  "<img src=" & letter & "s.gif>" & repl(mid(string,2))
   elseif letter = "?" or letter = "?" or letter = "?" then
      repl =  "<img src=" & "?" & "s.gif>" & repl(mid(string,2))
   else
       repl = letter & repl(mid(string,2))
   end if
else
   repl = ""
end if
end function
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/39390-funktion