Fischer-Bayern.de
 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

Blödsinn!

 
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> Pool
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Snow
Administrator
Administrator


Anmeldedatum: 21.11.2000
Beiträge: 1955
Wohnort: Deiningen

BeitragVerfasst am: 03.04.2004 - 00:10    Titel: Blödsinn! Antworten mit Zitat

Hallo,

angeblich soll ja jeder Text lesbar sein, solange von den einzelnen Wörtern die Anfangs- und Endbuchstaben richtig sind. Alle Buchstaben dazwischen können ruhig in der falschen Reihenfolge da stehen.

Ich habe mir mit AppleScript mal eben einen "Textverwirbler" gebastelt. - Also der resultierende Text liest sich gar nicht mehr leicht:

" Dseier Txet slol nach Abaulf des Setpikrs taotl derdniuancher sein. Dbaei stloeln aebr von jdeem Wrot der Aancubbshsgtafne und Eabhsncbtdue gcileh bbelein. Die jieiglween Babhtuescn deziawhscn mssüen drneheacnduir glbwieret weerdn. "

Hier ist das Skript, das alles durcheinander bringt:

set myText to getMyText()

set AppleScript's text item delimiters to ". "
set SatzListe to every text item of myText
set AppleScript's text item delimiters to ""

set neuerText to ""

repeat with einSatz in SatzListe
    set WortListe to every word of einSatz
    
repeat with einWort in WortListe
        set neuerText to neuerText & " " & ScrambleText(einWort)
    end repeat
    
set neuerText to neuerText & ". "
end repeat

neuerText

--
-----------
(*
HANDLER *)
--
-----------

on ScrambleText(einWort)
    set Pos1 to the first character of einWort
    
set PosL to the last character of einWort
    
set PosM to characters 2 thru -2 of einWort
    
set MLength to the length of PosM
    
    
set PositionList to (my defineCharList(MLength))
    
set NewPosList to {}
    
repeat until (count of NewPosList) = MLength
        set newPos to some item of PositionList
        
if newPos is not in NewPosList then
            set the end of NewPosList to newPos
        end if
    end repeat
    
set newCharList to {}
    
repeat with oneItem in NewPosList
        set the end of newCharList to item oneItem of PosM
    end repeat
    
set neuesWort to ((Pos1 & newCharList as string) & PosL) as string
    
return neuesWort
end ScrambleText

on defineCharList(MLength)
    set CharCount to 0
    
set PosList to {}
    
repeat MLength times
        set CharCount to CharCount + 1
        
set the end of PosList to CharCount
    end repeat
    
return PosList
end defineCharList

on getMyText()
    set temp to "Dieser Text soll nach Ablauf des Skriptes total durcheinander sein. Dabei sollten aber von jedem Wort der Anfangsbuchstabe und Endbuchstabe gleich bleiben. Die jeweiligen Buchstaben dazwischen müssen durcheinander gewirbelt werden."
    
return temp
end getMyText

_________________
Peter
-
Fischer-Bayern.de|Shadetreemicro.com
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen AIM-Name
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> Pool Alle Zeiten sind GMT + 2 Stunden
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.


Powered by phpBB © 2001, 2002 phpBB Group
Deutsche Übersetzung von phpBB.de


AppleScript für absolute Starter