Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
herkules •-->
![•--> •-->](/phpBB2/images/ranks/ranki1.gif)
Anmeldedatum: 05.01.2004 Beiträge: 23 Wohnort: wädenswil - schweiz
|
Verfasst am: 16.08.2004 - 15:28 Titel: sonderzeichen ersetzten |
|
|
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;-) |
|
Nach oben |
|
![](templates/subSilver/images/spacer.gif) |
|
|
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
|
|
|