---
title: "Funktionen blir fel?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/119855-funktionen-blir-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bosse168"
published: "2005-01-11T19:35:26.000Z"
updated: "2005-01-11T19:36:37.000Z"
replies: 1
views: 178
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/119855-funktionen-blir-fel"
---

# Funktionen blir fel?

## #1 — Bosse168, 2005-01-11T19:35Z

Har gjort en funktion som ser ut så här:

```
Function sorten(txt) 
txt = Replace(txt, "1", "Ljus lager")
txt = Replace(txt, "2", "Mörklager")
txt = Replace(txt, "3", "Ale")
txt = Replace(txt, "4", "Porter & Stout")
txt = Replace(txt, "5", "Veteöl")
txt = Replace(txt, "6", "Övrig öl")
txt = Replace(txt, "7", "Cider")
txt = Replace(txt, "8", "Blanddrycker")
txt = Replace(txt, "9", "Tequila")
txt = Replace(txt, "10", "Brännvin")
txt = Replace(txt, "11", "Gin")
txt = Replace(txt, "12", "Cognac")
txt = Replace(txt, "13", "Likör")
txt = Replace(txt, "14", "Rom")
txt = Replace(txt, "15", "Whiskey")
txt = Replace(txt, "16", "Övrig sprit")
txt = Replace(txt, "17", "Vitt")
txt = Replace(txt, "18", "Rött")
txt = Replace(txt, "19", "Rosé")
txt = Replace(txt, "20", "Dessert")
txt = Replace(txt, "21", "Mousserande")
sorten = txt 
End Function
```

 

Men när jag försöker få fram 17 alltså Vitt så blir det

Ljus lagerCider

Någon som vet vad det är för fel?

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

## #2 — @nders, 2005-01-11T19:36Z

Eftersom du replacear 1 innan 17 så finns ju inte 17.
Kör de större först:

```
Function sorten(txt) 
txt = Replace(txt, "10", "Brännvin")
txt = Replace(txt, "11", "Gin")
txt = Replace(txt, "12", "Cognac")
txt = Replace(txt, "13", "Likör")
txt = Replace(txt, "14", "Rom")
txt = Replace(txt, "15", "Whiskey")
txt = Replace(txt, "16", "Övrig sprit")
txt = Replace(txt, "17", "Vitt")
txt = Replace(txt, "18", "Rött")
txt = Replace(txt, "19", "Rosé")
txt = Replace(txt, "20", "Dessert")
txt = Replace(txt, "21", "Mousserande")
txt = Replace(txt, "1", "Ljus lager")
txt = Replace(txt, "2", "Mörklager")
txt = Replace(txt, "3", "Ale")
txt = Replace(txt, "4", "Porter & Stout")
txt = Replace(txt, "5", "Veteöl")
txt = Replace(txt, "6", "Övrig öl")
txt = Replace(txt, "7", "Cider")
txt = Replace(txt, "8", "Blanddrycker")
txt = Replace(txt, "9", "Tequila")
sorten = txt 
End Function
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/119855-funktionen-blir-fel