---
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"
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: 1
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 1 av 2._

## #1 — voigtann1, 2003-10-15T19:20Z

Läste en sak idag som jag skulle vilja testa... jag har ju inte problem att ta ut det första och sista bokstaven i ett entakt ord utan jag fundera på att om man skriver in en mening så ska alla ord i texten slumpas förutom första och sista bokstaven i ordet.

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

## #2 — Broskan, 2003-10-16T05:55Z

Slumpa ut ord i mening

Jag har hårdkodat lite åt dig. Nu slumpar vi bara ut ord som har 3 eller fler bokstäver.

```

randomize

mening = "Det här är endast en testmening"
arrOrden = Split(mening," ")

tmp = round(rnd * ubound(arrOrden)) 

ordUt = arrOrden(tmp)

if len(ordUt) > 2 then
ordUt = mid(ordUt,2,len(ordUt)-2)
end if

Response.Write ordUt
```

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

## #3 — Engine^, 2003-10-16T06:32Z

Hmm...

```
Function ShuffleWrite(strWord As String) As String
  randomize
  
  NotReady = True
  ShuffleWrite = ""

  While NotReady
    intIndex = Rnd * Len(strWord) [blue]'tro om det måste till ett +1 här...[/blue]
    ShuffleWrite = ShuffleWrite + Mid(strWord, intIndex, 1)
    strTemp = strWord
    strWord = Left(strTemp, intIndex - 1)
  
    If Len(strWord) > 2 Then
      strWord = strWord & Right(strTemp, intIndex)
    Else
      strWord = strWord & Right(strTemp, 1)
      NotReady = False
    End If
  Wend
End Function

strText = "Utvecklingen av människans läsförståelse förbryllar"
astrOrd = Split(strText, " ")

For i = 0 To Ubound(astrOrd) - 1
  strOrd = astrOrdr(i)

  If Len(strOrd) < 4 Then
    Response.Write strOrd
  Else
    Response.Write Left(strOrd, 1)
    ShuffleWrite(Mid(strOrd, 2, Len(strOrd) - 1))
    Response.Write Right(strOrd, 1)
  End If
Next i
```

Lite trött såhär på morgonen, men det här kan ju förstås fungera... man vet aldrig ;)

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

## #4 — Jesper T, 2003-10-16T08:02Z

> **Engine^ skrev:**
>
> Utvecklingen av människans läsförståelse förbryllar

Ja, med resultatet av den där kåden ja... ;)  :e

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

## #5 — Engine^, 2003-10-16T10:05Z

> **Jesper T skrev:**
>
> > **Engine^ skrev:**
> >
> > Utvecklingen av människans läsförståelse förbryllar
>
> Ja, med resultatet av den där kåden ja... ;)  :e

 :e

Jag antar att resultatet av den var lustigt :)

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

## #6 — voigtann1, 2003-10-16T16:12Z

Läste en artikel om det... prova läs ord snabbt så ska det fungera ändå :e
\*notera att inga av scripten fungera :e \*

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

## #7 — Melea, 2003-10-16T17:03Z

Eilngt en uneörnskding på ett engskelt uivtnierset så seplar det inegn roll i viekln odrnnig bksotrnävea i ett ord står i, det enda som är vtikigt är att fsötra och ssita bavstoken såtr på rtät patls. Rseetn kan stå hlelur om blluer och man kan ädnå lsäa tetxen uatn porbelm. Dttea broer på att vi itne leäsr vjrae bkosatv för sig, uatn odern som hlehet. TGkOIT VA? psus och karm. 

 :e

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

## #8 — SteveP, 2003-10-16T17:08Z

hehe stämmer ju bra!

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

## #9 — Jesper T, 2003-10-16T18:00Z

haha, f-n va koolt, det går ju hur bra som helst att läsa ju. :)

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

## #10 — Peeer, 2003-10-16T18:17Z

\<ot\>Det är hyfsat coolt ja.
btw. <http://www.webforum.nu/showthread.php?s=&postid=715207#post715207>\</ot\> :)

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

## #11 — LeonL, 2003-10-16T18:32Z

> **Melea skrev:**
>
> Eilngt en uneörnskding på ett engskelt uivtnierset så seplar det inegn roll i viekln odrnnig bksotrnävea i ett ord står i, det enda som är vtikigt är att fsötra och ssita bavstoken såtr på rtät patls. Rseetn kan stå hlelur om blluer och man kan ädnå lsäa tetxen uatn porbelm. Dttea broer på att vi itne leäsr vjrae bkosatv för sig, uatn odern som hlehet. TGkOIT VA? psus och karm. 
> 
>  :e

Fel! :) Jag gjorde samma misstag. Det ska vara de två första och de två sista bokstäverna i ett ord ;) [Min egen :D](http://www.l2arts.com/sadunagat.asp)

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

## #12 — Jesper T, 2003-10-16T18:43Z

Ja, den var ju bra.... ;)

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

## #13 — Melea, 2003-10-16T19:22Z

> **Peeer skrev:**
>
> \<ot\>Det är hyfsat coolt ja.
> btw. <http://www.webforum.nu/showthread.php?s=&postid=715207#post715207>\</ot\> :)

Jo den är ganska vida känd ;)

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

## #14 — Engine^, 2003-10-17T13:56Z

Efter en stunds lite att göra...

```
<%
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)
    Dim astrWords() As String

    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 intIndex
End Sub

Response.Write Dyslexi("Hoppas du inte försöker använda denna funktion med punkter eller semikolon eller andra dumma tecken")
%>
```

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

## #15 — Engine^, 2003-10-17T16:04Z

> **LeonL skrev:**
>
> Fel!  Jag gjorde samma misstag. Det ska vara de två första och de två sista bokstäverna i ett ord

Så är det inte. Felet i det du kommenterade är att vi läser inte alla bokstäver. Vad vi gör har vi ingen större kontroll över, eftersom hjärnan "ser" orden - ögonen kollar inte på bokstäverna utan på den bild som skapas av bokstäverna och det är detta hjärnan "läser". Den första och den sista bokstaven är, vad som på en vanlig tavla kallas, en ram.

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

## #16 — voigtann1, 2003-10-17T17:08Z

jag får bara fel på denna rad:

```
Dim astrWords() As String
```

???

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

## #17 — Jesper T, 2003-10-17T17:59Z

Kan du inte bara plocka bort "As string" då?

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

## #18 — Engine^, 2003-10-19T09:00Z

> **voigtann1 skrev:**
>
> jag får bara fel på denna rad:
>
> ```
> Dim astrWords() As String
> ```
>
> ???

Som **Jesper T** sa, så är det bara att plocka bort *As String*. Jag råkar få med dom där delarna p.g.a. att jag inte skriver i VBScript utan testar mina svar med Office och VBA.

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

## #19 — LeonL, 2003-10-19T09:03Z

> **Engine^ skrev:**
>
> > **LeonL skrev:**
> >
> > Fel!  Jag gjorde samma misstag. Det ska vara de två första och de två sista bokstäverna i ett ord
>
> Så är det inte. Felet i det du kommenterade är att vi läser inte alla bokstäver. Vad vi gör har vi ingen större kontroll över, eftersom hjärnan "ser" orden - ögonen kollar inte på bokstäverna utan på den bild som skapas av bokstäverna och det är detta hjärnan "läser". Den första och den sista bokstaven är, vad som på en vanlig tavla kallas, en ram.

Hmmm :OO
<http://www.webforum.nu/showthread.php?s=&postid=707101#post707101>
<http://www.webforum.nu/showthread.php?s=&postid=711226#post711226>

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

## #20 — Engine^, 2003-10-19T09:12Z

Jo, jag läste dom inläggen jag med, men det är bara den första och den sista bokstaven som är viktig... För riktigt långa ord kan det dock vara besvärligare, eftersom dessa ord har man inte sett lika många gånger. Sammansatta ord blir dock helt knasiga att läsa, eftersom den sista bokstaven i det första ordet och den första bokstaven i det andra ordet inte särbehandlas.

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

---

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