sonderzeichen ersetzten

[herkules]

hallo zusammen!
der input wird nach sonderzeichen durchsucht und gegen ein anderes zeichen ersetzt... read the source



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

-- Sonderzeichen Variabeln
--************************
property SZ_SonderZeichen : ""
property SZ_SonderZeichenErsatz : ""
property SZ_String : ""
property SZ_StringLaenge : ""
property SZ_StringZaehler : ""
property SZ_Buchstabe : ""
property SZ_EndString : ""



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

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

-- Liste mit Sonderzeichen und Sonderzeichenersatz
set SZ_SonderZeichen to {"\\", "/", ":", "*", "?", "\"", "<", ">", "|", "!", "+", "="} as list
set SZ_SonderZeichenErsatz to "_"

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

-- Aufruf
if SZ_String is not "" then
set SZ_String to |SonderZeichen|(SZ_String)
end if



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

-- String Nach Sonderzeichen filtern und ersetzen
--***********************************************
on |SonderZeichen|(SZ_String)

-- initialisierungen
set SZ_StringZaehler to 1
set SZ_EndString to ""

-- Laenge des Strings uebergeben
set SZ_StringLaenge to length of SZ_String

-- String nach Sonderzeichen durchsuchen
repeat while SZ_StringZaehler <= SZ_StringLaenge

-- Buchstaben zur Pruefung uebergeben
set SZ_Buchstabe to (item SZ_StringZaehler of SZ_String)

if SZ_SonderZeichen contains SZ_Buchstabe then
repeat with p from 1 to the (number of items in the SZ_SonderZeichen)
if SZ_Buchstabe = item p of SZ_SonderZeichen then
set SZ_EndString to (SZ_EndString & SZ_SonderZeichenErsatz) as string
exit repeat
end if
end repeat
else
set SZ_EndString to (SZ_EndString & SZ_Buchstabe) as string
end if

set SZ_StringZaehler to SZ_StringZaehler + 1

end repeat

-- String zurueckgeben
return SZ_EndString as string

end |SonderZeichen|



--------------------------------------------------------
-- 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: " & SZ_String
end tell
_________________
gruss christos;-)