---
title: "Finn ett fel i denna funktion (DecodeUTF8)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/181775-finn-ett-fel-i-denna-funktion-decodeutf8"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "l-boy"
published: "2009-12-23T13:32:48.000Z"
updated: "2009-12-23T15:28:11.000Z"
replies: 1
views: 465
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/181775-finn-ett-fel-i-denna-funktion-decodeutf8"
---

# Finn ett fel i denna funktion (DecodeUTF8)

## #1 — l-boy, 2009-12-23T13:32Z

Hittade denna funktionen nånstans, och den fungerar - nästan.

```

function DecodeUTF8(s)
dim i
dim c
dim n

i = 1
do while i <= len(s)
c = asc(mid(s,i,1))
if c and &H80 then
 n = 1
 do while i + n < len(s)
   if (asc(mid(s,i+n,1)) and &HC0) <> &H80 then
     exit do
   end if
   n = n + 1
 loop
 if n = 2 and ((c and &HE0) = &HC0) then
   c = asc(mid(s,i+1,1)) + &H40 * (c and &H01)
 else
   c = 191 
 end if
 s = left(s,i-1) + chr(c) + mid(s,i+n)
end if
i = i + 1
loop
	  DecodeUTF8 = s 
end function
```

Matar jag den med (i UTF8) "åäöÅÄÖa" fungerar det. MEN om sista tecknet är t.ex å, ä, eller ö lyckas den ej konvertera sista tecknet rätt. Vad kan detta bero på?

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

## #2 — nitro2k01, 2009-12-23T15:28Z

Spontan gissning:

```
 do while i + n <= len(s)
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/181775-finn-ett-fel-i-denna-funktion-decodeutf8