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

Blödsinn!

 
Dieses Forum ist gesperrt, du kannst keine Beiträge editieren, schreiben oder beantworten.   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.    Fischer-Bayern.de Foren-Übersicht -> Pool
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Snow
Administrator
Administrator


Anmeldedatum: 21.11.2000
Beiträge: 1946
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
sdenjuopl148
•---->
•---->


Anmeldedatum: 17.12.2022
Beiträge: 725
Wohnort: New York city

BeitragVerfasst am: 16.02.2023 - 05:48    Titel: Antworten mit Zitat

Nike Shoes
Pandora Jewelry Official Site
Nike 97 Air Max
Pandora Outlet
Nike Sneakers For Women
Nike Outlet
Women Nike Shoes
Air Jordan Shoes
Air Jordan Sneakers
Pandora Charms
Pandora Jewelry Website
Pandora Bracelet
Air Jordans 1
Adidas Running Shoes For Men
Adidas NMD
Salvatore Ferragamo
Moncler Coats
Nike Outlet Store
Air Jordan 1 High
Air Jordan Retro 1
Air Jordan 1 Dior
Pandora Official Site
Moncler Jackets
Nike Canada
Jordan 1 Retro
Air Jordan
Adidas
Balenciagas
Pandora Rings
Pandora Charm
Cheap Basketball Shoes
Moncler Jackets
Sneakers Adidas
Pandora Canada
Cheap Moncler Coats
Nike Canada Online
Best Nike Running Shoes
Ferragamo Belt
Pandora Rings Official Site
Ferragamo Belt
Pandora Charms
Pandora Charms
Moncler Coat
Pandora
Asics Shoes Outlet
Adidas Canada
Nike Outlet
Cheap Moncler Jackets
New Nike Shoes
Nike Shoes For Men
Pandora Charms
Goyard Handbags
Air Max 270
Balenciaga Shoes
Adidas Women's Shoes
Wholesale Jordan Shoes
Adidas Official Website
Asics Shoes For Women
Nike Shoes Women
Jordan Ones
Adidas Shoes
Pandora Jewellery
Nike Air Jordan 1
Pandora Bracelet
Nike Outlet Store Online Shopping
Pandora Bracelet Charms
Wholesale Jordans
Pandora Charms Sale
Wholesale Jordan
Jordan Retro 1
Yeezy
Pandora Jewelry
Adidas Sale
Jordan 1 Low
Nike Snkrs
Nike Air Jordan
Pandora Jewelry 70% Off Clearance
Men's Nike Shoes
Cheap Womens Adidas Shoes
Pandora Jewelry
Jordan 5 Retro
Pandora
Moncler
Moncler Jacket
Asics Outlet
Air Max
Pandora
Balenciaga
Moncler Outlet Store
Pandora
Pandora Outlet
Pandora Bracelets
Pandora
Moncler Jackets
Jordans 1
Moncler Coats For Men
Pandora Black Friday
Pandora Jewelry
Balenciaga
Pandora Outlet
Pandora Outlet
Charms Pandora
Nike
Shoes Nike
Balenciaga
Pandora Jewelry
Pandora Charms
Pandora Jewelry Official Site
Moncler Jackets
Pandora Jewelry
Pandora Jewelry
Goyard Outlet
Pandora Store
Adidas Store
Nike Shoes
Pandora Jewelry Outlet
Pandora Jewelry
Pandora Charms
Pandora Charms
Pandora Charms
Pandora
Asics Running Shoes Women
Pandora Bracelets
Jordan 1
Pandora Jewelry
Adidas Shoes Men
Pandora Outlet
Pandora Charms
Pandora Jewelry Outlet
Pandora Jewelry Outlet
Asics Sneakers
Air Jordan 1 High
Pandora Jewelry
Balenciaga Triple S Sneakers
Nike Outlet Store
Asics
Nike Women Shoes
Balenciaga
Yeezy
Puma Outlet
Pandora Jewelry
Air Max 720
Cheap Jordan Shoes
Pandora
Pandora Jewelry Official Site
Jordan 1's
Pandora Jewelry
Ferragamo Shoes Men
Pandora Jewelry Bracelets
Ferragamo
Jordan 1 Low
Men Nike Sneakers
Pandora Charm Bracelet
Nike Air Jordan 1 Retro
Asics Gel Kayano
Air Jordan 1
Nike UK
_________________
sdenjuopl148
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
sdenjuopl148
•---->
•---->


Anmeldedatum: 17.12.2022
Beiträge: 725
Wohnort: New York city

BeitragVerfasst am: 26.02.2023 - 07:22    Titel: Antworten mit Zitat

Jordan 1 Low
Moncler Jackets
Jordan 11
Pandora Ring
Kyrie Irving Shoes
Air Jordan 4 Retro
Retro Jordans
New Jordans
Jordans 4
Christian Louboutin
Red Bottom Shoes
Jordan Retro 1
Adidas NMD
Air Jordan 12
New Jordan 11
Air Jordan Shoes
Air Jordan Sneakers
Air Jordan 11
Adidas Yeezy
Jordan Sneakers
Pandora Charms
Jordan Retro
Pandora
New Jordans
Air Max 98
Jordan Retro
Christian Louboutin shoes
Christian Louboutin
Air Jordan Sneakers
Jordan 8
Soccer Shoes
Pandora Jewelry
Pandora Bracelets
Pandora Jewelry
Air Max
Nike Outlet Store Online
Pandora
Jordan Shoes
Air Jordan 12 Retro
Moncler
Jordan Retro 3
Pandora Rings
Nike Factory Outlet
Golden Goose Sneakers
Air Jordan
Jordan 6 Retro
Nike Factory Outlet
Pandora Jewelry
Nike For Women
New Nike Shoes
Nike Air Max 95
Nike Shoes Sale
Balenciaga Triple S
Jordan 1
Golden Goose Shoes Men
Louboutin Shoes
Nike Outlet
Jordan 11's
Air Max 90
Men Moncler Vest
Air Force Ones Shoes
Jordan 4 Retro
Jordan 5
Nike Shoes Outlet
Nike Jordan 1
Nike Jordan
Yeezys
Air Jordan 12 Retro
Red Bottom for Women
Golden Gooses For Sale
Jordan 11s
Red Jordan 11
Asics Running Shoes
Cheap Nike Shoes
Air Max
Air Jordan Sneakers
Jordan 11 For Sale
Air Max 270
Jordans
Jordan 5s
Louboutin Shoes
GGDB Sneakers
Retro Jordans
Balenciaga Shoes
ECCO Shoes
Jordan 14
Huaraches Nike
Jordan Shoes Retro
Jordan 1
Yeezy
Jordan 12
Golden Goose Outlet
Mens Nike Shoes
Golden Goose Mid Stars
GGDB Sneakers
Jordan 1
Golden Goose Sneakers
Moncler Jackets For Women
Christian Louboutin UK
Jordan 1
Air Max 270
Golden Goose Sneakers Sale
Sneakers Golden Goose
Jordans 11 Retro
Jordans 1
Air Jordans
Air Jordan 1s
Jordan Sneakers
Nike Air Max 2018
Moncler Coat
Jordan Retro
Yeezy Shoes
Nike Outlet Shoes
Adidas NMD R1
Valentino Sandals
James Harden Shoes
Air Jordan 6
GGDB Shoes
Jordan Retro 9
Pandora
Pandora Jewelry Official Site
Cheap Jordans
Red Bottoms
Nike Website
Air Jordans
Jordan 13
Nike Outlet Online
Birkin Bag
Yeezy
Kanken Backpack
Air Jordan 4
Air Jordan 6
Ferragamo Outlet
Jordan 5
Nike Snkrs
Yeezys
Yeezy
Moncler Coats
Pandora Canada
Jordan 13
Nike Shoes
Air Jordan 11
Air Jordan 6 Rings
Vans
Jordan Retro 12
Jordan 3
Jordan Shoes
Air Jordan 4
Fitflop Sandals
Nike Factory Outlet
Lebron Shoes
Golden Goose Sneakers
Jordan Retro 11
Jordan 10
_________________
sdenjuopl148
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Dieses Forum ist gesperrt, du kannst keine Beiträge editieren, schreiben oder beantworten.   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.    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