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

PFADE für Alias-File-Ordner :OSA-Menu=>Apple Skript Resul
Gehe zu Seite 1, 2  Weiter
 
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> Classic-Snippets
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
spirigwi
•----->
•----->


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

BeitragVerfasst am: 18.09.2004 - 12:06    Titel: PFADE für Alias-File-Ordner :OSA-Menu=>Apple Skript Resul Antworten mit Zitat

Re-EDIT-Berschreibung:

Mit OS9/od. OSX abspielbares Mammut-Skript mit ganz kurzem Ergebnis:
Mit dem Skriptablauf wird alles"choosbare" erfasst in 2-erlei Art:

• in einer Pfad-Zeile , ZB so: "McFmSERVER:Applications:Chess.app:"

• in ein AppleSkript, welches generiert wird und den gechoosten Pfad derart speichert, dass die Nennung des Start-Disk-Namens umgangen wird, weil dieser jedesmal durch das generierte AS erneut errechnet wird. (Ich nenns Pfad-AppleSkript.)

Dadurch kann der Kapitalfehler von MicroSchrotten-Programmen vermieden werden, welche mit verheerenden Folgen immer den konkreten Start-Disk-Namen speichern.
Andererseits kann das generierte Pfad-AppleSkript auf jeder beliebigen Festplatte ZB eines Intranetzes gestartet werden und wird von der höchsten Ebene ausgehend ein Ziel, das mit gleicher Ordnerstruktur plaziert ist, auf dem jeweiligen Pfad-AppleSkript-Träger ebenfalls finden.

• • Das besondere am generierten Pfad-AppleSkript ist, dass es auch eine Formulierungs-Zeile enthält für einen "Skriptaufruf-Modus" fürs gechooste File, was bei solchem Bedarf enorme Denk- und Memory-arbeit ersparen sollte.(SkriptName() of (load script file PFAD))

------------------------------------------------------------
Das SNIPPET hab ich in 3 postings aufgeteilt:
------------------------------------------------------------
• EDIT 1.1.07: im ersten posting lediglich eine OSX-Version, welche ein neues Skript-Fenster mit adäquatem Namen erzeugt dessen Inhalt wieder skriptfähig ist und je sinngemäss ALIAS, ORDNER, oder FILE öffnet. Für letzteres nützt mir häufig die AS-Skript-Option:
(do load script...). Sie dient mir für die auf der HD gelagerten, häufigst gebrauchten "Standard-Apple-Skript-Funktionen Marke Eigenbau" wie ZB: Schreibtisch einblenden/alle Ordner-Fenster schliessen ausser dem angewähltem... oder Einloggen ins Snow-Forum... u.s.w weshalb ich diesen AS-Befehl den ich stets vergesse, auch eingefügt habe.

• Das nach dem EDIT 1.1.07 nun im 2. posting als OSX-9 konzipierte Skript erstellt kein neues Skript-file, erzeugt aber im Zwischenspeicher ein AppleSkript des Pfades, das ganz einfach wieder durch "past" abgeladen werden kann.
• Das 3. posting macht dann beides.(• Zwischenspeicher mit Dialog-gesteuertem Skript-Material füllen / • ein neues Skript-Fenster eröffnen mit Inhalt eines neu generierten AppleSkript dessen Funktionalität einen gechoosten Pfad abruft)
-- Hm?

SNIPPET - Ziel:
Alias/ File / Folder/- Auswahl mit choose: alle Teile des Pfades in
Finder-fähiges Skript gesetzt (zur KOPIE),dargestellt in
3 Dialogfenster.
Objekt der Choosen-Wahl:
File oder dessen ALIAS:(letzteres ergibt
den Pfad des
Original-Files das dem ALIAS zugrunde liegt)

SNIPPET -Vorgabe:
aus Forum: von SNOW hallo winke : stammen sämtliche Tricks die euch gut scheinen
(first item of (list disks)) as string --fecit
HERCULES hallo winke
sollte OSX laufen dixit
FOLKER hallo winke
=Ausbau des Armin Egginger hallo winke Ordner-Pfader
http://www.fischer-bayern.de/phpBB2/viewtopic.php?t=723

Warum denn so kompliziert ?

tunliches Vermeiden des Kapitalfehlers von Microsofts Word/Excel
auf dem Mac:
Nie in AS-Skripten den konkreten Namen der HD ausformulieren
da sonst die kleinste Umtaufe eine Katastrophe für ev. hunderte
AS-skripts bedeutet! Zb nach kopieren des AS auf andere Computer...

Auf OS9 gabs den Pfad-Befehl: "Verweis einsetzen".
Ich finde den nicht auf OSX und er ist zudem sehr eingeschränkt.(zu simpel):
Da sich sonst niemand für ein All-in-one Skript zur Pfad-Auswahl zu trauen scheint, ich opfere mich mal ans Messer "

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


Zuletzt bearbeitet von spirigwi am 09.01.2007 - 07:24, insgesamt 34-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: 13.01.2005 - 18:13    Titel: Antworten mit Zitat

EDIT 1.1.07 und OSX-only am 14.1.07 und gleich ein neuer Wurf eines alten Snippets
Konzept:
• Übersicht! Weg mit unnötigen propertys
• Neustrukturierung des Ausgabe-Resultates
(ZB: Pfad ausserh.Finder-Tell-Block)
• Dieses ERSTE von 3 Skripts berücksichtigt nur OSX
• restliche (OSX_9_Smile) ebenfalls re-EDITIERT
hat Folgendes geschrieben:
(*
EDIT OSX10.4: Probleme mit DiaHandler():
icon 3 -- 0=>Hand--1=>Sprechblase2 =GelbesDreieck grösser 2(ZB3) => OHNE!icon
auf OSX10.4 geht nur icon 0,1,2 bei 3 fehlt dann eine resource.
*)
--globals an Script-Kopf



global NeuPfadName --ZweckAliasPfadMachER() --oooo -
global STARTNAME, StartnameLang, Text1ALIASPfad, Text2ALIASPfad, Text1FILEPfad, Text2FILEPfad, Text1FOLDERPfad, Text2FOLDERPfad --PROPERTYER() --ooooo
global Butt1, Butt2, Butt3, AppDiaLeser, DisplMeldung, DefAnsw, ButtList0bis3, DefButt, IcNr, GivUp, TextAntw, ButtAntw --dia
--DiaHandler() --Variablen-Reihenfolge nach Vorgabe des Handler-Funktionsablaufes
global AusExt1ProDia1Bis4, AusExt2ProDia1Bis4, SkriptInhalt --ALIASpfadenER() --oooo
global ChooseALIASStringEIN, ClipInhalt, SkriptInhalt --ALIASpfadenER() --oooo
global ChooseFolderPFADStringEIN, ClipInhalt, SkriptInhalt --ORDNERpfadenER() --oooo
global ChooseFileStringEIN, ClipInhalt, SkriptInhalt -- FILEpfadenER() --oooo
global PfadOrdnerAliasGechoost --OrdnerAliasPfadER() --ooooooooooooooo


-- ==================================================
----------------------------------- fixe Texte/Programme
property ANFZ : "\""
-- ==================================================
my ChoosePfadER_Al_Gro_P_ER() --oooo

on ChoosePfadER_Al_Gro_P_ER() --oooo
   my PROPERTYER() --ooooo
   --#################################
   my DiaMASKE0() --oooo
   my DiaHandler() --oooo
   -------<------HIER END ################
   if ButtAntw = Butt1 then -- "•Alias"
      return my ALIASpfadenER() --oooo
   end if
   --
   if ButtAntw = Butt2 then --"•Ordner(od.via Alias)"
      return my ORDNERpfadenER() --oooo
   end if
   --
   if ButtAntw = Butt3 then --"•File(od.via Alias)"
      return my FILEpfadenER() --oooo
   end if
end ChoosePfadER_Al_Gro_P_ER

on ALIASpfadenER() --oooo
   set ChooseALIAS to {}
   --#################################
   my DiaMASKE5() --oooo
   my DiaHandler() --oooo
   -------<------HIER END ################
   if ButtAntw = Butt1 then -- "•Pfad zum Alias eines Ordner"
      my OrdnerAliasPfadER() --ooooooooo
      set ChooseALIASStringEIN to PfadOrdnerAliasGechoost
   else --es soll mit choose file ein fileAlias gewählt werden
      set PromptAliasTEX to "wähle EXQUISIT ein File-Alias, Ergebnis=Pfad zum Alias, " & ¬
         " [CODæ]+D wenn auf Desktop" as string
      activate
      set ChooseALIAS to choose file with prompt PromptAliasTEX
      set ChooseALIASStringEIN to ChooseALIAS as string
      --
      set AliasPfad to {}
      set NichtAliasTEX to "Es wurde ein • FILE !
(und NICHT ein • ALIAS)
angewählt:
_________________________
Nochmals versuchen: • ALIAS
zwecks dessen Standort-Lesung
auf Namenneutraler Platte
anwählen!"
      tell application "Finder"
         try
            set AliasPfad to (reveal original item of file ChooseALIAS) as string
            --betr. reveal: bei mir auf OSX 10.3 steigt reveal gelegentlich aus!
            --Snow: Der Befehl hat sich doch gar nicht geändert und funktioniert auch unter OS X noch.
            --http://www.fischer-bayern.de/phpBB2/viewtopic.php?t=2327
         on error
            --error NichtAliasTEX number -1728-->blinkt im Hintergrund!!
            tell current application to activate
            tell current application to error NichtAliasTEX
         end try
      end tell
      if AliasPfad = {} then
         --error NichtAliasTEX number -1728-->blinkt im Hintergrund!!
         tell current application to activate
         tell current application to error NichtAliasTEX
      end if
      (* --falls reveal original item nicht kompilierbar
tell application "Finder" to set art to kind of ChooseALIAS
if art is not "Alias" then --Tipp von Skeeve
--#################################
my DiaMASKE4() --oooo
my DiaHandler() --oooo
-------<------HIER END ################
return
end if
*)
      --
      
   end if --ordnerAlias oder fileAlias
   
   set ALIAsPFADOhneHD to my HDloserALIASPfadER() --oooo
   set AliasPFADMitHD to ChooseALIASStringEIN
   -----------------------------------------------
   set AusExt1ProDia1Bis4 to ALIAsPFADOhneHD
   set AusExt2ProDia1Bis4 to AliasPFADMitHD
   --Dia1Bis4DIALOG------------------------------------------
   -------START_Dialog-SkriptStart und Verwertung --################
   my DiaMASKE1() --oooo
   my DiaHandler() --oooo
   -------<------HIER END ################
   if ButtAntw = Butt1 then --Butt1--=- "= [COD æ]-C obiger Text"
      set ClipInhalt to "\"" & AliasPFADMitHD & "\""
      my ClipBoFullAusClipInhaltER() --füllt clipboard mit ClipInhalt
      return my FrontSmileOdScriptEditorER() --oooo
   else --Butt2--= "= [COD æ]-C obiges Skript"
      if ButtAntw = Butt2 then
         set SkriptInhalt to ¬
            Text1ALIASPfad & ¬
            ALIAsPFADOhneHD & ¬
            Text2ALIASPfad & return & ¬
            "\"" & ChooseALIASStringEIN & "\""
         ----------------------------------
         set ClipInhalt to SkriptInhalt
         my ClipBoFullAusClipInhaltER() --füllt clipboard mit ClipInhalt
         my NeuesASfileZweckAliasPfadMachER() --oooo
      end if
      --Ende_S R I P T Dia1Bis4-----------------------------
   end if --???????????
   return SkriptInhalt
end ALIASpfadenER



on ORDNERpfadenER() --oooo
set ChooseFolderPFAD to {}
set PromptFolderTEX to "wähle ein Folder/(Folder-Alias), Pfad gibt dann an wo Folder liegt" & ¬
" [CODæ]+D wenn auf Desktop" as string
activate
set ChooseFolderPFAD to choose folder with prompt PromptFolderTEX
try --EDIT 7.1.07
tell application "Finder"
set AliasPfad to (reveal original item of file ChooseFolderPFAD) as string
--Snow: Der Befehl hat sich doch gar nicht geändert und funktioniert auch unter OS X noch.
--http://www.fischer-bayern.de/phpBB2/viewtopic.php?t=2327
--wenn gelingt wärs ein Alias!
--unten würde ChooseFolderPFAD mit reveal -Res überschrieben
-- bei try zählt nur VOLLES gelingen!
set ChooseFolderPFAD to AliasPfad
end tell
end try
set ChooseFolderPFADStringEIN to ChooseFolderPFAD as string
-----------------------------------------
set folderPFADOhneHD to my HDloserORDNERPfadER() --oooo
set OrdnerPFADMitHD to ChooseFolderPFADStringEIN
-----------------------------------------------------
set AusExt1ProDia1Bis4 to folderPFADOhneHD
set AusExt2ProDia1Bis4 to ChooseFolderPFAD
-------START_Dialog-SkriptStart und Verwertung --################
my DiaMASKE2() --oooo
my DiaHandler() --oooo
--------END_Dialog-SkriptStart und Verwertung--##################
--Dia1Bis4DIALOG----------------------------------------
if ButtAntw = Butt1 then -- "= [COD æ]-C obiger Text"
set ClipInhalt to "\"" & OrdnerPFADMitHD & "\""
my ClipBoFullAusClipInhaltER() --füllt clipboard mit ClipInhalt
return my FrontSmileOdScriptEditorER() --oooo
else --ButAntwDia1Bis4 = Bu2Dia1Bis4 --= "= [COD æ]-C obiges Skript"
if ButtAntw = Butt2 then -- "= [COD æ]-C obiges Skript"=default
set SkriptInhalt to ¬
Text1FOLDERPfad & ¬
folderPFADOhneHD & ¬
Text2FOLDERPfad & return & ¬
"\"" & ChooseFolderPFADStringEIN & "\""
----------------------------------
set ClipInhalt to SkriptInhalt
my ClipBoFullAusClipInhaltER() --füllt clipboard mit ClipInhalt
try -- xxx
my NeuesASfileZweckFOLDERPfadMachER() --oooo
on error
my FrontSmileOdScriptEditorER() --oooo
end try
end if
--Ende_S R I P T Dia1Bis4-----------------------------
end if
return SkriptInhalt
end ORDNERpfadenER

on FILEpfadenER() --oooo
set FilePFAD to my ChooseFileER() --oooo as string
try --EDIT 7.1.07
tell application "Finder"
set AliasPfad to (reveal original item of file FilePFAD) as string
--Snow: Der Befehl hat sich doch gar nicht geändert und funktioniert auch unter OS X noch.
--http://www.fischer-bayern.de/phpBB2/viewtopic.php?t=2327
--wenn gelingt wärs ein Alias!
--unten würde FilePFAD mit reveal -Res überschrieben
-- bei try zählt nur VOLLES gelingen!
set FilePFAD to AliasPfad
end tell
end try
set ChooseFileStringEIN to FilePFAD
--
set FilePFADMitHD to FilePFAD
set FilePFADOhneHD to my HDloserFilePfadER() --ooooo
-----------------------------------------------
set AusExt1ProDia1Bis4 to FilePFADOhneHD
set AusExt2ProDia1Bis4 to FilePFADMitHD
--Dia1Bis4DIALOG------------------------------------------
-------START_Dialog-SkriptStart und Verwertung --################
my DiaMASKE3() --oooo
my DiaHandler() --oooo
-------<------HIER END ################
if ButtAntw = Butt1 then --Butt1--=- "= [COD æ]-C obiger Text"
set ClipInhalt to "\"" & FilePFADMitHD & "\""
my ClipBoFullAusClipInhaltER() --füllt clipboard mit ClipInhalt
return my FrontSmileOdScriptEditorER() --oooo
else --Butt2--= "= [COD æ]-C obiges Skript"
if ButtAntw = Butt2 then
set SkriptInhalt to ¬
Text1FILEPfad & ¬
FilePFADOhneHD & ¬
Text2FILEPfad & return & ¬
"\"" & ChooseFileStringEIN & "\""
----------------------------------
set ClipInhalt to SkriptInhalt
my ClipBoFullAusClipInhaltER() --füllt clipboard mit ClipInhalt
try
my NeuesASfileZweckFILEPfadMachER() --oooo
on error
my FrontSmileOdScriptEditorER() --oooo
end try
end if
--Ende_S R I P T Dia1Bis4-----------------------------
end if
return SkriptInhalt
end FILEpfadenER

on ChooseFileER() --oooo
activate
set ChooseFilePFAD to (choose file with prompt " wähle File/oder dessen Alias, [CODæ]+D wenn auf Schreibtisch") as string
set ChooseFileStringEIN to ChooseFilePFAD as string
end ChooseFileER

on HDloserALIASPfadER() --oooo
set ALIASStringAUS to ""
set ChooseALIASStringEINNr to 1 -- x
set ChooseALIASStringEINLang to length of ChooseALIASStringEIN
repeat while ChooseALIASStringEINNr < ChooseALIASStringEINLang + 1
set AktItem to (item ChooseALIASStringEINNr of ChooseALIASStringEIN)
if ChooseALIASStringEINNr - 1 < StartnameLang + 1 then
repeat with aa from 1 to ChooseALIASStringEINLang
set ALIASStringAUS to (ALIASStringAUS) as string
exit repeat
end repeat
else
set ALIASStringAUS to (ALIASStringAUS & AktItem) as string
end if
set ChooseALIASStringEINNr to ChooseALIASStringEINNr + 1
end repeat
return ALIASStringAUS as string
end HDloserALIASPfadER

on HDloserORDNERPfadER() --oooo
(*
if item 1-1??? of ChooseFolderPFADStringEIN is not STARTNAME then
tell current application to activate
display dialog ChooseFolderPFADStringEIN
end if
*)
set FolderStringAUS to ""
set ChooseFolderPFADStringEINNr to 1 -- x
set ChooseFolderPFADStringEINLang to length of ChooseFolderPFADStringEIN
repeat while ChooseFolderPFADStringEINNr < ChooseFolderPFADStringEINLang + 1
set AktItem to (item ChooseFolderPFADStringEINNr of ChooseFolderPFADStringEIN)
if ChooseFolderPFADStringEINNr - 1 < StartnameLang + 1 then
repeat with aa from 1 to ChooseFolderPFADStringEINLang
set FolderStringAUS to (FolderStringAUS) as string
exit repeat
end repeat
else
set FolderStringAUS to (FolderStringAUS & AktItem) as string
end if
set ChooseFolderPFADStringEINNr to ChooseFolderPFADStringEINNr + 1
end repeat
return FolderStringAUS as string
end HDloserORDNERPfadER


on HDloserFilePfadER() --ooooo
set FileStringAUS to ""
set ChooseFileStringEINNr to 1 --
set ChooseFileStringEINLang to length of ChooseFileStringEIN --ChooseFileStringEIN in propertys
repeat while ChooseFileStringEINNr < ChooseFileStringEINLang + 1
set AktItem to (item ChooseFileStringEINNr of ChooseFileStringEIN)
if ChooseFileStringEINNr - 1 < StartnameLang + 1 then
repeat with aa from 1 to ChooseFileStringEINLang
set FileStringAUS to (FileStringAUS) as string
exit repeat
end repeat
else
set FileStringAUS to (FileStringAUS & AktItem) as string
end if
set ChooseFileStringEINNr to ChooseFileStringEINNr + 1
end repeat
return FileStringAUS as string -- set FilePFAD to
end HDloserFilePfadER

on OrdnerAliasPfadER() --ooooooooooooooo
set AliasseListeGeTextet to {}
tell application "Finder"
set OrdnerMitAliassen to ¬
(choose folder with prompt ¬
"Ordner mit Alias-Dateien auswählen(sobald Alias sichtbar, mit \"Auswählen\" weiterfahren!)")
set AliasLISTE to (every alias file of OrdnerMitAliassen)
repeat with EinAlias in AliasLISTE
set AliasseListeGeTextet to AliasseListeGeTextet & (EinAlias as text)
end repeat
--
set NichtOrdnerAliasTEX to "Du hast kein Ordner-Alias als Ziel des gesuchten Pfades ausgewählt"

try
set PfadOrdnerAliasGechoost to ¬
(choose from list AliasseListeGeTextet with prompt "Alias auswählen") as text
on error
tell current application to activate
tell current application to error NichtOrdnerAliasTEX
end try
end tell
PfadOrdnerAliasGechoost -->"mcchef:Desktop Folder:McNETZ_ALIASE:Aufräumen Alias "
end OrdnerAliasPfadER

on DiaMASKE0() --ooooo
----------Dialog-EINGABEMASKE-beeinflusst gänzlich den Dia-Ablauf
set Butt1 to "•Alias"
set Butt2 to "•Ordner(od.via Alias)"
set Butt3 to "•File(od.via Alias)"
set ButtList0bis3 to {Butt1, Butt2, Butt3} --{}-> cave "cancelet"
set DefButt to 3 --0->OHNE Default Button
set AppDiaLeser to "Finder" --"FileMaker Pro" --"Skript Editor" --"Smile"
set DisplMeldung to "Welche der 3 Möglichkeiten für Pfad?
• File:(ZB Programm, Disk Copy-Image = file!)
->•• bei ALIAS-Anwahl-->Pfad zum Original!
->•• ev danach Skript-Namen aus file holen!
• Ordner,Disk,Festplatte
• Alias: -->Pfad zum Alias

choosen ab Schreibtisch = æ_D "

set DefAnsw to 0 --0->reiner BUTTON-Dialog, ""->BUTTON-TEXT-Dialog
set IcNr to 1 --0=>Hand--1=>Sprechblase2 =GelbesDreieck grösser 2(ZB3) => OHNE!icon
set GivUp to 0 --0-->unendlich.Für Zeit-Limit:Sekunden-Zahl
----------Dialog-EINGABEMASKE end DiaMASKE0
end DiaMASKE0

on DiaMASKE1() --oooo
set Titel1Dia1Bis4 to " OK= Skript -->Zwspeicher für
[COD æ]-V (past) -->SkriptEditor
______
tell application " & ANFZ & "Finder" & ANFZ & "
set PFAD to (first item of (list disks)) as string &" & ANFZ & ":" & ANFZ & "& ¬
" & ANFZ
set Titel3Dia1Bis4 to "\"" & AusExt1ProDia1Bis4 & "\""
set Titel2Dia1Bis4 to ANFZ & return & ¬
"open file PFAD
--SkriptName() of (load script file PFAD)
end tell
"
----------Dialog-EINGABEMASKE-beeinflusst gänzlich den Dia-Ablauf
set Butt1 to "=>[COD æ]-C obiger Text"
set Butt2 to "•ALIAS"
--set Butt3 to "•File(od.via Alias)"
set ButtList0bis3 to {Butt1, Butt2} --{}-> cave "cancelet"
set DefButt to 2 --0->OHNE Default Button
set AppDiaLeser to "Finder" --"FileMaker Pro" --"Skript Editor" --"Smile"
set DisplMeldung to Titel1Dia1Bis4 & AusExt1ProDia1Bis4 & Titel2Dia1Bis4 & Titel3Dia1Bis4

set DefAnsw to AusExt2ProDia1Bis4 as string
set IcNr to 2 --0=>Hand--1=>Sprechblase2 =GelbesDreieck grösser 2 OSX4 geht nur 0,1,2
set GivUp to 0 --0-->unendlich.Für Zeit-Limit:Sekunden-Zahl
----------Dialog-EINGABEMASKE
end DiaMASKE1

on DiaMASKE2() --oooo
set Titel1Dia1Bis4 to " OK= Skript -->Zwspeicher für
[COD æ]-V (past) -->SkriptEditor
______
tell application " & ANFZ & "Finder" & ANFZ & "
set PFAD to (first item of (list disks)) as string &" & ANFZ & ":" & ANFZ & "& ¬
" & ANFZ
set Titel3Dia1Bis4 to "\"" & AusExt1ProDia1Bis4 & "\""
set Titel2Dia1Bis4 to ANFZ & return & ¬
"open file PFAD
--SkriptName() of (load script file PFAD)
end tell
"
----------Dialog-EINGABEMASKE-beeinflusst gänzlich den Dia-Ablauf
set Butt1 to "=>[COD æ]-C obiger Text"
set Butt2 to "•ORDNER/o.ALIAS des ORDNER"
--set Butt3 to "•File(od.via Alias)"
set ButtList0bis3 to {Butt1, Butt2} --{}-> cave "cancelet"
set DefButt to 2 --0->OHNE Default Button
set AppDiaLeser to "Finder" --"FileMaker Pro" --"Skript Editor" --"Smile"
set DisplMeldung to Titel1Dia1Bis4 & AusExt1ProDia1Bis4 & Titel2Dia1Bis4 & Titel3Dia1Bis4

set DefAnsw to AusExt2ProDia1Bis4 as string
set IcNr to 2 --0=>Hand--1=>Sprechblase2 =GelbesDreieck grösser 2 OSX4 geht nur 0,1,2
set GivUp to 0 --0-->unendlich.Für Zeit-Limit:Sekunden-Zahl
----------Dialog-EINGABEMASKE
end DiaMASKE2

on DiaMASKE3() --oooo
set Titel1Dia1Bis4 to " OK= Skript -->Zwspeicher für
[COD æ]-V (past) -->SkriptEditor
______
tell application " & ANFZ & "Finder" & ANFZ & "
set PFAD to (first item of (list disks)) as string &" & ANFZ & ":" & ANFZ & "& ¬
" & ANFZ
set Titel3Dia1Bis4 to "\"" & AusExt1ProDia1Bis4 & "\""
set Titel2Dia1Bis4 to ANFZ & return & ¬
"open file PFAD
--SkriptName() of (load script file PFAD)
end tell
"
----------Dialog-EINGABEMASKE-beeinflusst gänzlich den Dia-Ablauf
set Butt1 to "=>[COD æ]-C obiger Text"
set Butt2 to "•FILE(od.via Alias)"
--set Butt3 to "•File(od.via Alias)"
set ButtList0bis3 to {Butt1, Butt2} --{}-> cave "cancelet"
set DefButt to 2 --0->OHNE Default Button
set AppDiaLeser to "Finder" --"FileMaker Pro" --"Skript Editor" --"Smile"
set DisplMeldung to Titel1Dia1Bis4 & AusExt1ProDia1Bis4 & Titel2Dia1Bis4 & Titel3Dia1Bis4

set DefAnsw to AusExt2ProDia1Bis4 as string
set IcNr to 2 --0=>Hand--1=>Sprechblase2 =GelbesDreieck grösser 2 OSX4 geht nur 0,1,2
set GivUp to 0 --0-->unendlich.Für Zeit-Limit:Sekunden-Zahl
----------Dialog-EINGABEMASKE
end DiaMASKE3

on DiaMASKE4() --ooooo
----------Dialog-EINGABEMASKE-beeinflusst gänzlich den Dia-Ablauf
set Butt1 to "Ich muss hier das Skript ABBRECHEN"

set ButtList0bis3 to {Butt1} --{}-> cave "cancelet"
set DefButt to 1 --0->OHNE Default Button
set AppDiaLeser to "Finder" --"FileMaker Pro" --"Skript Editor" --"Smile"
set DisplMeldung to "Es wurde ein • FILE !
(und NICHT ein • ALIAS)
angewählt:
_________________________
Nochmals versuchen: • ALIAS
zwecks dessen Standort-Lesung
auf Namenneutraler Platte
anwählen!"
set DefAnsw to 0 --0->reiner BUTTON-Dialog, ""->BUTTON-TEXT-Dialog
set IcNr to 1 --0=>Hand--1=>Sprechblase2 =GelbesDreieck grösser 2(ZB3) => OHNE!icon
set GivUp to 0 --0-->unendlich.Für Zeit-Limit:Sekunden-Zahl
----------Dialog-EINGABEMASKE end DiaMASKE0
end DiaMASKE4

on DiaMASKE5() --ooooo
----------Dialog-EINGABEMASKE-beeinflusst gänzlich den Dia-Ablauf
set Butt1 to "•Pfad zum Alias eines Ordner"
set Butt2 to "•Pfad zum Alias eines Files"
--set Butt3 to "•File(od.via Alias)"
set ButtList0bis3 to {Butt1, Butt2} --{}-> cave "cancelet"
set DefButt to 2 --0->OHNE Default Button
set AppDiaLeser to "Finder" --"FileMaker Pro" --"Skript Editor" --"Smile"
set DisplMeldung to "Wähle einer der 2 Möglichkeiten, den Pfad zu einem Alias hin zu gewinnen "

set DefAnsw to 0 --0->reiner BUTTON-Dialog, ""->BUTTON-TEXT-Dialog
set IcNr to 1 --0=>Hand--1=>Sprechblase2 =GelbesDreieck grösser 2(ZB3) => OHNE!icon
set GivUp to 0 --0-->unendlich.Für Zeit-Limit:Sekunden-Zahl
----------Dialog-EINGABEMASKE end DiaMASKE5
end DiaMASKE5

on DiaHandler() --oooo Dialog-Handler ans ENDE des Skriptes
set TextButtAntw to {}
tell application AppDiaLeser to activate
--DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
if DefAnsw is not 0 then --Text-Antwort
tell application AppDiaLeser to ¬
set DsplDia ¬
to display dialog DisplMeldung ¬
default answer DefAnsw ¬
buttons ButtList0bis3 ¬
default button DefButt with icon 2 ¬
giving up after GivUp --GivUp --not! activate!->Res"" --xxxxxxxxx IcNr
set TextButtAntw to {text returned, button returned} of DsplDia
set TextAntw to item 1 of TextButtAntw
set ButtAntw to item 2 of TextButtAntw
else --Butt-Antwort
tell application AppDiaLeser to ¬
set DsplDia ¬
to display dialog DisplMeldung ¬
buttons ButtList0bis3 ¬
default button DefButt ¬
with icon IcNr ¬
giving up after GivUp --not! activate!->Res""
set TextButtAntw to {button returned} of DsplDia
set ButtAntw to item 1 of TextButtAntw
set TextAntw to "kein Text-Antwort-Dialog!"
end if
end DiaHandler

on ClipBoFullAusClipInhaltER() --ooooo
try
set the clipboard to ClipInhalt -- ok
on error
beep 3
try
tell application "Finder"
activate
set ClipInhalt to "" & ClipInhalt --nötig!
set the clipboard to ClipInhalt as text --the !!
end tell
on error
activate (display dialog ¬
"Darf nicht auftreten ")
end try
end try
end ClipBoFullAusClipInhaltER

on FrontSmileOdScriptEditorER() --oooo
tell application "Script Editor" to activate ----
end FrontSmileOdScriptEditorER


--Komplexe Inhalte der neu erstellten Script Editor-Scripts
on Texter1ALIASPfad() --oooo
" -- ==================================================
global STARTNAME, ClipInhalt --PROPERTYER()--ooooo
-- ==================================================
my PROPERTYER()--ooooo
----------------
on PROPERTYER()--ooooo
set STARTNAME to (first item of (list disks)) as string
--

--
end PROPERTYER
---------------------property MUSTER-----------------
my AName1()--ooooo
on AName1()--ooooo
--set STARTNAME to (first item of (list disks)) as string
set PfAlias to STARTNAME & \":\" & ¬
\""
end Texter1ALIASPfad

on Texter2ALIASPfad() --oooo
"\"" & "
tell application \"FINDER\"-- \"System Events\"
open file PfAlias --für FILE! --oder Alias
activate
end tell
end AName1
"
end Texter2ALIASPfad

on Texter1FOLDERPfad() --oooo
" -- ==================================================
global STARTNAME, ClipInhalt --PROPERTYER()--ooooo
-- ==================================================
my PROPERTYER()--ooooo
----------------
on PROPERTYER()--ooooo
set STARTNAME to (first item of (list disks)) as string
--

--
end PROPERTYER
---------------------property MUSTER-----------------
my FoldName1()--ooooo
on FoldName1()--ooooo
--set STARTNAME to (first item of (list disks)) as string
set PfFold to STARTNAME & \":\" & ¬
\""
end Texter1FOLDERPfad

on Texter2FOLDERPfad() --oooo--ooooo
"\"
tell application \"FINDER\"-- \"System Events\"
open folder PfFold --für ORDNER!
activate
end tell
end FoldName1
"

end Texter2FOLDERPfad

on Texter1FILEPfad() --oooo
" -- ==================================================
global STARTNAME, ClipInhalt --PROPERTYER()--ooooo
-- ==================================================
my PROPERTYER()--ooooo
----------------
on PROPERTYER()--ooooo
global STARTNAME, ClipInhalt --PROPERTYER()--ooooo
set STARTNAME to (first item of (list disks)) as string
--
set ClipInhalt to \"xxxxxxxxxxxx\"
--
end PROPERTYER
---------------------property MUSTER-----------------
my FileEvLoadScript1()--ooooo
--
on FileEvLoadScript1()--ooooo
-- (first item of (list disks)) as string = STARTNAME
set PfFile to STARTNAME & \":\" & ¬
\""
end Texter1FILEPfad

on Texter2FILEPfad() --oooo
"\"" & "
--FMScriptName(ClipInhalt) of (load script file PfFile) --FMScriptName=ZB als Anteil des FileNamens
--(*--für load script entbehrlich
tell application \"FINDER\"-- \"System Events\"--für load script entbehrlich
open file PfFile --für FILE! --oder Alias
activate
end tell--für load script entbehrlich
--*)
end FileEvLoadScript1
"
end Texter2FILEPfad
--*)
on NeuesASfileZweckAliasPfadMachER() --oooo
set NeuPfadName to "NeuAliasPfad"
my OSXScriptEditorNeuPfadER() --oooo=alternativ
end NeuesASfileZweckAliasPfadMachER

on NeuesASfileZweckFOLDERPfadMachER() --oooo
set NeuPfadName to "NeuFOLDERPfad"
my OSXScriptEditorNeuPfadER() --oooo=alternativ
end NeuesASfileZweckFOLDERPfadMachER

on NeuesASfileZweckFILEPfadMachER() --oooo
set NeuPfadName to "NeuFILEPfad"
my OSXScriptEditorNeuPfadER() --oooo=alternativ
end NeuesASfileZweckFILEPfadMachER

on OSXScriptEditorNeuPfadER() --oooo
--display dialog "Wenn handler lauffähig, mache ich neus Editor-file"
--(*--OSX
try
my FrontSmileOdScriptEditorER() --oooo
end try
tell application "Script Editor" --"Smile" --"Script Editor"
activate
set newScript to make new document
set text of newScript to SkriptInhalt
set name of newScript to NeuPfadName
end tell
--*)
end OSXScriptEditorNeuPfadER

on PROPERTYER() --ooooo
set STARTNAME to (first item of (list disks)) as string
--hier propertys definieren
set StartnameLang to length of STARTNAME
set Text1ALIASPfad to my Texter1ALIASPfad() --oooo
set Text2ALIASPfad to my Texter2ALIASPfad() --oooo
set Text1FILEPfad to my Texter1FILEPfad() --oooo
set Text2FILEPfad to my Texter2FILEPfad() --oooo
set Text1FOLDERPfad to my Texter1FOLDERPfad() --oooo
set Text2FOLDERPfad to my Texter2FOLDERPfad() --oooo
end PROPERTYER


Zuletzt bearbeitet von spirigwi am 28.05.2007 - 22:13, insgesamt 24-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: 13.01.2005 - 18:47    Titel: Antworten mit Zitat

Die maximale Zeichenanzahl eines Texteingabefensters ist begrenzt. Bei Mammut-Skripten reicht's halt dann oft nicht mehr aus, da der farbig formatierte Text ganz deutlich länger ist. - Das sind die Grenzen der Technik.
_________________
Peter
-
Fischer-Bayern.de|Shadetreemicro.com


Zuletzt bearbeitet von Snow am 15.01.2005 - 23:56, insgesamt einmal bearbeitet
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: 13.01.2005 - 18:57    Titel: SNIPPET 2 mit Option: Generierung eines Editor-Files Antworten mit Zitat

SNIPPET2
Das erste ohne Generierung eines neuen Files, das Pfad-Skript befindet sich nach dem Snippet-Aufruf im Ziwschenspeicher:

OS9_X EDIT 2.1.07 hoffe massiv verbessert hat Folgendes geschrieben:
--(*--OS9_CLASSIC_Ev.OSX EDIT 2.1.07 nur noch wenige propertys
--globals an Script-Kopf
global STARTNAME, StartnameLang, Text1ALIASPfad, Text2ALIASPfad, Text1FILEPfad, Text2FILEPfad, Text1FOLDERPfad, Text2FOLDERPfad --PROPERTYER() --ooooo
global Butt1, Butt2, Butt3, AppDiaLeser, DisplMeldung, DefAnsw, ButtList0bis3, DefButt, IcNr, GivUp, TextAntw, ButtAntw --dia
--DiaHandler() --Variablen-Reihenfolge nach Vorgabe des Handler-Funktionsablaufes
global AusExt1ProDia1Bis4, AusExt2ProDia1Bis4, SkriptInhalt --ALIASpfadenER() --oooo
global ChooseALIASStringEIN, ClipInhalt, SkriptInhalt --ALIASpfadenER() --oooo
global ChooseFolderStringEIN, ClipInhalt, SkriptInhalt --ORDNERpfadenER() --oooo
global ChooseFileStringEIN, ClipInhalt, SkriptInhalt -- FILEpfadenER() --oooo
-- ==================================================
----------------------------------- fixe Texte/Programme
property ANFZ : "\""
-- ==================================================
my ChoosePfadER_Al_Gro_P_ER() --oooo

on PROPERTYER() --ooooo
set STARTNAME to (first item of (list disks)) as string
--hier propertys definieren
set StartnameLang to length of STARTNAME
set Text1ALIASPfad to my Texter1ALIASPfad() --oooo
set Text2ALIASPfad to my Texter2ALIASPfad() --oooo
set Text1FILEPfad to my Texter1FILEPfad() --oooo
set Text2FILEPfad to my Texter2FILEPfad() --oooo
set Text1FOLDERPfad to my Texter1FOLDERPfad() --oooo
set Text2FOLDERPfad to my Texter2FOLDERPfad() --oooo
end PROPERTYER

on ChoosePfadER_Al_Gro_P_ER() --oooo
   
my PROPERTYER() --ooooo
   --
#################################
   
my DiaMASKE0() --oooo
   
my DiaHandler() --oooo
   --
-----<------HIER entsprechend konfigurieren
   
if ButtAntw = Butt1 then -- "•Alias"
      
return my ALIASpfadenER() --oooo
   
end if
   --

   
if ButtAntw = Butt2 then --"•Ordner(od.via Alias)"
      
return my ORDNERpfadenER() --oooo
   
end if
   --

   
if ButtAntw = Butt3 then --"•File(od.via Alias)"
      
return my FILEpfadenER() --oooo
   
end if
end ChoosePfadER_Al_Gro_P_ER


on ALIASpfadenER() --oooo
   
tell application "Finder"
      
set ChooseALIAS to {}
      
set PromptAliasTEX to "wähle EXQUISIT ein Alias,Pfad gibt dann an wo´s liegt," & ¬
         "
[CODæ]+D wenn auf Desktop" as string
      
set ChooseALIAS to choose file with prompt PromptAliasTEX
      
set ChooseALIASStringEIN to ChooseALIAS as string
      --

      
tell application "Finder" to set art to kind of ChooseALIAS
      
if art is not "Alias" then --Tipp von Skeeve
         --
#################################
         
my DiaMASKE4() --oooo
         
my DiaHandler() --oooo
         --
-----<------HIER entsprechend konfigurieren
         
return
      
end if
      --

      
set ALIAsPFADOhneHD to my HDloserALIASPfadER() --oooo
      
set AliasPFADMitHD to ChooseALIASStringEIN
      --
---------------------------------------------
      
set AusExt1ProDia1Bis4 to ALIAsPFADOhneHD
      
set AusExt2ProDia1Bis4 to AliasPFADMitHD
      --
Dia1Bis4DIALOG------------------------------------------
      --
-----START_Dialog-SkriptStart und Verwertung --################
      
my DiaMASKE1() --oooo
      
my DiaHandler() --oooo
      --
-----<------HIER entsprechend konfigurieren
      
if ButtAntw = BUTT1 then --Butt1--=- "= [COD æ]-C obiger Text"
         
set ClipInhalt to "\"" & AliasPFADMitHD & "\""
         
my ClipBoFullAusClipInhaltER() --füllt clipboard mit ClipInhalt
         
return
      
else --Butt2--= "= [COD æ]-C obiges Skript"
         
if ButtAntw = Butt2 then
            
set SkriptInhalt to ¬
               
Text1ALIASPfad & ¬
               
ALIAsPFADOhneHD & ¬
               
Text2ALIASPfad & return & ¬
               "
\"" & ChooseALIASStringEIN & "\""
            --
--------------------------------
            
set ClipInhalt to SkriptInhalt
            
my ClipBoFullAusClipInhaltER() --füllt clipboard mit ClipInhalt
            --
#################################
            
my DiaMASKE5() --oooo
            
my DiaHandler() --oooo
         
end if
         --
Ende_S R I P T Dia1Bis4-----------------------------
      
end if
   
end tell
   
return SkriptInhalt
end ALIASpfadenER

on ORDNERpfadenER() --oooo
tell application "Finder"
set ChooseFolder to {}
set PromptFolderTEX to "wähle ein Folder/(Folder-Alias), Pfad gibt dann an wo Folder liegt" & ¬
" [CODæ]+D wenn auf Desktop" as string
set ChooseFolder to choose folder with prompt PromptFolderTEX
set ChooseFolderStringEIN to ChooseFolder as string
-----------------------------------------
set folderPFADOhneHD to my HDloserORDNERPfadER() --oooo
set OrdnerPFADMitHD to ChooseFolderStringEIN
-----------------------------------------------------
set AusExt1ProDia1Bis4 to folderPFADOhneHD
set AusExt2ProDia1Bis4 to ChooseFolder
-------START_Dialog-SkriptStart und Verwertung --################
my DiaMASKE2() --oooo
my DiaHandler() --oooo
--------END_Dialog-SkriptStart und Verwertung--##################
--Dia1Bis4DIALOG----------------------------------------
if ButtAntw = Butt1 then -- "= [COD æ]-C obiger Text"
set ClipInhalt to "\"" & OrdnerPFADMitHD & "\""
my ClipBoFullAusClipInhaltER() --füllt clipboard mit ClipInhalt
return
else --ButAntwDia1Bis4 = Bu2Dia1Bis4 --= "= [COD æ]-C obiges Skript"
if ButtAntw = Butt2 then -- "= [COD æ]-C obiges Skript"=default
set SkriptInhalt to ¬
Text1FOLDERPfad & ¬
folderPFADOhneHD & ¬
Text2FOLDERPfad & return & ¬
"\"" & ChooseFolderStringEIN & "\""
----------------------------------
set ClipInhalt to SkriptInhalt
my ClipBoFullAusClipInhaltER() --füllt clipboard mit ClipInhalt
--#################################
my DiaMASKE5() --oooo
my DiaHandler() --oooo
end if
--Ende_S R I P T Dia1Bis4-----------------------------
end if
end tell
return SkriptInhalt
end ORDNERpfadenER

on FILEpfadenER() --oooo
tell application "Finder"
set FilePFAD to my ChooseFileER() --oooo as string
try
set AliasPfad to result as string
--wenn gelingt wärs ein Alias!
--unten würde FilePFAD mit reveal -Res überschrieben
-- bei try zählt nur VOLLES gelingen!
set FilePFAD to AliasPfad
end try
set ChooseFileStringEIN to FilePFAD
--
set FilePFADMitHD to FilePFAD
set FilePFADOhneHD to my HDloserFilePfadER() --ooooo
-----------------------------------------------
set AusExt1ProDia1Bis4 to FilePFADOhneHD
set AusExt2ProDia1Bis4 to FilePFADMitHD
--Dia1Bis4DIALOG------------------------------------------
-------START_Dialog-SkriptStart und Verwertung --################
my DiaMASKE3() --oooo
my DiaHandler() --oooo
-------<------HIER entsprechend konfigurieren
if ButtAntw = Butt1 then --Butt1--=- "= [COD æ]-C obiger Text"
set ClipInhalt to "\"" & FilePFADMitHD & "\""
my ClipBoFullAusClipInhaltER() --füllt clipboard mit ClipInhalt
return
else --Butt2--= "= [COD æ]-C obiges Skript"
if ButtAntw = Butt2 then
set SkriptInhalt to ¬
Text1FILEPfad & ¬
FilePFADOhneHD & ¬
Text2FILEPfad & return & ¬
"\"" & ChooseFileStringEIN & "\""
----------------------------------
set ClipInhalt to SkriptInhalt
my ClipBoFullAusClipInhaltER() --füllt clipboard mit ClipInhalt
--#################################
my DiaMASKE5() --oooo
my DiaHandler() --oooo
end if
--Ende_S R I P T Dia1Bis4-----------------------------
end if
end tell
return SkriptInhalt
end FILEpfadenER

on ChooseFileER() --oooo
tell application "Finder"
activate
set ChooseFilePFAD to (choose file with prompt " wähle File/oder dessen Alias, [CODæ]+D wenn auf Schreibtisch") as string
set ChooseFileStringEIN to ChooseFilePFAD as string
end tell
end ChooseFileER

on HDloserALIASPfadER() --oooo
set ALIASStringAUS to ""
set ChooseALIASStringEINNr to 1 -- x
set ChooseALIASStringEINLang to length of ChooseALIASStringEIN
repeat while ChooseALIASStringEINNr < ChooseALIASStringEINLang + 1
set AktItem to (item ChooseALIASStringEINNr of ChooseALIASStringEIN)
if ChooseALIASStringEINNr - 1 < StartnameLang + 1 then
repeat with aa from 1 to ChooseALIASStringEINLang
set ALIASStringAUS to (ALIASStringAUS) as string
exit repeat
end repeat
else
set ALIASStringAUS to (ALIASStringAUS & AktItem) as string
end if
set ChooseALIASStringEINNr to ChooseALIASStringEINNr + 1
end repeat
return ALIASStringAUS as string
end HDloserALIASPfadER

on HDloserORDNERPfadER() --oooo
set FileStringAUS to ""
set ChooseFolderStringEINNr to 1 -- x
set ChooseFolderStringEINLang to length of ChooseFolderStringEIN
repeat while ChooseFolderStringEINNr < ChooseFolderStringEINLang + 1
set AktItem to (item ChooseFolderStringEINNr of ChooseFolderStringEIN)
if ChooseFolderStringEINNr - 1 < StartnameLang + 1 then
repeat with aa from 1 to ChooseFolderStringEINLang
set FileStringAUS to (FileStringAUS) as string
exit repeat
end repeat
else
set FileStringAUS to (FileStringAUS & AktItem) as string
end if
set ChooseFolderStringEINNr to ChooseFolderStringEINNr + 1
end repeat
return FileStringAUS as string
end HDloserORDNERPfadER


on HDloserFilePfadER() --ooooo
set FileStringAUS to ""
set ChooseFileStringEINNr to 1 --
set ChooseFileStringEINLang to length of ChooseFileStringEIN --ChooseFileStringEIN in propertys
repeat while ChooseFileStringEINNr < ChooseFileStringEINLang + 1
set AktItem to (item ChooseFileStringEINNr of ChooseFileStringEIN)
if ChooseFileStringEINNr - 1 < StartnameLang + 1 then
repeat with aa from 1 to ChooseFileStringEINLang
set FileStringAUS to (FileStringAUS) as string
exit repeat
end repeat
else
set FileStringAUS to (FileStringAUS & AktItem) as string
end if
set ChooseFileStringEINNr to ChooseFileStringEINNr + 1
end repeat
return FileStringAUS as string -- set FilePFAD to
end HDloserFilePfadER


on DiaMASKE0() --ooooo
----------Dialog-EINGABEMASKE-beeinflusst gänzlich den Dia-Ablauf
set Butt1 to "•Alias"
set Butt2 to "•Ordner(od.via Alias)"
set Butt3 to "•File(od.via Alias)"
set ButtList0bis3 to {Butt1, Butt2, Butt3} --{}-> cave "cancelet"
set DefButt to 3 --0->OHNE Default Button
set AppDiaLeser to "Finder" --"FileMaker Pro" --"Skript Editor" --"Smile"
set DisplMeldung to "Welche der 3 Möglichkeiten für Pfad?
• File:(ZB Programm, Disk Copy-Image = file!)
->•• bei ALIAS-Anwahl-->Pfad zum Original!
->•• ev danach Skript-Namen aus file holen!
• Ordner,Disk,Festplatte
• Alias: -->Pfad zum Alias

choosen ab Schreibtisch = æ_D "

set DefAnsw to 0 --0->reiner BUTTON-Dialog, ""->BUTTON-TEXT-Dialog
set IcNr to 1 --0=>Hand--1=>Sprechblase2 =GelbesDreieck grösser 2(ZB3) => OHNE!icon
set GivUp to 0 --0-->unendlich.Für Zeit-Limit:Sekunden-Zahl
----------Dialog-EINGABEMASKE end DiaMASKE0
end DiaMASKE0

on DiaMASKE1() --oooo
set Titel1Dia1Bis4 to " OK= Skript -->Zwspeicher für
[COD æ]-V (past) -->SkriptEditor
______
tell application " & ANFZ & "Finder" & ANFZ & "
set PFAD to (first item of (list disks)) as string &" & ANFZ & ":" & ANFZ & "& ¬
" & ANFZ
set Titel3Dia1Bis4 to "\"" & AusExt1ProDia1Bis4 & "\""
set Titel2Dia1Bis4 to ANFZ & return & ¬
"open file PFAD
--SkriptName() of (load script file PFAD)
end tell
"
----------Dialog-EINGABEMASKE-beeinflusst gänzlich den Dia-Ablauf
set Butt1 to "=>[COD æ]-C obiger Text"
set Butt2 to "•ALIAS"
--set Butt3 to "•File(od.via Alias)"
set ButtList0bis3 to {Butt1, Butt2} --{}-> cave "cancelet"
set DefButt to 2 --0->OHNE Default Button
set AppDiaLeser to "Finder" --"FileMaker Pro" --"Skript Editor" --"Smile"
set DisplMeldung to Titel1Dia1Bis4 & AusExt1ProDia1Bis4 & Titel2Dia1Bis4 & Titel3Dia1Bis4

set DefAnsw to AusExt2ProDia1Bis4 as string
set IcNr to 3 --0=>Hand--1=>Sprechblase2 =GelbesDreieck grösser 2(ZB3) => OHNE!icon
set GivUp to 0 --0-->unendlich.Für Zeit-Limit:Sekunden-Zahl
----------Dialog-EINGABEMASKE
end DiaMASKE1

on DiaMASKE2() --oooo
set Titel1Dia1Bis4 to " OK= Skript -->Zwspeicher für
[COD æ]-V (past) -->SkriptEditor
______
tell application " & ANFZ & "Finder" & ANFZ & "
set PFAD to (first item of (list disks)) as string &" & ANFZ & ":" & ANFZ & "& ¬
" & ANFZ
set Titel3Dia1Bis4 to "\"" & AusExt1ProDia1Bis4 & "\""
set Titel2Dia1Bis4 to ANFZ & return & ¬
"open file PFAD
--SkriptName() of (load script file PFAD)
end tell
"
----------Dialog-EINGABEMASKE-beeinflusst gänzlich den Dia-Ablauf
set Butt1 to "=>[COD æ]-C obiger Text"
set Butt2 to "•ORDNER/o.ALIAS des ORDNER"
--set Butt3 to "•File(od.via Alias)"
set ButtList0bis3 to {Butt1, Butt2} --{}-> cave "cancelet"
set DefButt to 2 --0->OHNE Default Button
set AppDiaLeser to "Finder" --"FileMaker Pro" --"Skript Editor" --"Smile"
set DisplMeldung to Titel1Dia1Bis4 & AusExt1ProDia1Bis4 & Titel2Dia1Bis4 & Titel3Dia1Bis4

set DefAnsw to AusExt2ProDia1Bis4 as string
set IcNr to 3 --0=>Hand--1=>Sprechblase2 =GelbesDreieck grösser 2(ZB3) => OHNE!icon
set GivUp to 0 --0-->unendlich.Für Zeit-Limit:Sekunden-Zahl
----------Dialog-EINGABEMASKE
end DiaMASKE2

on DiaMASKE3() --oooo
set Titel1Dia1Bis4 to " OK= Skript -->Zwspeicher für
[COD æ]-V (past) -->SkriptEditor
______
tell application " & ANFZ & "Finder" & ANFZ & "
set PFAD to (first item of (list disks)) as string &" & ANFZ & ":" & ANFZ & "& ¬
" & ANFZ
set Titel3Dia1Bis4 to "\"" & AusExt1ProDia1Bis4 & "\""
set Titel2Dia1Bis4 to ANFZ & return & ¬
"open file PFAD
--SkriptName() of (load script file PFAD)
end tell
"
----------Dialog-EINGABEMASKE-beeinflusst gänzlich den Dia-Ablauf
set Butt1 to "=>[COD æ]-C obiger Text"
set Butt2 to "•FILE(od.via Alias)"
--set Butt3 to "•File(od.via Alias)"
set ButtList0bis3 to {Butt1, Butt2} --{}-> cave "cancelet"
set DefButt to 2 --0->OHNE Default Button
set AppDiaLeser to "Finder" --"FileMaker Pro" --"Skript Editor" --"Smile"
set DisplMeldung to Titel1Dia1Bis4 & AusExt1ProDia1Bis4 & Titel2Dia1Bis4 & Titel3Dia1Bis4

set DefAnsw to AusExt2ProDia1Bis4 as string
set IcNr to 3 --0=>Hand--1=>Sprechblase2 =GelbesDreieck grösser 2(ZB3) => OHNE!icon
set GivUp to 0 --0-->unendlich.Für Zeit-Limit:Sekunden-Zahl
----------Dialog-EINGABEMASKE
end DiaMASKE3

on DiaMASKE4() --ooooo
----------Dialog-EINGABEMASKE-beeinflusst gänzlich den Dia-Ablauf
set Butt1 to "Ich muss hier das Skript ABBRECHEN"

set ButtList0bis3 to {Butt1} --{}-> cave "cancelet"
set DefButt to 1 --0->OHNE Default Button
set AppDiaLeser to "Finder" --"FileMaker Pro" --"Skript Editor" --"Smile"
set DisplMeldung to "Es wurde ein • FILE !
(und NICHT ein • ALIAS)
angewählt:
_________________________
Nochmals versuchen: • ALIAS
zwecks dessen Standort-Lesung
auf Namenneutraler Platte
anwählen!"
set DefAnsw to 0 --0->reiner BUTTON-Dialog, ""->BUTTON-TEXT-Dialog
set IcNr to 1 --0=>Hand--1=>Sprechblase2 =GelbesDreieck grösser 2(ZB3) => OHNE!icon
set GivUp to 0 --0-->unendlich.Für Zeit-Limit:Sekunden-Zahl
----------Dialog-EINGABEMASKE end DiaMASKE0
end DiaMASKE4

on DiaMASKE5() --ooooo
----------Dialog-EINGABEMASKE-beeinflusst gänzlich den Dia-Ablauf
set Butt1 to "ZB mit [COD æ]+ V in ein Editor-Fenster geben"

set ButtList0bis3 to {Butt1} --{}-> cave "cancelet"
set DefButt to 1 --0->OHNE Default Button
set AppDiaLeser to "Finder" --"FileMaker Pro" --"Skript Editor" --"Smile"
set DisplMeldung to "Das Skript für den Editor befindet sich nun im Zwischenspeicher"
set DefAnsw to 0 --0->reiner BUTTON-Dialog, ""->BUTTON-TEXT-Dialog
set IcNr to 1 --0=>Hand--1=>Sprechblase2 =GelbesDreieck grösser 2(ZB3) => OHNE!icon
set GivUp to 0 --0-->unendlich.Für Zeit-Limit:Sekunden-Zahl
----------Dialog-EINGABEMASKE end DiaMASKE0
end DiaMASKE5

on DiaHandler() --oooo Dialog-Handler ans ENDE des Skriptes
set TextButtAntw to {}
tell application AppDiaLeser to activate
--DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
if DefAnsw is not 0 then --Text-Antwort
tell application AppDiaLeser to ¬
set DsplDia ¬
to display dialog DisplMeldung ¬
default answer DefAnsw ¬
buttons ButtList0bis3 ¬
default button DefButt with icon IcNr ¬
giving up after GivUp --not! activate!->Res""
set TextButtAntw to {text returned, button returned} of DsplDia
set TextAntw to item 1 of TextButtAntw
set ButtAntw to item 2 of TextButtAntw
else --Butt-Antwort
tell application AppDiaLeser to ¬
set DsplDia ¬
to display dialog DisplMeldung ¬
buttons ButtList0bis3 ¬
default button DefButt ¬
with icon IcNr ¬
giving up after GivUp --not! activate!->Res""
set TextButtAntw to {button returned} of DsplDia
set ButtAntw to item 1 of TextButtAntw
set TextAntw to "kein Text-Antwort-Dialog!"
end if
end DiaHandler

on ClipBoFullAusClipInhaltER() --ooooo
try
set the clipboard to ClipInhalt -- ok
on error
beep 3
try
tell application "Finder"
activate
set ClipInhalt to "" & ClipInhalt --nötig!
set the clipboard to ClipInhalt as text --the !!
end tell
on error
activate (display dialog ¬
"Darf nicht auftreten ")
end try
end try
end ClipBoFullAusClipInhaltER



--Komplexe Inhalte der neu erstellten Script Editor-Scripts
on Texter1ALIASPfad() --oooo
" -- ==================================================
global STARTNAME --PROPERTYER()--ooooo
-- ==================================================
my PROPERTYER()--ooooo
----------------
on PROPERTYER()--ooooo
set STARTNAME to (first item of (list disks)) as string
--

--
end PROPERTYER
---------------------property MUSTER-----------------
my AName1()--ooooo
on AName1()--ooooo
set PfAlias to (first item of (list disks)) as string & \":\" & ¬
\""
end Texter1ALIASPfad

on Texter2ALIASPfad() --oooo
"\"" & "
--set STARTNAME to (first item of (list disks)) as string
tell application \"FINDER\"-- \"System Events\"
open file PfAlias --für FILE! --oder Alias
end tell
end AName1
"
end Texter2ALIASPfad

on Texter1FOLDERPfad() --oooo
" -- ==================================================
global STARTNAME --PROPERTYER()--ooooo
-- ==================================================
my PROPERTYER()--ooooo
----------------
on PROPERTYER()--ooooo
set STARTNAME to (first item of (list disks)) as string
--

--
end PROPERTYER
---------------------property MUSTER-----------------
my FoldName1()--ooooo
on FoldName1()--ooooo
set PfFold to (first item of (list disks)) as string & \":\" & ¬
\""
end Texter1FOLDERPfad

on Texter2FOLDERPfad() --oooo--ooooo
"\"
--set STARTNAME to (first item of (list disks)) as string
tell application \"FINDER\"-- \"System Events\"
open folder PfFold --für ORDNER!
activate
end tell
end FoldName1
"

end Texter2FOLDERPfad

on Texter1FILEPfad() --oooo
" -- ==================================================
global STARTNAME --PROPERTYER()--ooooo
-- ==================================================
my PROPERTYER()--ooooo
----------------
on PROPERTYER()--ooooo
global STARTNAME, ClipInhalt --PROPERTYER()--ooooo
set STARTNAME to (first item of (list disks)) as string
--

--
end PROPERTYER
---------------------property MUSTER-----------------
my FileEvLoadScript1()--ooooo
--
on FileEvLoadScript1()--ooooo
set PfFile to (first item of (list disks)) as string & \":\" & ¬
\""
end Texter1FILEPfad

on Texter2FILEPfad() --oooo
"\"" & "
-- (first item of (list disks)) as string = STARTNAME
--FMScriptName() of (load script file PfFile) --FMScriptName=ZB als Anteil des FileNamens
--(*--für load script entbehrlich
tell application \"FINDER\"-- \"System Events\"--für load script entbehrlich
open file PfFile --für FILE! --oder Alias
end tell--für load script entbehrlich
--*)
end FileEvLoadScript1
"
end Texter2FILEPfad
--*)




Das folgende ist komplexer da es erlaubt ein neues File entweder in Smile,SkriptEditor, Script Editor usw wie sie alle heissen inkl OSX zu eröffnen(musste aus Platzgründen an den Schluss des postings gesetzt werden


Zuletzt bearbeitet von spirigwi am 09.01.2007 - 07:32, insgesamt 10-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: 13.01.2005 - 19:07    Titel: Antworten mit Zitat

Wenn du jedoch so weiter machst, muss ich den Codeformatter noch optimieren, damit weniger Zeichen produziert werden.
_________________
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: 13.01.2005 - 19:12    Titel: Antworten mit Zitat

SNIPPET 3 es kann ein Editor-File erstellen, welches dann ein AS enthält, welches sinngemäss das gechooste öffen kann und den Pfad vorlegt.

OS9_besser mit Smile als Editor_+CLASSIC hat Folgendes geschrieben:
--(*--OSX/9_optional Smile EDIT 2.1.07 nur noch wenige propertys, beide Systeme für OS9_OSX_user wie ich
--
globals an Script-Kopf
global NeuPfadName --ZweckAliasPfadMachER() --oooo -
global STARTNAME, StartnameLang, Text1ALIASPfad, Text2ALIASPfad, Text1FILEPfad, Text2FILEPfad, Text1FOLDERPfad, Text2FOLDERPfad --PROPERTYER() --ooooo
global Butt1, Butt2, Butt3, AppDiaLeser, DisplMeldung, DefAnsw, ButtList0bis3, DefButt, IcNr, GivUp, TextAntw, ButtAntw --dia
--
DiaHandler() --Variablen-Reihenfolge nach Vorgabe des Handler-Funktionsablaufes
global AusExt1ProDia1Bis4, AusExt2ProDia1Bis4, SkriptInhalt --ALIASpfadenER() --oooo
global ChooseALIASStringEIN, ClipInhalt, SkriptInhalt --ALIASpfadenER() --oooo
global ChooseFolderStringEIN, ClipInhalt, SkriptInhalt --ORDNERpfadenER() --oooo
global ChooseFileStringEIN, ClipInhalt, SkriptInhalt -- FILEpfadenER() --oooo
--
==================================================
--
--------------------------------- fixe Texte/Programme
property ANFZ : "\""
--
==================================================
property ProcSmile : "Smile"
property ProcSriptEditOS9 : "Skripteditor"
--
==================================================
"
falls errechneter Pfad auf neues SMILE-/od. ScriptEditor(OSX)-Dokument soll:
Handler lauffähig machen durch Einsetzen von [--] vor folg (* und *):
"
(*
--<-############## hiervor an Rand ein -- schreiben zum "schärfen"

on NeuesASfileZweckAliasPfadMachER() --oooo
set NeuPfadName to "NeuAliasPfad"
try
my OS9OderCLASSICSmileNeuPfadER() --oooo
--my OSXScriptEditorNeuPfadER() --oooo=alternativ
end try
end NeuesASfileZweckAliasPfadMachER

on NeuesASfileZweckFOLDERPfadMachER() --oooo
set NeuPfadName to "NeuFOLDERPfad"
try
my OS9OderCLASSICSmileNeuPfadER() --oooo
--my OSXScriptEditorNeuPfadER() --oooo=alternativ
end try
end NeuesASfileZweckFOLDERPfadMachER

on NeuesASfileZweckFILEPfadMachER() --oooo
set NeuPfadName to "NeuFILEPfad"
try
my OS9OderCLASSICSmileNeuPfadER() --oooo
--my OSXScriptEditorNeuPfadER() --oooo=alternativ
end try
end NeuesASfileZweckFILEPfadMachER

on OS9OderCLASSICSmileNeuPfadER() --oooo
my FrontSmileOdScriptEditorER() --oooo
tell application "Smile"
(make new script window with properties ¬
{name:NeuPfadName, line width:800, bounds:{269, 60, 829, 478}})
set contents of window NeuPfadName to SkriptInhalt
end tell
end OS9OderCLASSICSmileNeuPfadER

on OSXScriptEditorNeuPfadER() --oooo
display dialog "Wenn handler lauffähig, mache ich neus Editor-file"
(*--OSX
try
my FrontSmileOdScriptEditorER() --oooo
end try
tell application "Script Editor"--"Smile" --"Script Editor"
activate
set newScript to make new document
set text of newScript to SkriptInhalt
set name of newScript to NeuPfadName
end tell
*)
end OSXScriptEditorNeuPfadER
-- ==================================================
*)
--<-########## hier Zeile oberh.an Rand ein -- schreiben zum "schärfen"
my ChoosePfadER_Al_Gro_P_ER() --oooo

on PROPERTYER() --ooooo
set STARTNAME to (first item of (list disks)) as string
--hier propertys definieren
set StartnameLang to length of STARTNAME
set Text1ALIASPfad to my Texter1ALIASPfad() --oooo
set Text2ALIASPfad to my Texter2ALIASPfad() --oooo
set Text1FILEPfad to my Texter1FILEPfad() --oooo
set Text2FILEPfad to my Texter2FILEPfad() --oooo
set Text1FOLDERPfad to my Texter1FOLDERPfad() --oooo
set Text2FOLDERPfad to my Texter2FOLDERPfad() --oooo
end PROPERTYER

on ChoosePfadER_Al_Gro_P_ER() --oooo
my PROPERTYER() --ooooo
--#################################
my DiaMASKE0() --oooo
my DiaHandler() --oooo
-------<------HIER entsprechend konfigurieren
if ButtAntw = Butt1 then -- "•Alias"
return my ALIASpfadenER() --oooo
end if
--
if ButtAntw = Butt2 then --"•Ordner(od.via Alias)"
return my ORDNERpfadenER() --oooo
end if
--
if ButtAntw = Butt3 then --"•File(od.via Alias)"
return my FILEpfadenER() --oooo
end if
end ChoosePfadER_Al_Gro_P_ER

on ALIASpfadenER() --oooo
tell application "Finder"
set ChooseALIAS to {}
set PromptAliasTEX to "wähle EXQUISIT ein Alias,Pfad gibt dann an wo´s liegt," & ¬
" [CODæ]+D wenn auf Desktop" as string
set ChooseALIAS to choose file with prompt PromptAliasTEX
set ChooseALIASStringEIN to ChooseALIAS as string
--
tell application "Finder" to set art to kind of ChooseALIAS
if art is not "Alias" then --Tipp von Skeeve
--#################################
my DiaMASKE4() --oooo
my DiaHandler() --oooo
-------<------HIER entsprechend konfigurieren
return
end if
--
set ALIAsPFADOhneHD to my HDloserALIASPfadER() --oooo
set AliasPFADMitHD to ChooseALIASStringEIN
-----------------------------------------------
set AusExt1ProDia1Bis4 to ALIAsPFADOhneHD
set AusExt2ProDia1Bis4 to AliasPFADMitHD
--Dia1Bis4DIALOG------------------------------------------
-------START_Dialog-SkriptStart und Verwertung --################
my DiaMASKE1() --oooo
my DiaHandler() --oooo
-------<------HIER entsprechend konfigurieren
if ButtAntw = BUTT1 then --Butt1--=- "= [COD æ]-C obiger Text"
set ClipInhalt to "\"" & AliasPFADMitHD & "\""
my ClipBoFullAusClipInhaltER() --füllt clipboard mit ClipInhalt
return my FrontSmileOdScriptEditorER() --oooo
else --Butt2--= "= [COD æ]-C obiges Skript"
if ButtAntw = Butt2 then
set SkriptInhalt to ¬
Text1ALIASPfad & ¬
ALIAsPFADOhneHD & ¬
Text2ALIASPfad & return & ¬
"\"" & ChooseALIASStringEIN & "\""
----------------------------------
set ClipInhalt to SkriptInhalt
my ClipBoFullAusClipInhaltER() --füllt clipboard mit ClipInhalt
try -- xxx
my NeuesASfileZweckAliasPfadMachER() --oooo
on error
my FrontSmileOdScriptEditorER() --oooo
end try
end if
--Ende_S R I P T Dia1Bis4-----------------------------
end if
end tell
return SkriptInhalt
end ALIASpfadenER

on ORDNERpfadenER() --oooo
tell application "Finder"
set ChooseFolder to {}
set PromptFolderTEX to "wähle ein Folder/(Folder-Alias), Pfad gibt dann an wo Folder liegt" & ¬
" [CODæ]+D wenn auf Desktop" as string
set ChooseFolder to choose folder with prompt PromptFolderTEX
set ChooseFolderStringEIN to ChooseFolder as string
-----------------------------------------
set folderPFADOhneHD to my HDloserORDNERPfadER() --oooo
set OrdnerPFADMitHD to ChooseFolderStringEIN
-----------------------------------------------------
set AusExt1ProDia1Bis4 to folderPFADOhneHD
set AusExt2ProDia1Bis4 to ChooseFolder
-------START_Dialog-SkriptStart und Verwertung --################
my DiaMASKE2() --oooo
my DiaHandler() --oooo
--------END_Dialog-SkriptStart und Verwertung--##################
--Dia1Bis4DIALOG----------------------------------------
if ButtAntw = Butt1 then -- "= [COD æ]-C obiger Text"
set ClipInhalt to "\"" & OrdnerPFADMitHD & "\""
my ClipBoFullAusClipInhaltER() --füllt clipboard mit ClipInhalt
return my FrontSmileOdScriptEditorER() --oooo
else --ButAntwDia1Bis4 = Bu2Dia1Bis4 --= "= [COD æ]-C obiges Skript"
if ButtAntw = Butt2 then -- "= [COD æ]-C obiges Skript"=default
set SkriptInhalt to ¬
Text1FOLDERPfad & ¬
folderPFADOhneHD & ¬
Text2FOLDERPfad & return & ¬
"\"" & ChooseFolderStringEIN & "\""
----------------------------------
set ClipInhalt to SkriptInhalt
my ClipBoFullAusClipInhaltER() --füllt clipboard mit ClipInhalt
try -- xxx
my NeuesASfileZweckFOLDERPfadMachER() --oooo
on error
my FrontSmileOdScriptEditorER() --oooo
end try
end if
--Ende_S R I P T Dia1Bis4-----------------------------
end if
end tell
return SkriptInhalt
end ORDNERpfadenER

on FILEpfadenER() --oooo
tell application "Finder"
set FilePFAD to my ChooseFileER() --oooo as string
try
set AliasPfad to result as string
--wenn gelingt wärs ein Alias!
--unten würde FilePFAD mit reveal -Res überschrieben
-- bei try zählt nur VOLLES gelingen!
set FilePFAD to AliasPfad
end try
set ChooseFileStringEIN to FilePFAD
--
set FilePFADMitHD to FilePFAD
set FilePFADOhneHD to my HDloserFilePfadER() --ooooo
-----------------------------------------------
set AusExt1ProDia1Bis4 to FilePFADOhneHD
set AusExt2ProDia1Bis4 to FilePFADMitHD
--Dia1Bis4DIALOG------------------------------------------
-------START_Dialog-SkriptStart und Verwertung --################
my DiaMASKE3() --oooo
my DiaHandler() --oooo
-------<------HIER entsprechend konfigurieren
if ButtAntw = Butt1 then --Butt1--=- "= [COD æ]-C obiger Text"
set ClipInhalt to "\"" & FilePFADMitHD & "\""
my ClipBoFullAusClipInhaltER() --füllt clipboard mit ClipInhalt
return my FrontSmileOdScriptEditorER() --oooo
else --Butt2--= "= [COD æ]-C obiges Skript"
if ButtAntw = Butt2 then
set SkriptInhalt to ¬
Text1FILEPfad & ¬
FilePFADOhneHD & ¬
Text2FILEPfad & return & ¬
"\"" & ChooseFileStringEIN & "\""
----------------------------------
set ClipInhalt to SkriptInhalt
my ClipBoFullAusClipInhaltER() --füllt clipboard mit ClipInhalt
try
my NeuesASfileZweckFILEPfadMachER() --oooo
on error
my FrontSmileOdScriptEditorER() --oooo
end try
end if
--Ende_S R I P T Dia1Bis4-----------------------------
end if
end tell
return SkriptInhalt
end FILEpfadenER

on ChooseFileER() --oooo
tell application "Finder"
activate
set ChooseFilePFAD to (choose file with prompt " wähle File/oder dessen Alias, [CODæ]+D wenn auf Schreibtisch") as string
set ChooseFileStringEIN to ChooseFilePFAD as string
end tell
end ChooseFileER

on HDloserALIASPfadER() --oooo
set ALIASStringAUS to ""
set ChooseALIASStringEINNr to 1 -- x
set ChooseALIASStringEINLang to length of ChooseALIASStringEIN
repeat while ChooseALIASStringEINNr < ChooseALIASStringEINLang + 1
set AktItem to (item ChooseALIASStringEINNr of ChooseALIASStringEIN)
if ChooseALIASStringEINNr - 1 < StartnameLang + 1 then
repeat with aa from 1 to ChooseALIASStringEINLang
set ALIASStringAUS to (ALIASStringAUS) as string
exit repeat
end repeat
else
set ALIASStringAUS to (ALIASStringAUS & AktItem) as string
end if
set ChooseALIASStringEINNr to ChooseALIASStringEINNr + 1
end repeat
return ALIASStringAUS as string
end HDloserALIASPfadER

on HDloserORDNERPfadER() --oooo
set FileStringAUS to ""
set ChooseFolderStringEINNr to 1 -- x
set ChooseFolderStringEINLang to length of ChooseFolderStringEIN
repeat while ChooseFolderStringEINNr < ChooseFolderStringEINLang + 1
set AktItem to (item ChooseFolderStringEINNr of ChooseFolderStringEIN)
if ChooseFolderStringEINNr - 1 < StartnameLang + 1 then
repeat with aa from 1 to ChooseFolderStringEINLang
set FileStringAUS to (FileStringAUS) as string
exit repeat
end repeat
else
set FileStringAUS to (FileStringAUS & AktItem) as string
end if
set ChooseFolderStringEINNr to ChooseFolderStringEINNr + 1
end repeat
return FileStringAUS as string
end HDloserORDNERPfadER


on HDloserFilePfadER() --ooooo
set FileStringAUS to ""
set ChooseFileStringEINNr to 1 --
set ChooseFileStringEINLang to length of ChooseFileStringEIN --ChooseFileStringEIN in propertys
repeat while ChooseFileStringEINNr < ChooseFileStringEINLang + 1
set AktItem to (item ChooseFileStringEINNr of ChooseFileStringEIN)
if ChooseFileStringEINNr - 1 < StartnameLang + 1 then
repeat with aa from 1 to ChooseFileStringEINLang
set FileStringAUS to (FileStringAUS) as string
exit repeat
end repeat
else
set FileStringAUS to (FileStringAUS & AktItem) as string
end if
set ChooseFileStringEINNr to ChooseFileStringEINNr + 1
end repeat
return FileStringAUS as string -- set FilePFAD to
end HDloserFilePfadER


on DiaMASKE0() --ooooo
----------Dialog-EINGABEMASKE-beeinflusst gänzlich den Dia-Ablauf
set Butt1 to "•Alias"
set Butt2 to "•Ordner(od.via Alias)"
set Butt3 to "•File(od.via Alias)"
set ButtList0bis3 to {Butt1, Butt2, Butt3} --{}-> cave "cancelet"
set DefButt to 3 --0->OHNE Default Button
set AppDiaLeser to "Finder" --"FileMaker Pro" --"Skript Editor" --"Smile"
set DisplMeldung to "Welche der 3 Möglichkeiten für Pfad?
• File:(ZB Programm, Disk Copy-Image = file!)
->•• bei ALIAS-Anwahl-->Pfad zum Original!
->•• ev danach Skript-Namen aus file holen!
• Ordner,Disk,Festplatte
• Alias: -->Pfad zum Alias

choosen ab Schreibtisch = æ_D "

set DefAnsw to 0 --0->reiner BUTTON-Dialog, ""->BUTTON-TEXT-Dialog
set IcNr to 1 --0=>Hand--1=>Sprechblase2 =GelbesDreieck grösser 2(ZB3) => OHNE!icon
set GivUp to 0 --0-->unendlich.Für Zeit-Limit:Sekunden-Zahl
----------Dialog-EINGABEMASKE end DiaMASKE0
end DiaMASKE0

on DiaMASKE1() --oooo
set Titel1Dia1Bis4 to " OK= Skript -->Zwspeicher für
[COD æ]-V (past) -->SkriptEditor
______
tell application " & ANFZ & "Finder" & ANFZ & "
set PFAD to (first item of (list disks)) as string &" & ANFZ & ":" & ANFZ & "& ¬
" & ANFZ
set Titel3Dia1Bis4 to "\"" & AusExt1ProDia1Bis4 & "\""
set Titel2Dia1Bis4 to ANFZ & return & ¬
"open file PFAD
--SkriptName() of (load script file PFAD)
end tell
"
----------Dialog-EINGABEMASKE-beeinflusst gänzlich den Dia-Ablauf
set Butt1 to "=>[COD æ]-C obiger Text"
set Butt2 to "•ALIAS"
--set Butt3 to "•File(od.via Alias)"
set ButtList0bis3 to {Butt1, Butt2} --{}-> cave "cancelet"
set DefButt to 2 --0->OHNE Default Button
set AppDiaLeser to "Finder" --"FileMaker Pro" --"Skript Editor" --"Smile"
set DisplMeldung to Titel1Dia1Bis4 & AusExt1ProDia1Bis4 & Titel2Dia1Bis4 & Titel3Dia1Bis4

set DefAnsw to AusExt2ProDia1Bis4 as string
set IcNr to 3 --0=>Hand--1=>Sprechblase2 =GelbesDreieck grösser 2(ZB3) => OHNE!icon
set GivUp to 0 --0-->unendlich.Für Zeit-Limit:Sekunden-Zahl
----------Dialog-EINGABEMASKE
end DiaMASKE1

on DiaMASKE2() --oooo
set Titel1Dia1Bis4 to " OK= Skript -->Zwspeicher für
[COD æ]-V (past) -->SkriptEditor
______
tell application " & ANFZ & "Finder" & ANFZ & "
set PFAD to (first item of (list disks)) as string &" & ANFZ & ":" & ANFZ & "& ¬
" & ANFZ
set Titel3Dia1Bis4 to "\"" & AusExt1ProDia1Bis4 & "\""
set Titel2Dia1Bis4 to ANFZ & return & ¬
"open file PFAD
--SkriptName() of (load script file PFAD)
end tell
"
----------Dialog-EINGABEMASKE-beeinflusst gänzlich den Dia-Ablauf
set Butt1 to "=>[COD æ]-C obiger Text"
set Butt2 to "•ORDNER/o.ALIAS des ORDNER"
--set Butt3 to "•File(od.via Alias)"
set ButtList0bis3 to {Butt1, Butt2} --{}-> cave "cancelet"
set DefButt to 2 --0->OHNE Default Button
set AppDiaLeser to "Finder" --"FileMaker Pro" --"Skript Editor" --"Smile"
set DisplMeldung to Titel1Dia1Bis4 & AusExt1ProDia1Bis4 & Titel2Dia1Bis4 & Titel3Dia1Bis4

set DefAnsw to AusExt2ProDia1Bis4 as string
set IcNr to 3 --0=>Hand--1=>Sprechblase2 =GelbesDreieck grösser 2(ZB3) => OHNE!icon
set GivUp to 0 --0-->unendlich.Für Zeit-Limit:Sekunden-Zahl
----------Dialog-EINGABEMASKE
end DiaMASKE2

on DiaMASKE3() --oooo
set Titel1Dia1Bis4 to " OK= Skript -->Zwspeicher für
[COD æ]-V (past) -->SkriptEditor
______
tell application " & ANFZ & "Finder" & ANFZ & "
set PFAD to (first item of (list disks)) as string &" & ANFZ & ":" & ANFZ & "& ¬
" & ANFZ
set Titel3Dia1Bis4 to "\"" & AusExt1ProDia1Bis4 & "\""
set Titel2Dia1Bis4 to ANFZ & return & ¬
"open file PFAD
--SkriptName() of (load script file PFAD)
end tell
"
----------Dialog-EINGABEMASKE-beeinflusst gänzlich den Dia-Ablauf
set Butt1 to "=>[COD æ]-C obiger Text"
set Butt2 to "•FILE(od.via Alias)"
--set Butt3 to "•File(od.via Alias)"
set ButtList0bis3 to {Butt1, Butt2} --{}-> cave "cancelet"
set DefButt to 2 --0->OHNE Default Button
set AppDiaLeser to "Finder" --"FileMaker Pro" --"Skript Editor" --"Smile"
set DisplMeldung to Titel1Dia1Bis4 & AusExt1ProDia1Bis4 & Titel2Dia1Bis4 & Titel3Dia1Bis4

set DefAnsw to AusExt2ProDia1Bis4 as string
set IcNr to 3 --0=>Hand--1=>Sprechblase2 =GelbesDreieck grösser 2(ZB3) => OHNE!icon
set GivUp to 0 --0-->unendlich.Für Zeit-Limit:Sekunden-Zahl
----------Dialog-EINGABEMASKE
end DiaMASKE3

on DiaMASKE4() --ooooo
----------Dialog-EINGABEMASKE-beeinflusst gänzlich den Dia-Ablauf
set Butt1 to "Ich muss hier das Skript ABBRECHEN"

set ButtList0bis3 to {Butt1} --{}-> cave "cancelet"
set DefButt to 1 --0->OHNE Default Button
set AppDiaLeser to "Finder" --"FileMaker Pro" --"Skript Editor" --"Smile"
set DisplMeldung to "Es wurde ein • FILE !
(und NICHT ein • ALIAS)
angewählt:
_________________________
Nochmals versuchen: • ALIAS
zwecks dessen Standort-Lesung
auf Namenneutraler Platte
anwählen!"
set DefAnsw to 0 --0->reiner BUTTON-Dialog, ""->BUTTON-TEXT-Dialog
set IcNr to 1 --0=>Hand--1=>Sprechblase2 =GelbesDreieck grösser 2(ZB3) => OHNE!icon
set GivUp to 0 --0-->unendlich.Für Zeit-Limit:Sekunden-Zahl
----------Dialog-EINGABEMASKE end DiaMASKE0
end DiaMASKE4

on DiaHandler() --oooo Dialog-Handler ans ENDE des Skriptes
set TextButtAntw to {}
tell application AppDiaLeser to activate
--DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
if DefAnsw is not 0 then --Text-Antwort
tell application AppDiaLeser to ¬
set DsplDia ¬
to display dialog DisplMeldung ¬
default answer DefAnsw ¬
buttons ButtList0bis3 ¬
default button DefButt with icon IcNr ¬
giving up after GivUp --not! activate!->Res""
set TextButtAntw to {text returned, button returned} of DsplDia
set TextAntw to item 1 of TextButtAntw
set ButtAntw to item 2 of TextButtAntw
else --Butt-Antwort
tell application AppDiaLeser to ¬
set DsplDia ¬
to display dialog DisplMeldung ¬
buttons ButtList0bis3 ¬
default button DefButt ¬
with icon IcNr ¬
giving up after GivUp --not! activate!->Res""
set TextButtAntw to {button returned} of DsplDia
set ButtAntw to item 1 of TextButtAntw
set TextAntw to "kein Text-Antwort-Dialog!"
end if
end DiaHandler

on ClipBoFullAusClipInhaltER() --ooooo
try
set the clipboard to ClipInhalt -- ok
on error
beep 3
try
tell application "Finder"
activate
set ClipInhalt to "" & ClipInhalt --nötig!
set the clipboard to ClipInhalt as text --the !!
end tell
on error
activate (display dialog ¬
"Darf nicht auftreten ")
end try
end try
end ClipBoFullAusClipInhaltER

on FrontSmileOdScriptEditorER() --oooo
--tell application "Smile" to activate ----"Script Editor"
tell application "Finder"
if my SmileAufPlatteWENNjaOpenES() is not {} then
set the frontmost of process ProcSmile to true
else
try
my SkripteditorAufPlatteWENNjaOpenES()
set the frontmost of process ProcSriptEditOS9 to true
on error
--tell application "Script Editor" to activate ----"Smile"
end try
end if
end tell
end FrontSmileOdScriptEditorER

on SmileAufPlatteWENNjaOpenES() --ooooo
set theCrea to "VIZF"
set KeinSmile to ""
tell application "Finder"
try
get application file id theCrea
on error errmsg
set KeinSmile to "kein"
display dialog "Das Programm \"Smile\" ist nicht vorhanden."
end try
end tell
-----
tell application "Finder"
if KeinSmile = "" then
set SmilePfad to application file id theCrea as alias as string
open file SmilePfad
SmilePfad
end if
end tell
end SmileAufPlatteWENNjaOpenES

on SkripteditorAufPlatteWENNjaOpenES()
set theCrea to "ToyS"
set KeinToyS to ""
tell application "Finder"
try
get application file id theCrea
on error errmsg
set KeinToyS to "kein"
display dialog "Das Programm \"ToyS= Skripteditor?\" ist nicht vorhanden."
end try
end tell
---
tell application "Finder"
if KeinToyS = "" then
set SkripteditorPfad to application file id theCrea as alias as string
open file SkripteditorPfad
SkripteditorPfad
end if
end tell
end SkripteditorAufPlatteWENNjaOpenES

--Komplexe Inhalte der neu erstellten Script Editor-Scripts
on Texter1ALIASPfad() --oooo
" -- ==================================================
global STARTNAME --PROPERTYER()--ooooo
-- ==================================================
my PROPERTYER()--ooooo
----------------
on PROPERTYER()--ooooo
set STARTNAME to (first item of (list disks)) as string
--

--
end PROPERTYER
---------------------property MUSTER-----------------
my AName1()--ooooo
on AName1()--ooooo
set PfAlias to (first item of (list disks)) as string & \":\" & ¬
\""
end Texter1ALIASPfad

on Texter2ALIASPfad() --oooo
"\"" & "
--set STARTNAME to (first item of (list disks)) as string
tell application \"FINDER\"-- \"System Events\"
open file PfAlias --für FILE! --oder Alias
end tell
end AName1
"
end Texter2ALIASPfad

on Texter1FOLDERPfad() --oooo
" -- ==================================================
global STARTNAME --PROPERTYER()--ooooo
-- ==================================================
my PROPERTYER()--ooooo
----------------
on PROPERTYER()--ooooo
set STARTNAME to (first item of (list disks)) as string
--

--
end PROPERTYER
---------------------property MUSTER-----------------
my FoldName1()--ooooo
on FoldName1()--ooooo
set PfFold to (first item of (list disks)) as string & \":\" & ¬
\""
end Texter1FOLDERPfad

on Texter2FOLDERPfad() --oooo--ooooo
"\"
--set STARTNAME to (first item of (list disks)) as string
tell application \"FINDER\"-- \"System Events\"
open folder PfFold --für ORDNER!
activate
end tell
end FoldName1
"

end Texter2FOLDERPfad

on Texter1FILEPfad() --oooo
" -- ==================================================
global STARTNAME --PROPERTYER()--ooooo
-- ==================================================
my PROPERTYER()--ooooo
----------------
on PROPERTYER()--ooooo
global STARTNAME, ClipInhalt --PROPERTYER()--ooooo
set STARTNAME to (first item of (list disks)) as string
--

--
end PROPERTYER
---------------------property MUSTER-----------------
my FileEvLoadScript1()--ooooo
--
on FileEvLoadScript1()--ooooo
set PfFile to (first item of (list disks)) as string & \":\" & ¬
\""
end Texter1FILEPfad

on Texter2FILEPfad() --oooo
"\"" & "
-- (first item of (list disks)) as string = STARTNAME
--FMScriptName() of (load script file PfFile) --FMScriptName=ZB als Anteil des FileNamens
--(*--für load script entbehrlich
tell application \"FINDER\"-- \"System Events\"--für load script entbehrlich
open file PfFile --für FILE! --oder Alias
end tell--für load script entbehrlich
--*)
end FileEvLoadScript1
"
end Texter2FILEPfad
--*)


Zuletzt bearbeitet von spirigwi am 09.01.2007 - 07:35, insgesamt 5-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: 13.01.2005 - 19:15    Titel: Antworten mit Zitat

Bitte nicht size 2! nervös Alles, nur das nicht. Rotz und Wasser heulen
Ich hab' gar nichts gesagt. Hm?
_________________
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: 13.01.2005 - 19:33    Titel: Antworten mit Zitat

Hier waren meine nun überflüssig gewordenen Entwickluns-Trümmer:
mit Dank an Snows enorme Geduld und der Hilfe durch sein enormes Fachwissen hallo winke


Zuletzt bearbeitet von spirigwi am 23.12.2005 - 21:45, insgesamt 3-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: 13.01.2005 - 20:21    Titel: Antworten mit Zitat

Das Skript läuft nicht durch. Nach dem ersten Dialog ist bereits Schluss.

Du hast geschrieben:

set GivUp to ""

Der erste Dialog erscheint und wird gleich wieder geschlossen. Du solltest mir schon etwas Zeit geben, überhaupt im Dialog eine Auswahl zu treffen.

Wenn du 'giving up after xx' verwendest, solltest du danach die Option 'if gave up of DLOG is true' auch abfragen und irgendwie darauf reagieren. Das kann natürlich der Abbruch des Skripts sein oder du lässt das Skript dann mit einem Default-Wert weiterlaufen. Im beiden Fällen wäre es sinnvoll, dem User mitzuteilen, dass er zu langsam war und welche Konsequenzen daraus folgen.

Beispiel:

set DLOG to (display dialog "Soll das Skript ausgeführt werden?" buttons ¬
    {"OK", "Ich weiß nicht", "Nein"} giving up after 5)

if button returned of DLOG = "OK" then
    beep 1
else if button returned of DLOG = "Ich weiß nicht" then
    beep 2
else if gave up of DLOG is true then
    display dialog ¬
        "Du warst zu langsam!" buttons {""} ¬
        
giving up after 1 with icon stop
else
    beep 3
end if

_________________
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: 14.01.2005 - 07:42    Titel: Dialog OSX-konform ausformulieren! Antworten mit Zitat

Danke Snow, hab bisher alles berücksichtigt

Zuletzt bearbeitet von spirigwi am 19.03.2005 - 17:28, insgesamt 3-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: 14.01.2005 - 08:22    Titel: Antworten mit Zitat

Du brauchst keinerlei Dialoge zu editieren. Lediglich die Stelle

set GivUp to ""

braucht einen sinnvollen Wert. Die Variable GivUp hast du ja in allen Dialogen verwendet. Wenn also obige Stelle ausgebessert ist läuft das Skript schon besser.
_________________
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: 15.01.2005 - 23:23    Titel: Antworten mit Zitat

Hier waren meine nun überflüssig gewordenen Entwickluns-Trümmer:
mit Dank an Snows enorme Geduld und der Hilfe durch sein enormes Fachwissen hallo winke


Zuletzt bearbeitet von spirigwi am 23.12.2005 - 21:45, insgesamt 3-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: 15.01.2005 - 23:27    Titel: Antworten mit Zitat

spirigwi hat Folgendes geschrieben:

Aber der Dialog-hinweis war schon mal extrem gut, was ich echt bewundere wie du so schnell diagnosen stellen kannst


Das ist ja wohl nicht schwer, wenn ein Dialog nur kurz aufblitzt und danach Schluss ist. Wink
_________________
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: 15.01.2005 - 23:56    Titel: Antworten mit Zitat

Hier waren meine nun überflüssig gewordenen Entwickluns-Trümmer:
mit Dank an Snows enorme Geduld und der Hilfe durch sein enormes Fachwissen hallo winke


Zuletzt bearbeitet von spirigwi am 23.12.2005 - 21:46, insgesamt 3-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: 16.01.2005 - 00:08    Titel: Antworten mit Zitat

Hallo Willy,

die Prüfung, ob Smile bzw. der Skripteditor existieren funktioniert nicht.

Wenn eins der Programme nicht existiert, produziert der Finder bei der Frage nach 'application file id "XXXX"' einen Fehler.

Die Prüfung könntest du deshalb besser mit einem Try-Block vornehmen:

set theCrea to "VIZF"
tell application "Finder"
    try
        get application file id theCrea
    on error errmsg
        display dialog "Das Programm \"Smile\" ist nicht vorhanden."
    end try
end tell


Zum Thema Dialog Give Up:

Das Befehlsverzeichnis der Standard Additions sagt ganz klar, dass 'giving up' als Wert eine Ganzzahl erwartet.

Wenn du einen Dialog brauchst, der "ewig" offen bleibt, schreibt man 'giving up after 0'
_________________
Peter
-
Fischer-Bayern.de|Shadetreemicro.com
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen AIM-Name
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
Gehe zu Seite 1, 2  Weiter
Seite 1 von 2

 
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