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

SUCHEN/ERSETZEN + EINGABEMASKE für mehrere Zeichen

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


Anmeldedatum: 10.07.2003
Beiträge: 1529
Wohnort: Olten-CH

BeitragVerfasst am: 01.03.2005 - 22:39    Titel: SUCHEN/ERSETZEN + EINGABEMASKE für mehrere Zeichen Antworten mit Zitat

SNIPPET = Ergänzungs-Variante zu SNOWs Original:


HIER ! Snow Verfasst am: 28.04.2003 - 16:33    Titel: Programm: AppleScript - Funktion: suchen/ersetzen


ZIEL der Variante:

"EINGABEMASKE" für Such/Ersatztexte um damit das Suchen/ersetzen sozusagen "Listenweise" zu erleichtern mit Hilfe einer "Eingabe-Masken-artigen" Liste und einem Universal-handler.

EDIT_29.4.07 unter Erhalt Snow`s Original-Variablen-Namen
SUCHE/ERSETZEN-Skript
Das Beispiel sollte, hoffe ich, genügend Infos dazu liefern
hat Folgendes geschrieben:
set ZuErsetzenText to "# 14'012,34567890" as text
--
<--ein Beispiel
-- set ZuErsetzenText to the clipboard
--<--damit würde der Zwischenspeicherinhalt bearbeitet

--ERSATZPAAR-Liste: einfachst mögliche Adapt.+/o.Erweiterung-----
set SuchTErsatzTLISTE to
   {
SuchT:"# ", ErsatzT:""}, ¬
   {
SuchT:"'", ErsatzT:""}, ¬
   {
SuchT:",", ErsatzT:"."}, ¬
   {
SuchT:"", ErsatzT:""}, ¬
   {
SuchT:"", ErsatzT:""}, ¬
   {
SuchT:"", ErsatzT:""} ¬
      } --
Liste mit Duplikaten erweiterbar (lezte Zeile OHNE Komma)
--
satt "# " u.s.w könnte man auch Variablen einsetzen.

set ErsetzterText to ¬
   
my SuchErsetzER(ZuErsetzenText, SuchTErsatzTLISTE) --as text



--############## UNIVERSAL_Handler-Paket ##############
on SuchErsetzER(ZuErsetzenText, SuchTErsatzTLISTE)
   
set LangSuchTErsatzTLISTE to count SuchTErsatzTLISTE
   --

   
repeat with ItemNr from 1 to LangSuchTErsatzTLISTE
      
set AktErsatzPaar to item ItemNr of SuchTErsatzTLISTE
      
set SuchT to SuchT of AktErsatzPaar
      
set ErsatzT to ErsatzT of AktErsatzPaar
      --
SNOWS Original-handler Aufruf:
      
set ZuErsetzenText to¬
 my textReplace (ZuErsetzenText, SuchT, ErsatzT)
   
end repeat
end SuchErsetzER

--
SNOWS Original-handler:
on textReplace(theText, srchStrng, replStrng)
tell (a reference to AppleScript's text item delimiters)
set { od, contents } to { contents, { srchStrng } }
try
set { textList, contents } to { (text items of theText), { replStrng } }
set { newText, contents } to { (textList as text), od }
return item 1 of result
on error errMsg number errNbr
set contents to od
error errMsg number errNbr
end try
end tell
end textReplace
--
#############ENDE UNIVERSAL_Handler-Paket ############


--
INFO:
display dialog ZuErsetzenText & return & ErsetzterText ¬
   
default answer ¬
   "
\"#\"--> \"\"" & return & ¬
   "
\",\"-->\".\"" & return & ¬
   "
Z.B. Herstellung von Schweiz-üblichen Zahlen" buttons ¬
   {"
Weitere Ersatzpaare durch Zeilenduplikate leicht herstellbar"} default button 1 with icon 1
return ErsetzterText

_________________
 Skript-Fan => ein � -Fan =>Scr¿¿-KongFuSius_Kurpfusius


Zuletzt bearbeitet von spirigwi am 14.07.2007 - 12:39, insgesamt 46-mal bearbeitet
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden AIM-Name
spirigwi
•----->
•----->


Anmeldedatum: 10.07.2003
Beiträge: 1529
Wohnort: Olten-CH

BeitragVerfasst am: 01.03.2005 - 22:48    Titel: Antworten mit Zitat

Ich habe leider noch keine Idee, wie man direkt auch Texte mit
solchen " - Anführungszeichen als Quelltext/Suchtext oder Ersatztext verwenden könnte??
_________________
 Skript-Fan => ein � -Fan =>Scr¿¿-KongFuSius_Kurpfusius


Zuletzt bearbeitet von spirigwi am 28.04.2007 - 09:36, insgesamt 2-mal bearbeitet
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden AIM-Name
Snow
Administrator
Administrator


Anmeldedatum: 21.11.2000
Beiträge: 1955
Wohnort: Deiningen

BeitragVerfasst am: 02.03.2005 - 01:02    Titel: Antworten mit Zitat

Wenn du Anführungszeichen in den Suchtext aufnehmen möchtest, musst du diese mit einem Backslash maskieren. \"
_________________
Peter
-
Fischer-Bayern.de|Shadetreemicro.com
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen AIM-Name
spirigwi
•----->
•----->


Anmeldedatum: 10.07.2003
Beiträge: 1529
Wohnort: Olten-CH

BeitragVerfasst am: 25.09.2005 - 18:31    Titel: Antworten mit Zitat

inzwischen ist mir eine schlaue Idee dazu eingefallen, wie man Anf-Zeichen gesetzen Text ohne geistige Arbeit in eine Ersatzmaschine des AppleSkript hineingeben könnte:

set ZuErsetzenText to ¬
the clipboard

und in diesem clipboard dort drin steckt der ganze Text

(Setzt natürlich voraus, dass man vor dem Skriptstart einen solchen Text Markiert hat und in Zwischenspeicher geladen hat ZB mittels æ TASTE + c = Code_copy)


gut so?
_________________
 Skript-Fan => ein � -Fan =>Scr¿¿-KongFuSius_Kurpfusius
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden AIM-Name
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> OS X-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