25 svar · 1 499 visningar · startad av voigtann1
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.
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
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 ;)
Engine^ skrev:
Utvecklingen av människans läsförståelse förbryllar
Ja, med resultatet av den där kåden ja... ;) :e
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 :)
Läste en artikel om det... prova läs ord snabbt så ska det fungera ändå :e
*notera att inga av scripten fungera :e *
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
hehe stämmer ju bra!
haha, f-n va koolt, det går ju hur bra som helst att läsa ju. :)
<ot>Det är hyfsat coolt ja.
btw. http://www.webforum.nu/showthread.php?s=&postid=715207#post715207</ot> :)
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
Ja, den var ju bra.... ;)
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 ;)
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")
%>
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.
Kan du inte bara plocka bort "As string" då?
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.
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
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.