1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62

-- Ordner wählen, alle Dateien unterhalb dieses Ordner werden mit den Namen ihrer überordner getagged, und mit dem Namen der Datei selber
-- BSP: Datei in Projekte/Client XY/Bilder/bahnhof - wird mit Projekte, Client XY, Bilder, Bahnhof getagged
set Ordner to (choose folder)
global startOrdner
set startOrdner to the length of (POSIX path of Ordner)

property type_list : {"TIFF", "JPEG", "PNGf", "PICT"}

BearbeiteOrdner(Ordner)
-- Alle Ordner holen 
on BearbeiteOrdner(inOrdner)
  tell application "Finder"
    -- hier kann man noch einen Datei Filter einbauen
    set theFileList to (every file of inOrdner) --whose file type is in the type_list or name extension is in the extension_list
    set OrdnerListe to every folder of inOrdner
    repeat with i from 1 to length of OrdnerListe
      my BearbeiteOrdner(item i of OrdnerListe)
    end repeat
  end tell
  repeat with theFile in theFileList
    set this_info to info for theFile as alias
    if visible of this_info is true and alias of this_info is false then
      set this_name to name of this_info
      set extension_length to length of name extension of this_info
      
      set this_path to POSIX path of (theFile as string)
      set temp to substr(this_path, startOrdner + 1, (length of this_path))
      set temp to substr(temp, 1, -extension_length - 2)
      
      set tempArray to my theSplit(temp, "/")
      set tags to ""
      repeat with tempValue in tempArray
        set tags to tags & " " & quoted form of tempValue
      end repeat
      -- pfad zum commandline programm openmeta
      -- http://code.google.com/p/openmeta/
      do shell script "/Users/yene/Downloads/1.2.0/openmeta -a " & tags & " -p " & quoted form of this_path
      --display dialog tags
    end if
  end repeat
  
end BearbeiteOrdner

on theSplit(theString, theDelimiter)
  -- save delimiters to restore old settings
  set oldDelimiters to AppleScript's text item delimiters
  -- set delimiters to delimiter to be used
  set AppleScript's text item delimiters to theDelimiter
  -- create the array
  set theArray to every text item of theString
  -- restore the old setting
  set AppleScript's text item delimiters to oldDelimiters
  -- return the result
  return theArray
end theSplit

-- string substr  ( string $string  , int $start  [, int $length  ] )
on substr(theString, theStart, theLength)
  set myList to every character of theString
  set myList to items theStart through theLength of myList
  return myList as string
end substr