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

zeichenkette auf gross - klein, klein - gross konvertieren

 
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> Classic-Snippets
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
herkules
•-->
•-->


Anmeldedatum: 05.01.2004
Beiträge: 23
Wohnort: wädenswil - schweiz

BeitragVerfasst am: 16.08.2004 - 15:26    Titel: zeichenkette auf gross - klein, klein - gross konvertieren Antworten mit Zitat

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;-)
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> Classic-Snippets 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