Anuncio:

Conoce a los Colaboradores Destacados de la Comunidad Oficial de Soporte de Apple en español
Son apasionados de la tecnología. Tienen un conocimiento profundo de productos y del ecosistema de Apple
Son gente única que les encanta resolver problemas
Disfrutan compartiendo lo que saben y ayudando a otras personas como tú

Videos de consejos y trucos de soporte de Apple especialmente para ti en Apple YouTube.
Suscríbete al Apple YouTube España, Apple YouTube Mexico, Apple YouTube Colombia, Apple YouTube Chile.
Cómo tomar fotos con el iPhone

Al parecer, nadie ha contestado desde hace tiempo. Para volver a iniciar la conversación, solo haz una nueva pregunta.

Pregunta:

Pregunta: icloud

Buenos días,

Como podría exportar las fotos y videos del icloud manteniendo las características de fecha y hora? Ahora al exportarlas me cambia el nombre y pone como fecha de creación hoy.

Grácias

iPhone 5, iOS 10.2.1

Publicado el

Responder

El contenido de la página fue cargado

24/03/2017 05:43 AM en respuesta a Iolandafopi En respuesta a Iolandafopi

Porque el fichero que se crea hoy es con fecha de hoy... internamente, en los metatados, sí conserva la fecha original en la que se tomó la foto.


Con este script puedes convertir todos los nombres en su correspondiente fecha (de captura) en "fecha+tiempo+serial+extension" rápidamente.


Lo copias y lo pegas en un documento nuevo del Editor de Scripts, lo ejecutas y seleccionas todos los ficheros que quieras renombrar.


set serial to 1
set pix_list to choose file with prompt "Choose an Image" with multiple selections allowed
set addzeros to length of ((count of pix_list) as string)
tell application "Image Events"
  repeat with _pix in pix_list
  try
  set this_image to open alias (_pix as text)
  
  tell this_image
  repeat with i from 1 to the count of metadata tags
  set this_tag to metadata tag i
  set the tag_name to the name of this_tag
  set the tag_value to the value of this_tag
  if tag_name = "creation" then
  set newName to my replaceText(" ", "-", my replaceText(":", "", tag_value))
  end if
  end repeat
  end tell
  
  tell application "Finder"
  set extension to name extension of _pix
  set izena to name of _pix
  set finalizena to newName & "-" & my add_leading_zeros(serial, addzeros) & "." & extension
  set the name of _pix to finalizena
  end tell
  end try
  set serial to serial + 1
  end repeat
end tell

on replaceText(find, replace, subject)
  set prevTIDs to text item delimiters of AppleScript
  set text item delimiters of AppleScript to find
  set subject to text items of subject
  set text item delimiters of AppleScript to replace
  set subject to "" & subject
  set text item delimiters of AppleScript to prevTIDs
  return subject
end replaceText

on add_leading_zeros(this_number, max_leading_zeros)
  return text (max_leading_zeros * -1) thru -1 of ("00000000000000000" & this_number)
end add_leading_zeros

24/03/2017 05:43 AM

Responder Útil
Perfil de usuario para usuario: Iolandafopi

Pregunta: icloud