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

sonderzeichen ersetzten

 
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:28    Titel: sonderzeichen ersetzten Antworten mit Zitat

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



-------------------------------------------
-- 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
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