25 svar · 1 501 visningar · startad av voigtann1 · sida 2 av 2
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.
Läs frågan i sin helhet →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
<%
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
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 ;)
<%
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
whops ;)