Hallo an alle,
ich habe hier eine Excel-Tabelle mit über ein Tausend Einträgen in Zeile A1. Jetzt wollte ich aus dieser Tabelle Ordner erstellen die genauso heisen. Habe schon im Netz gesucht, komme aber nicht voran. Hat einer eine Idee.
Beste Grüsse

Automotor? (woot)
Sorry, herrlicher Vertipper.

Danke, hilft aber nicht weiter.:-((

Also "Automator"

Wenn du sagt die Einträge sind in Zelle A1, meinst du dann alle mit Leerzeichen o. ä. in A1 oder von A1 an vertikal oder horizontal weiter?!

Naja, jedenfalls sollte Excel die Tabelle irgendwie als CSV-Datei speichern können. Damit kann man dann schon mehr anfangen.

Hallo, ich habe jetzt eine .CSV Datei. Wie binde ich sie jetzt ein.
Danke

Hilft das weiter?
Ist nicht ausprogrammiert,
funktioniert aber wenn die Datei auf der obersten Ebene.


tell application "Finder"
set fileList to "Arbeitsmappe1.txt"

-- -- Excel Format Text (Tabs getrennt)

set f to (open for access file fileList)
try
set theItems to read f
close access f
on error
close access f
end try

repeat with n from 1 to (count words in theItems)
set newName to word (n as string) of theItems
try
make new folder at startup disk ¬
with properties {name:newName}
on error
display dialog "Folder already exists" giving up after 3
end try
end repeat
end tell

ups, wo isser denn jetzt?

Na ja, war wohl nicht so wichtig mit diesen Neuen Ordnernzzz

hallo nochmal, müsste gestern schnell weg. ich habe den script mal getestett, bekomme aber die fehlermeldung "Die Variable „theItems“ ist nicht definiert." woran kann es liegen. danke nochmal.

Mach es mit diesem script

tell application "Finder"
repeat
set theFile to choose file with prompt "Open .csv to read"
if name extension of theFile is "csv" then exit repeat
end repeat
set destinationFolder to choose folder
set nf to true
set f to (open for access file theFile as string)
try
set fn to read f
close access f
on error
set nf to false
display dialog "something went wrong"
end try
if nf then
set folderNames to my checkIll(fn)
repeat with n from 1 to ((count of paragraphs in folderNames))
if (paragraph n in folderNames) is not "" then ¬
set newName to paragraph n in folderNames as string
try
make new folder at destinationFolder ¬
with properties {name:newName}
on error
exit repeat
end try
end repeat
display dialog "done " & n - 1 & ¬
" new folders in folder " & destinationFolder -- giving up after 3
end if
end tell

on checkIll(fn)
set folderNames to ""
repeat with i from 1 to count characters in fn
if character i in fn is not ";" then ¬
set folderNames to folderNames & character i in fn
end repeat
return folderNames
end checkIll

Es ist das erste mal das ich hier bin und Sonorman keinen Tipp gibt sondern nur einen anderen auslacht!(w00t)+
Es gibt eben für alles das erste Mal:-y

Danke _mäuschen, es hat prima geklappt. Beste Grüsse.:-D