Ho creato un file AppleScript (.scpt) dal titolo " Digita appunti come linea singola testo semplice ." Lo script è attivato da una scorciatoia da tastiera impostata da FastScripts.
Comportamento desiderato:
Voglio che questo script prenda il contenuto degli appunti, rimuova tutta la formattazione e quindi rimuova eventuali interruzioni di riga o tab da questo testo. Infine, voglio che lo script digiti il nuovo testo. Voglio conservare - non sovrascrivere - il contenuto degli appunti originali.
Il problema specifico:
L'errore specifico è che il mio script non riesce a rimuovere tutta la formattazione da alcuni rich text.
Non riesco a includere il contenuto RTF completo in un messaggio Stack Exchange. Pertanto, per testimoniare il mio esatto problema, scarica questo file .rtf tramite Dropbox . Apri questo file in TextEdit.app. Evidenzia la frase e copiala negli appunti. Quindi, attiva il mio script mentre il tuo cursore si trova in una forma che supporta e mostra rich text (in modo che tu possa vedere che lo script digiterà rich text).
Noterai che la frase digitata è un contenuto RTF e contiene ancora elementi di formattazione. Questi elementi includono il carattere del testo originale (Helvetica) e la dimensione del carattere originale (12). Questi elementi avrebbero dovuto essere scartati. Pertanto, il mio codice è negligente o ho trovato un vero bug all'interno di AppleScript. Suppongo che sia quest'ultimo.
Il codice più breve necessario per riprodurre l'errore:
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"
-- Back up clipboard contents:
set savedClipboard to my fetchStorableClipboard()
(*
Converting the clipboard text to plain text to remove any formatting:
From: http://lifehacker.com/127683/clear-text-formatting-on-os-x
*)
set theClipboardTextWithoutAnyFormatting to (the clipboard as text)
(*
Removing line breaks and indentations in clipboard text:
From: http://stackoverflow.com/a/12546965
*)
set AppleScript's text item delimiters to {return & linefeed, return, linefeed, character id 8233, character id 8232}
set theClipboardTextWithoutAnyFormatting to text items of (theClipboardTextWithoutAnyFormatting as text)
set AppleScript's text item delimiters to {" "}
set theClipboardTextWithoutAnyLineBreaksOrFormatting to theClipboardTextWithoutAnyFormatting as text
set the clipboard to theClipboardTextWithoutAnyLineBreaksOrFormatting
tell application "System Events" to keystroke "v" using {command down}
delay 0.1 -- Without this delay, may restore clipboard before pasting.
-- Restore the original clipboard:
my putOnClipboard:savedClipboard
on fetchStorableClipboard()
set aMutableArray to current application's NSMutableArray's array() -- used to store contents
-- get the pasteboard and then its pasteboard items
set thePasteboard to current application's NSPasteboard's generalPasteboard()
-- loop through pasteboard items
repeat with anItem in thePasteboard's pasteboardItems()
-- make a new pasteboard item to store existing item's stuff
set newPBItem to current application's NSPasteboardItem's alloc()'s init()
-- get the types of data stored on the pasteboard item
set theTypes to anItem's types()
-- for each type, get the corresponding data and store it all in the new pasteboard item
repeat with aType in theTypes
set theData to (anItem's dataForType:aType)'s mutableCopy()
if theData is not missing value then
(newPBItem's setData:theData forType:aType)
end if
end repeat
-- add new pasteboard item to array
(aMutableArray's addObject:newPBItem)
end repeat
return aMutableArray
end fetchStorableClipboard
on putOnClipboard:theArray
-- get pasteboard
set thePasteboard to current application's NSPasteboard's generalPasteboard()
-- clear it, then write new contents
thePasteboard's clearContents()
thePasteboard's writeObjects:theArray
end putOnClipboard:
In primo luogo, qualcuno può confermare che il problema dichiarato si verifica sul proprio computer?
Se sì, come posso rimuovere tutta la formattazione del rich text in AppleScript, tenendo conto di questo bug che ho scoperto?