Re: Producing Unicode-only characters
Re: Producing Unicode-only characters
- Subject: Re: Producing Unicode-only characters
- From: Paul Berkowitz <email@hidden>
- Date: Tue, 25 Oct 2005 19:43:37 -0700
- Thread-topic: Producing Unicode-only characters
On 10/25/05 7:22 PM, "Dave Lyons" <email@hidden> wrote:
> On Oct 25, 2005, at 3:01 PM, Nigel Garvey wrote:
>> run script "?data utxt3048?"
>>
>> ... which of course makes a nice basis for a Unicode character
>> handler:
>>
>> on unicodeCharacter(n)
>> run script "?data utxt" & {n div 4096, n mod 4096 div 256, n
>> mod 256
>> div 16, n mod 16} & "?"
>> end unicodeCharacter
>>
>> unicodeCharacter(12360)
>
> Neat...but for anyone wanting to use that for arbitrary characters,
> note that as written it only works if each of the 4 hex digits in the
> character code is from 0 to 9. Any digit A through F wreaks havoc.
> (For example, 12367 turns into ?data utxt30415? rather than ?data
> utxt304F?.)
>
on unicodeCharacter(n)
set ls to {n div 4096, n mod 4096 div 256, n mod 256 div 16, n mod 16}
repeat with i from 1 to 4
set x to item i of ls
if x > 9 then set item i of ls to item (x - 9) of {"A", "B", "C",
"D", "E", "F"}
end repeat
run script "?data utxt" & ls & "?"
end unicodeCharacter
unicodeCharacter(12367)
--> く
--
Paul Berkowitz
_______________________________________________
Do not post admin requests to the list. They will be ignored.
Applescript-users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
This email sent to email@hidden