---
title: "Första och sista bokstaven i orden"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/88574-första-och-sista-bokstaven-i-orden/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "voigtann1"
published: "2003-10-15T19:20:55.000Z"
updated: "2003-10-19T16:48:45.000Z"
replies: 25
views: 1522
page: 2
pages: 2
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/88574-första-och-sista-bokstaven-i-orden"
---

# Första och sista bokstaven i orden

_Sida 2 av 2._

## #21 — voigtann1, 2003-10-19T09:34Z

Om jag tar bort as string så får jag felet på 

```
    Next intIndex
```

 och om jag ändra det bara till Next så blir det fel på 

```
end sub
```

 då ändra jag den till 

```
end function
```

 eftersom det är en funktion. och då får jag fel på 

```
    astrWords = Split(strText, " ")
```

> Feltyp:
> Körningsfel i Microsoft VBScript (0x800A000D)
> Inkompatibla typer

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

## #22 — Engine^, 2003-10-19T09:41Z

Om jag ändrar VBScript till VBSkräp, så ser jag varför det blir problem... ;)

Om man skippar att köra Dim astrWords() - tar bort den raden - och helt enkelt bara tilldelar astrWords = [Split](http://www.devguru.com/Technologies/vbscript/quickref/split.html)(strText). Fungerar det då?

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

## #23 — voigtann1, 2003-10-19T11:41Z

```
<%
Function ShuffleLetters(strWord)
    While Len(strWord) > 1
        intChar = CInt(Rnd * Len(strWord))
        
        If intChar = 0 Then intChar = 1
        
        ShuffleLetters = ShuffleLetters & Mid(strWord, intChar, 1)
        
        If intChar = 1 Then
            strWord = Mid(strWord, 2)
        ElseIf intChar = Len(strWord) Then
            strWord = Left(strWord, Len(strWord) - 1)
        Else
            strWord = Left(strWord, intChar - 1) & Right(strWord, Len(strWord) - intChar)
        End If
    Wend
    
    ShuffleLetters = ShuffleLetters & Mid(strWord, 1, 1)
End Function

Function Dyslexi(strText)
    astrWords = Split(strText," ")
    
    strText = ""
    
    For intIndex = 0 To UBound(astrWords)
        strWord = Left(astrWords(intIndex), 1)
        
        If Len(astrWords(intIndex)) > 2 Then
            strWord = Left(astrWords(intIndex), 1)
            strWord = strWord & ShuffleLetters(Mid(astrWords(intIndex), 2,             

Len(astrWords(intIndex)) - 2))
            strWord = strWord & Right(astrWords(intIndex), 1)
        Else
            strWord = strWord & astrWords(intIndex)
        End If
        strText = strText & strWord & " "
    Next
End function

Response.Write Dyslexi("Hoppas du inte försöker använda denna funktion med punkter eller 

semikolon eller andra dumma tecken")
%>
```

Då skriver den inte ut något... men sen är det inga fel heller :e

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

## #24 — Engine^, 2003-10-19T14:46Z

Det smög väl sig en något larvigt fel, men koden jag postade först fungerar med VBA, så det lär väl inte vara någon större miss, men jag orkar inte leta nu ;)

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

## #25 — voigtann1, 2003-10-19T16:39Z

```
<%
Function ShuffleLetters(strWord)
    While Len(strWord) > 1
        intChar = CInt(Rnd * Len(strWord))
        
        If intChar = 0 Then intChar = 1
        
        ShuffleLetters = ShuffleLetters & Mid(strWord, intChar, 1)
        
        If intChar = 1 Then
            strWord = Mid(strWord, 2)
        ElseIf intChar = Len(strWord) Then
            strWord = Left(strWord, Len(strWord) - 1)
        Else
            strWord = Left(strWord, intChar - 1) & Right(strWord, Len(strWord) - intChar)
        End If
    Wend
    
    ShuffleLetters = ShuffleLetters & Mid(strWord, 1, 1)
End Function

Function Dyslexi(strText)
    astrWords = Split(strText," ")
    
    strText = ""
    
    For intIndex = 0 To UBound(astrWords)
        strWord = Left(astrWords(intIndex), 1)
        
        If Len(astrWords(intIndex)) > 2 Then
            strWord = Left(astrWords(intIndex), 1)
            strWord = strWord & ShuffleLetters(Mid(astrWords(intIndex), 2,             

Len(astrWords(intIndex)) - 2))
            strWord = strWord & Right(astrWords(intIndex), 1)
        Else
            strWord = strWord & astrWords(intIndex)
        End If
        strText = strText & strWord & " "
    Next
[b]    Dyslexi = StrText[/b]
End function

Response.Write Dyslexi("Hoppas du inte försöker använda denna funktion med punkter eller 

semikolon eller andra dumma tecken")
%>
```

Så där ja... ibland är man allt trög :e

> Hppoas **ddu** inte frkööesr annvdäa dnena fotuinkn med pktuner eller skoemloin elelr arnda dmmua tekcen

mohahaha :e litet fel iallafall :e

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

## #26 — Engine^, 2003-10-19T16:48Z

whops ;)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/88574-första-och-sista-bokstaven-i-orden/page2  
Föregående sida: https://www.webforum.nu/amne/asp/88574-första-och-sista-bokstaven-i-orden.md