Así que he estado buscando durante horas cómo hacer esto a través de Applescript y no veo ningún post al respecto.
Básicamente, tengo la siguiente cadena:
@junior_cat23, [ID]-[E9B-Z8X-H1V-722]
Quiero que el script elimine sólo esta parte:
, [ID]-[E9B-Z8X-H1V-722]
Así que sólo me queda:
@junior_cat23
Estoy utilizando los "delimitadores de elementos de texto de AppleScript" pero el problema es que también eliminará los caracteres del texto que quiero conservar.
Este es el script que estoy utilizando:
set theName to "@junior_cat23, [ID]-[E9B-Z8X-H1V-722]"
tell application "Finder"
-- Remove Characters
set oldDelims to AppleScript's text item delimiters
set the_strings_to_strip to {"[", "]", "-", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0"}
set the_files to theName
repeat with a_file in the_files
set the_name to theName
repeat with I from 1 to count of the_strings_to_strip
set AppleScript's text item delimiters to item I of the_strings_to_strip
set the_text_items to text items of the_name
set AppleScript's text item delimiters to ""
set the_name to the_text_items as string
end repeat
end repeat
-- Remove Preceding and Trailing Spaces in String
set trimName to "echo \"" & the_text_items & "\" | xargs"
set nameTrimmed to (do shell script trimName)
end tell
Obtengo el siguiente resultado:
"@_,"
Sólo quiero eliminar los caracteres del lado de los paréntesis y mantener los otros. Agradeceré una solución que no requiera un manejador ya que voy a utilizar el script con una aplicación que no acepta manejadores.