Finalidad del script La siguiente secuencia de comandos utiliza una aplicación llamada Pashua para mostrar un cuadro de diálogo personalizado que devuelve múltiples entradas. Estas entradas se utilizan para crear un nuevo evento de calendario.
ElproblemaElproblemaqueestoyexperimentandoesquelafechasedevuelveenelformatoAAAA-MM-DD.CuandolafechaseingresaenformatoMM/DD/YYYY,eleventosecreasinproblemas.
¿Cómoconviertolafechacorrectamente?
Estassonlaslíneasdecódigoquenecesitanayuda:
setsDateto(sDateoftheResult)---Returns:2018-12-12setsTimeto(sTimeoftheResult)---Returns:10:00AMseteDateto(eDateoftheResult)---Returns:2018-12-12seteTimeto(eTimeoftheResult)---Returns:11:00AMseteStarttodateof(sDate&space&sTime)---Error:Can’tgetdateof2018-12-1210:00AMseteEndtodateof(eDate&space&eTime)---Error:Can’tgetdateof2018-12-1211:00AM
Esteeselerrorqueaparece:
Códigocompleto:
--Getthepathtothefoldercontainingthisscripttellapplication"Finder"
set thisFolder to (container of (path to me)) as string
if "Pashua:Pashua.app:" exists then
-- Looks like the Pashua disk image is mounted. Run from there.
set customLocation to "/Users/dnaab/Applications/"
else
-- Search for Pashua in the standard locations
set customLocation to "/Users/dnaab/Applications/"
end if
end tell
try
set thePath to alias (thisFolder & "Pashua.scpt")
set pashuaBinding to load script thePath
tell pashuaBinding
-- Display the dialog
try
set pashuaLocation to getPashuaPath(customLocation)
set dialogConfiguration to my getDialogConfiguration(pashuaLocation)
set theResult to showDialog(dialogConfiguration, customLocation)
-- Display the result. The record keys ("... of theResult") are defined in the
-- dialog configuration string.
if {} = theResult then
display alert "Empty return value" message "It looks like Pashua had some problems using the window configuration." as warning
else if cb of theResult is not "1" then
set eCalendar to "Calendar"
set eSummary to (eSummary of theResult)
set eURL to (eURL of theResult)
set eDescription to (eDescription of theResult)
set sDate to (sDate of theResult)
set sTime to (sTime of theResult)
set eDate to (eDate of theResult)
set eTime to (eTime of theResult)
set sDate to date of (sDate & space & sTime)
set eDate to date of (eDate & space & eTime)
display dialog sDate buttons {"Cancel"} default button 1
tell application "Calendar"
tell calendar eCalendar
make new event with properties {summary:eSummary, start date:eStart, end date:eDate, url:eURL}
end tell
end tell
else
-- The cancelbutton (named "cb" in the config string) was pressed
(*
display dialog "The dialog was closed without submitting the values"
*)
end if
on error errorMessage
display alert "An error occurred" message errorMessage as warning
end try
end tell
on error errStr number errorNumber
display dialog errStr
end try
-- Returns the configuration string for an example dialog
on getDialogConfiguration(pashuaLocation)
if pashuaLocation is not "" then
set img to "img.type = image
img.x = 250
img.y = 260
img.maxwidth = 60
img.tooltip = This is an element of type “image”
img.path = /Applications/Calendar.app/Contents/Resources/App.icns"
else
set img to ""
end if
return "
# Set window title
*.title = New iCal Event
# Event Summary
eSummary.type = textfield
eSummary.label = Event Summary
eSummary.default = Calendar
eSummary.width = 310
eSummary.x = 1
eSummary.y = 310
# Add Start Date
sDate.type = date
sDate.label = Event Start Date
sDate.default = today
sDate.textual = 1
sDate.x = 1
sDate.y = 255
# Add Start Time
sTime.type = date
sTime.label = Event Start Time
sTime.default = today
sTime.time = 1
sTime.date = 0
sTime.textual = 1
sTime.width =70
sTime.x = 110
sTime.y = 255
# Add End Date
eDate.type = date
eDate.label = Event Start Date
eDate.default = today
eDate.textual = 1
eDate.x = 1
eDate.y = 200
# Add End Time
eTime.type = textfield
eTime.label = Event End Time
eTime.width = 70
eTime.x = 110
eTime.y = 200
# Add Calendar
eURL.type = textfield
eURL.label = URL
eURL.default = message://
eURL.width = 310
eURL.x = 1
eURL.y = 150
# Description
eDescription.type = textbox
eDescription.label = Description
eDescription.width = 310
eDescription.x = 1
eDescription.y =70
# Add a cancel button with default label
db.type = defaultbutton
cb.type = cancelbutton
"
end getDialogConfiguration