Script To Markup Code

Crée le code des liens  de ce blog qui permettent d'ouvrir le script sur le Mac de l'utilisateur.

-- ASCII character (34) -- %22 -- quote

-- ASCII character (32) -- %20 -- espace

-- ASCII character (9) -- %09 -- tabulation

-- ASCII character (10) -- %0A --  retour chariot

-- ASCII character (58) -- %3A -- colon 

-- ASCII character (60) --  "%3C" -- <

-- ASCII character (62) --  %3E -- >

set charList to {ASCII character (32), ASCII character (34), ASCII character (9), ASCII character (58), ASCII character (62), ASCII character (60)}

set temp to the clipboard as text

set newText to ""

-- Codage des quote, espace, tabulation, colon, < et >

repeat with theChar in temp

if theChar is in charList then

set newText to newText & encodeChar(theChar)

else

set newText to newText & theChar

end if

end repeat

-- Codage des retour chariot

set theParagraphs to every paragraph of newText

set newContents to ""

repeat with thisParagraph in theParagraphs

set thisParagraph to thisParagraph & "%0A" as string

set newContents to newContents & thisParagraph as string

end repeat

-- Ecriture du lien HTML cliquable dans le presse-papiers

set the clipboard to " & (ASCII character (34)) & "applescript://com.apple.scripteditor?action=new&script=" & newContents & (ASCII character (34)) & ">>> Ouvrir le script dans l'éditeur"

on encodeChar(this_char)

set the ASCII_num to (the ASCII number this_char)

set the hex_list to {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"}

set x to item ((ASCII_num div 16) + 1) of the hex_list

set y to item ((ASCII_num mod 16) + 1) of the hex_list

return ("%" & x & y) as string

end encodeChar