zeichenkette auf gross - klein, klein - gross konvertieren

[herkules]

hallo zusammen!
dieses kleine ding hier übersetzt einen string von gross zu klein oder umgekehrt.


-------------------------------------------
-- V A R I A B E L N D E F I N I T I O N --
-------------------------------------------

-- Translate Variabeln
--********************
property TL_ListeGross : ""
property TL_ListeKlein : ""
property TL_String : ""
property TL_StringLaenge : ""
property TL_StringZaehler : ""
property TL_LowUp : ""
property TL_PruefListe : ""
property TL_Buchstabe : ""
property TL_EndString : ""



-----------------------------
-- V E R A R B E I T U N G --
-----------------------------

-- Initialisierungen
--******************

-- Liste mit Buchstaben
set TL_ListeGross to {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "Ä", "Ö", "Ü"} as list
set TL_ListeKlein to {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "ä", "ö", "ü"} as list

-- Inputstring verlangen
set InputFrage to display dialog "InputString eingeben" buttons {"Weiter"} default button 1 default answer ""
set TL_String to text returned of InputFrage

-- Definieren ob Gross oder Klein-Umsetzung
set InputFrage to display dialog "GROSSBUCHSTABEN = high; kleinbuchstaben = low" buttons {"Weiter"} default button 1 default answer ""
set TL_LowUp to text returned of InputFrage

-- Aufruf
if TL_String is not "" then
set TL_String to |Translate|(TL_String, TL_LowUp)
end if



-------------------------
-- S U B R O U T I N E --
-------------------------

-- String in Gross- oder Kleinbuchstaben transferieren
--****************************************************
on |Translate|(TL_String, TL_LowUp)

-- initialisierungen
set TL_StringZaehler to 1
set TL_EndString to ""

-- Laenge des Strings uebergeben
set TL_StringLaenge to length of TL_String

-- Liste je nach Eingabe fuer Pruefung uebergeben
if TL_LowUp = "low" then
set TL_PruefListe to TL_ListeKlein
else
set TL_PruefListe to TL_ListeGross
end if


repeat while TL_StringZaehler <= TL_StringLaenge

-- Buchstaben zur Pruefung uebergeben
set TL_Buchstabe to (item TL_StringZaehler of TL_String)

if TL_PruefListe contains TL_Buchstabe then
repeat with p from 1 to the (number of items in the TL_PruefListe)
if TL_Buchstabe = item p of TL_PruefListe then
set TL_EndString to (TL_EndString & item p of TL_PruefListe) as string
exit repeat
end if
end repeat
else
set TL_EndString to (TL_EndString & TL_Buchstabe) as string
end if

set TL_StringZaehler to TL_StringZaehler + 1

end repeat

-- String zurueckgeben
return TL_EndString as string

end |Translate|



--------------------------------------------------------
-- A U S G A B E Z U R D E M O N S T R A T I O N --
--------------------------------------------------------

tell application "Finder"
activate
display dialog "Output: " & TL_String
end tell
_________________
gruss christos;-)