OrdnerPfad aus dem Dateipfad extrahieren

[Armin Egginger]

Beschreibung:

Dieses Script extrahiert den OrdnerPfad aus dem DateiPfad, zur weiteren Verwendung.

Code:
set AppleScript's text item delimiters to ""
set ThePath to choose file
set theRest to RestofPath(ThePath)
theRest

on RestofPath(path)
   set pathstr to (path as string)
   set theReverse to (reverse of (characters of pathstr)) as string
   set theOset to offset of ":" in theReverse
   set theRest to (text 1 thru -theOset of pathstr)
   return theRest
end RestofPath


Andere Versionen willkommen!
happy filemaking

Armin

[ecco]

da ich mit 'offset' kürzlich probleme hatte (eine ähnliche funktion lieferte immer den string in unicode zurück), hier eine weitere möglichkeit:

[Markus_s]

Als Einzeiler:

set theParent to alias ((text items 1 thru -2 of ((choose file) as text)) as text)

Gruß
Markus

[Markus_s]

Nachtrag, doch nicht ganz korrekt:

set AppleScript's text item delimiters to ":"
set theParent to alias ((text items 1 thru -2 of ((choose file) as text)) as text)

Delimiter muß auf : stehen.

Gruß
Markus

[spirigwi]

hallo Markus, gute IDEE!

[Markus_s]

hallo spirigwi

Richtig, um den alten zustand wieder herzustellen (sofern der delimiter auf "" gestanden hat). Fürs Ergebniss hat es bei mir aber keine Bedeutung.

Gruß
Markus

[spirigwi]

Dies war die Frage:

[Snow]

Alle angegebenen Beispiele funktionieren aber nur, wenn man den Parent Folder einer Datei sucht.

Will man den Parenf Folder eines Ordners, klappt es so nicht mehr. Bitte ruhig mal mit 'choose folder' testen.

Ich nehme daher die universelle Methode - ist im Prinzip auch nicht anders, sondern eben nur ausgebaut:

set StoredPath to (choose folder) as string

set oldDelims to AppleScript's text item delimiters
set AppleScript's text item delimiters to ":"
set lastItem to the last text item of StoredPath
if lastItem = "" then
    set itemCount to -3 -- wenn ursprünglich Ordner
else
    set itemCount to -2 -- wenn ursprünglich Datei
end if
set EventPath to ¬
    text 1 thru text item itemCount of StoredPath & ":"
set AppleScript's text item delimiters to oldDelims

EventPath

Siehe auch Workshop-Artikel "Parent Folder":
_________________
Peter
-
Fischer-Bayern.de|Shadetreemicro.com