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

Zeitstempel als Datei- bzw. Ordnername

 
Dieses Forum ist gesperrt, du kannst keine Beiträge editieren, schreiben oder beantworten.   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.    Fischer-Bayern.de Foren-Übersicht -> OS X-Snippets
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Folker
•---->
•---->


Anmeldedatum: 11.12.2000
Beiträge: 649
Wohnort: Holsteinische Schweiz

BeitragVerfasst am: 02.10.2003 - 15:12    Titel: Zeitstempel als Datei- bzw. Ordnername Antworten mit Zitat

Das Problem ereilt jeden mal: Man braucht eindeutige Ordner- oder Dateinamen bzw. möchte in einem Script viele Ordner / Dateien anlegen lassen ohne wg. evtl. vorhandener Dateien gestört zu werden (error) und ohne irgendwelche Abfragen ob der Name schon vergeben ist. Es bietet sich der Zeitstempel an. Dieses Beispiel kann je Sekunde einen einmaligen Namen generieren. Da muss halt jeder für sich prüfen, ob das reicht oder ob sein Script mehr Dateien/Ordner je Sekunde anlegen muss. Dann ist das hier nicht so geeignet und muss ausgebaut werden. Die Uhrzeit wird der Einfachheit halber als Sekundenzahl ausgegeben.

Dank OS X sind lange Dateinamen möglich, OS 9 Anhänger werden die Länge des neuen Namens prüfen müssen!

--------Scriptanfang

property theMonthList : {mJanuary:1, mFebruary:2, mMarch:3, mApril:¬
4, mMay:5, mJune:6, mJuly:7, mAugust:8, mSeptember:¬
9, mOctober:10, mNovember:11, mDecember:12}

set temp to "SehrlangerNameundnochlängeralsgedachtundnochlängerundlänger"
set theFold to choose folder with prompt "Bitte Zielordner auswählen:"

set theNewName to (gib_Zeitstempel(current date) & "_" & temp)

--Ordner erzeugen:
tell application "Finder" to make new folder at theFold with properties {name:theNewName as string}
set theFold to the result as string

--Datei erzeugen:
schreibeData((theFold & theNewName & ".txt"), "Testtext")

on schreibeData(theP, theText)
try
set theF to open for access file theP with write permission
set eof of theF to 0
write theText to theF
close access theF
on error
try
close access theF
on error
close access file theP
end try
end try
end schreibeData

on gib_Zeitstempel(theDate)
return ((((year of theDate) as string) & "_" & (Get_Obj(my theMonthList, "m" & month of theDate)) as string) & "_" & (day of theDate) as string) & "_" & ((time of theDate) as string)
end gib_Zeitstempel


-- ----------------------------------------------
-- get property from script or record (by R23) siehe auch: (http://homepage.mac.com/richard23/)
-- ----------------------------------------------
on Get_Obj(theObj, theProp)
tell (run script "me
on f(theObj)
return theObj's " & theProp & "
end f") to return f(theObj)
end Get_Obj

----------Scriptende
_________________
Gruß,
Folker Brandt
=============================
Systemberatung · Datenbanken · Webdesign
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
sdenjuopl148
•---->
•---->


Anmeldedatum: 17.12.2022
Beiträge: 725
Wohnort: New York city

BeitragVerfasst am: 11.02.2023 - 10:07    Titel: Antworten mit Zitat

Air Jordan 9
Jordan 14
Jordan Kids
Nike Shoes Cyber Monday
Red Bottoms
Nike Basketball Shoes
Air Jordans
Nike Air Max 270 Women's
Adidas NMD R1
Jordan 1s
Christian Louboutin Shoes
Nike Shoes
Christian Louboutin Shoes
Pandora Jewelry
Nike Outlet Store Online
Jordan 1
Nike Free Run
Pandora Charms
Pandora Jewelry Official Site USA
Air Jordan Retro
Kyrie Irving Shoes
Nike Air Force
Nike Factory
Kanken Backpack
Nike Air Force 1 Men
New Jordans Coming Out
Ferragamo Shoes
Nike Outlet
Yeezy Boost
Nike Outlet Store
Pandora Jewelry Official site
Nike Outlet Store
Nike Outlet Store
Nike Clearance
Golden Goose
Moncler UK
Jordan 13 Retro
Nike Outlet Store
Nike Uptempo
Adidas Sneakers For Women
Nike Clearance
Nike Zoom
Vans Shoes
Lebron Shoes
Jordan Retro 4
Pandora Bracelet
Womens Nike Shoes
Nike Running Shoes
Lebron 16
Nike Air Max 95
Air Jordans Sneakers
Adidas Yeezy
Nike Clearance
Nike Air Jordan
Jordan 8
Nike Air Max 270 Womens
Yeezys
Nike Shoes
Cheap Nike Shoes
Adidas NMD
Pandora Charms
Nike Store Online
Adidas Yeezy Boost 350 V2
Cheap Nike Shoes
Jordan 4s
Red Bottom Shoes
Yeezy
Nike Shoes
Adidas Ultra Boost
Red Bottom Shoes
Nike Cortez Women
Air Jordan 3
Pandora Jewelry Rings
Nike Shoes
Fjallraven Kanken Backpack
Michael Jordan Shoes
Yeezy 500 Blush
Yeezy 700
Jordan Shoes
Nike Store Online
Nike Air Max 98
Basketball Shoes
New Nike Shoes
Pandora Charms
New Nike Shoes 2019
New Air Max 2019
Nike Shoes
Nike Outlet Store
AJ1
Jordan Retro 7
Nike Outlet
Jordan 1
Christian Louboutin Outlet
Nike Air Max 95
Louboutin Outlet
Air Jordan 11
Pandora Jewelry Official Site
Kyrie Shoes
Nike Huarache
Lebron 16
Jordans Shoes Men
Nike Free Run
Nike Air Max 98 Gundam
Nike Shoes
Jordan 11 Blue
Nike Outlet
Nike Sneakers
Nike Outlet
Adidas Yeezy
Jordan 11 Retro
Jordan 13 Retro
Jordan 12
Nike Sneakers
Pandora Bracelets
Pandora Sale
Nike Factory Outlet
Nike Outlet
Christian Louboutin
Nike Air Presto
Pandora Charm
Nike Outlet Store Online Shopping
Ultraboost
Pandora Charms
Nike Shoes For Women
Valentino
Jordan Shoes
Pandora Jewelry
Sneakers Website
Pandora
Nike Running Shoes For Women
Louboutin Heels
Air Jordans 1
Air Force Ones
Kevin Durant Shoes
Jordan 1 High
Pandora
Nike Air Max
Jordan 10
Jordan 11
Nike Sneakers
Nike Shox
Jordan 32
Nike Shoes
Lebron James Shoes
Nike Shoes
Jordan Sneakers
Nike Air Zoom Pulse
Pandora
Ferragamo Belts
Nike Air Max 720
Christian Louboutin Heels
Pandora Necklace
Asics Outlet
Pandora Jewelry Outlet
Christian Louboutin Heels
Jordan 1 Mids
Christian Louboutin
Christian Louboutin Outlet
Air Force 1
_________________
sdenjuopl148
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Dieses Forum ist gesperrt, du kannst keine Beiträge editieren, schreiben oder beantworten.   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.    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