Quelqu'un peut-il me dire quel est le meilleur moyen d'insérer automatiquement une ligne vierge en haut et en bas de ces fichiers .rtf nouvellement créés, pour ces deux morceaux de code distincts ?
Premier morceau de code (pour quand le presse-papiers contient du texte riche) :
try
set richTextfromClipboard to get the clipboard as «class RTF »
on error eStr number eNum
display dialog eStr & " number " & eNum buttons {"OK"} default button 1 with icon caution
return
end try
try
set fileHandle to open for access theRichTextFilepath with write permission
write richTextfromClipboard to fileHandle
close access fileHandle
on error eStr number eNum
display dialog eStr & " number " & eNum buttons {"OK"} default button 1 with title "File I/O Error..." with icon caution
try
close access fileHandle
end try
end try
Deuxième morceau de code (pour lorsque le presse-papiers contient du HTML) :
try
do shell script "osascript -e 'try' -e 'get the clipboard as «class HTML»' -e 'end try' | awk '{sub(/«data HTML/, \"3C68746D6C3E\") sub(/»/, \"3C2F68746D6C3E\")} {print}' | xxd -r -p | textutil -convert rtf -stdin -stdout > " & quoted form of theRichTextFilepath
on error eStr number eNum
display dialog eStr & " number " & eNum buttons {"OK"} default button 1 with icon caution
end try
Il n'est pas nécessaire que les lignes vides soient d'un type ou d'une taille de police prédéterminés ; elles doivent simplement correspondre au style du fichier .rtf environnant (c'est-à-dire le style du texte riche dans le presse-papiers).