".com"で終わる文字列をテキストクリッピングファイルとして保存する方法が知りたい．

High Sierra と Mojave 及び Parallels Desktop 18 上の Lion と Ventura で試したところ、light289 さんと同じ結果となりました。

末尾が ".com" のテキストをドラッグアンドドロップしてテキストクリッピングファイルを作成することはおそらくできないと思います。ちなみに「@」が含まれるテキストは webloc ではなく、mailloc となるようです。

で、テキストクリッピングファイルを調査したところ下図のようになっていて、中身は bplist データ、拡張属性 com.apple.FinderInfo にはタイプとクリエータがセットされていて、さらにリソースフォークにもデータが格納されているようです。

これなら編集できそうです。仮のテキストクリッピングファイルを用意して、plutil コマンドで xml に変換し、vim で開くとこんな感じ。

次のように編集してファイルを保存した後に plutil で元に戻す。

次にリソースフォーク。今時そんなもの不要だろうと思って削除したところクイックルックでテキストが表示されなくなりました...。どうやらデータをリソースフォークから引っ張ってきてるようです。ということでリソースフォークも編集して保存して完成。

これらをスクリプト化すれば多少は楽になるかもしれませんが、それでもかなり面倒なような...。クリッピングファイルは便利だと思いますが、UTF-8、LF な標準テキストで運用してはどうでしょうかね？

選択したテキストからテキストクリッピングファイルを作成する Automator クイックアクションを作ってみました。テキストを選択してワークフローを実行するとデスクトップに「text.textClipping」が生成されます。

クリッピングファイルは UTF-8 の情報さえあれば機能するようなので、UTF-16、レガシーエンコーディング等は「なし」にしました。ファイルの形式は XML。ファイル名は文字数制限とか面倒なので「text.textClipping」固定。要するに超手抜きです。

なお、Rez コマンドを使うので Command Line Tools が必要となります。それと、このワークフローで生成されるファイルは上記のとおり若干データを間引いてあるので何らかの問題が生じる可能性はあります。

JavaScriptを実行

'use strict';

function run(argv) {
    const query = argv[0].toString();

    const fpath = `~/Desktop/text.textClipping`;
    const furl = $.NSURL.fileURLWithPath($(fpath).stringByExpandingTildeInPath);

    const dct = {'UTI-Data':{'public.utf8-plain-text':query}};
    const err = $();

    if (! $(dct).writeToURLError(furl, err)) {
        throw new Error(err.localizedDescription.js);
    }

    return [furl.path.js, query];
}

シェルスクリプトを実行

fpath="${1}"
query="${2}"
rsrc="${fpath}.r"

bstr=$(printf '%s' "${query}" | xxd -p | awk '{ printf $0; }')
data=$(printf "data 'utf8' (256) { $\"%s\" };" "${bstr}")

echo "${data}" > "${rsrc}"
Rez "${rsrc}" -o "${fpath}"
rm "${rsrc}"

動作確認

・Paralles Desktop 18 / Mojave 10.14.6 [要 Command Line Tools]

・Paralles Desktop 18 / Ventura 13.6.7 [要 Command Line Tools]

追記: 選択したテキストを基にファイル名を作るなら JXA より AppleScript の方がやりやすいかもしれません。

シェルスクリプトを実行アクションにおける Unicode 正規化問題と、データサイズが大きい場合にリソースフォークのデータが壊れる問題に対処しました。

それと、ファイルをバイナリ形式で書き出すように変更。内容は Catalina 以降と同じになるようにしました。Mojave でも大丈夫だと思います。

さらにリソースフォークに、utxt、TEXT、drag を追加しました。TEXT リソースについては Catalina 以降とも異なりますがおそらく問題ないと思います。

これで最終版とするつもです。

# 投稿ボタンを誤って押したので一旦取り消した上で再投稿しました。

選択したテキストベースのファイル名になるようにしてみました。なお、ファイルの中身は前のスクリプトと同じです。

JavaScript のコード

'use strict';

function grapheme_clusters(str) {
    const nsstr = $(str);
    const len = nsstr.length;
    let a = [];
    let i = 0;
    while (i < len) {
        const range = nsstr.rangeOfComposedCharacterSequenceAtIndex(i);
        a.push(nsstr.substringWithRange(range).js);
        i += Number(range.length);
    }
    return a;
}

function set_fname(fsrep, ext) {
    const margin = 5;
    let fname = '';
    if ((fsrep + ext).length < 256 - margin) {
        fname = fsrep;
    } else {
        const chrs = grapheme_clusters(fsrep);
        const ellipsis = '…';
        for (let i = 0; i < chrs.length; i++) {
            if ((fname + chrs[i] + ellipsis + ext).length > 255 - margin) {
                break;
            } else {
                fname += chrs[i];
            }
        }
        fname = fname + ellipsis;
    }
    return fname.replace(/[/:]/g, '_');
}

function resolve_conflicts(fpath, dname, fname, ext) {
    const filemanager = $.NSFileManager.defaultManager;
    let n = 2;
    while (filemanager.fileExistsAtPath($(fpath))) {
        fpath = `${dname}/${fname} ${n}${ext}`;
        if (n > 1000) {
            throw new Error(`${fpath}: filename: overflow`);
        }
        n++;
    }
    return fpath;
}

function run(argv) {
    const query = argv[0].toString();
    const fsrep = $(query).fileSystemRepresentation;

    const ext = '.textClipping';
    const fname = set_fname(fsrep, ext);
    const dname = $('~/Desktop').stringByExpandingTildeInPath.js;

    let fpath = $(dname).stringByAppendingPathComponent(fname + ext).js;
    fpath = resolve_conflicts(fpath, dname, fname, ext);

    const furl = $.NSURL.fileURLWithPath($(fpath).stringByExpandingTildeInPath);
    const dct = {'UTI-Data':{'public.utf8-plain-text':query}};
    const err = $();

    if (! $(dct).writeToURLError(furl, err)) {
        throw new Error(err.localizedDescription.js);
    }

    return [furl.path.js, query];
}

連投すみません。ファイル名にタブ文字などが含まれないようにしました。

JavaScript

'use strict';

function grapheme_clusters(str) {
    const nsstr = $(str);
    const len = nsstr.length;
    let a = [];
    let i = 0;
    while (i < len) {
        const range = nsstr.rangeOfComposedCharacterSequenceAtIndex(i);
        a.push(nsstr.substringWithRange(range).js);
        i += Number(range.length);
    }
    return a;
}

function set_fname(str, ext) {
    const fsrep = $(str).fileSystemRepresentation.replace(/[/:]/g, '_').replace(/\s+/g, ' ').trim();
    const margin = 5;
    let fname = '';
    if ((fsrep + ext).length < 256 - margin) {
        fname = fsrep;
    } else {
        const chrs = grapheme_clusters(fsrep);
        const ellipsis = '…';
        for (let i = 0; i < chrs.length; i++) {
            if ((fname + chrs[i] + ellipsis + ext).length > 255 - margin) {
                break;
            } else {
                fname += chrs[i];
            }
        }
        fname = fname + ellipsis;
    }
    return fname;
}

function resolve_conflicts(fpath, dname, fname, ext) {
    const filemanager = $.NSFileManager.defaultManager;
    let n = 2;
    while (filemanager.fileExistsAtPath($(fpath))) {
        fpath = `${dname}/${fname} ${n}${ext}`;
        if (n > 1000) {
            throw new Error(`${fpath}: filename: overflow`);
        }
        n++;
    }
    return fpath;
}

function run(argv) {
    if (argv.length < 1) {
        return 'usage: osascript -l JavaScript me.applescript string';
    }

    const query = argv[0].toString();

    const ext = '.textClipping';
    const fname = set_fname(query, ext);
    const dname = $('~/Desktop').stringByExpandingTildeInPath.js;

    let fpath = $(dname).stringByAppendingPathComponent(fname + ext).js;
    fpath = resolve_conflicts(fpath, dname, fname, ext);

    const furl = $.NSURL.fileURLWithPath($(fpath).stringByExpandingTildeInPath);
    const dct = {'UTI-Data':{'public.utf8-plain-text':query}};
    const err = $();

    if (! $(dct).writeToURLError(furl, err)) {
        throw new Error(err.localizedDescription.js);
    }

    return [furl.path.js, query];
}

何度も済みません。ファイル名の先頭が「.」にならないための処理などいくつかの修正を加えました。

JavaScript

'use strict';

function grapheme_clusters(str) {
    const nsstr = $(str);
    const len = nsstr.length;
    let a = [];
    let i = 0;
    while (i < len) {
        const range = nsstr.rangeOfComposedCharacterSequenceAtIndex(i);
        a.push(nsstr.substringWithRange(range).js);
        i += Number(range.length);
    }
    return a;
}

function set_fname(str, ext) {
    const fsrep = $(str).fileSystemRepresentation.replace(/^\./, '_').replace(/[/:]/g, '_').replace(/\s+/g, ' ').trim();
    const margin = 5;
    let fname = '';
    if ((fsrep + ext).length < 256 - margin) {
        fname = fsrep;
    } else {
        const chrs = grapheme_clusters(fsrep);
        const ellipsis = '…';
        for (let i = 0; i < chrs.length; i++) {
            if ((fname + chrs[i] + ellipsis + ext).length > 255 - margin) {
                break;
            } else {
                fname += chrs[i];
            }
        }
        fname = fname + ellipsis;
    }
    return fname;
}

function resolve_conflicts(fpath, dname, fname, ext) {
    const filemanager = $.NSFileManager.defaultManager;
    let n = 2;
    while (filemanager.fileExistsAtPath($(fpath))) {
        fpath = `${dname}/${fname} ${n}${ext}`;
        if (n > 1000) {
            throw new Error(`${fpath}: filename: overflow`);
        }
        n++;
    }
    return fpath;
}

function run(argv) {
    if (argv.length < 1) {
        return 'usage: osascript -l JavaScript me.applescript string';
    }

    const query = argv[0].toString();

    const ext = '.textClipping';
    const fname = set_fname(query, ext);
    const dname = $('~/Desktop').stringByExpandingTildeInPath.js;

    let fpath = $(dname).stringByAppendingPathComponent(fname + ext).js;
    fpath = resolve_conflicts(fpath, dname, fname, ext);

    const furl = $.NSURL.fileURLWithPath(fpath);
    const dct = {'UTI-Data': {'public.utf8-plain-text': query}};
    const err = $();

    if (! $(dct).writeToURLError(furl, err)) {
        throw new Error(err.localizedDescription.js);
    }

    return [furl.path.js, query];
}

連投かつ長文ですみませんが、検証して分かったことを書いておきます。

Lion から Ventura までのテキストクリッピングファイルを調査したところ、データフォークに情報が保存されるようになったのは Sierra 以降ということが分かりました。それより前はリソースフォークのみでデータフォークは空。

また、bplist データ内の "com.apple.traditional-mac-plain-text" キーの値は Sierra から Mojave までと、Catalina 以降で異なることも判明。この違いによりリソースフォークに保存される情報も Catalina 以降若干変わってます。

あと、これらの検証の過程で Automator の「シェルスクリプトを実行」アクションの問題を発見。同アクションではテキストが勝手に Unicode 正規化されるようで、なんと Lion から Ventura すべての環境で同様です。(Apple にはフィードバックしました)

例

Automator.app

printf '%s' 'プ' | xxd -p #=> e38395e3829a

Terminal.app

printf '%s' 'プ' | xxd -p #=> e38397

今回のワークフローで言うと「アップル」が「アッフ半濁点ル」となります。ただ、影響を受けるのはクイックルックのみなのでギリギリ許容範囲かなと。ただ、ほかのスクリプトでは致命傷となる危険性があるので要注意ですね。

JavaScriptを実行

'use strict';

function grapheme_clusters(str) {
    const nsstr = $(str);
    const len = nsstr.length;
    let a = [];
    let i = 0;
    while (i < len) {
        const range = nsstr.rangeOfComposedCharacterSequenceAtIndex(i);
        a.push(nsstr.substringWithRange(range).js);
        i += Number(range.length);
    }
    return a;
}

function set_fname(str, ext) {
    const fsrep = $(str).fileSystemRepresentation.replace(/^\./, '_').replace(/[/:]/g, '_').replace(/\s+/g, ' ').trim();
    const margin = 5;
    let fname = '';
    if ((fsrep + ext).length < 256 - margin) {
        fname = fsrep;
    } else {
        const chrs = grapheme_clusters(fsrep);
        const ellipsis = '…';
        for (let i = 0; i < chrs.length; i++) {
            if ((fname + chrs[i] + ellipsis + ext).length > 255 - margin) {
                break;
            } else {
                fname += chrs[i];
            }
        }
        fname = fname + ellipsis;
    }
    return fname;
}

function resolve_conflicts(fpath, dname, fname, ext) {
    const filemanager = $.NSFileManager.defaultManager;
    let n = 2;
    while (filemanager.fileExistsAtPath($(fpath))) {
        fpath = `${dname}/${fname} ${n}${ext}`;
        if (n > 1000) {
            throw new Error(`${fpath}: filename: overflow`);
        }
        n++;
    }
    return fpath;
}

function base64(string) {
    const data = $(string).dataUsingEncoding($.NSUTF8StringEncoding);
    return data.base64EncodedStringWithOptions(0).js;
}

function run(argv) {
    const query = argv[0].toString();

    const ext = '.textClipping';
    const fname = set_fname(query, ext);
    const dname = $('~/Desktop').stringByExpandingTildeInPath.js;

    let fpath = $(dname).stringByAppendingPathComponent(fname + ext).js;
    fpath = resolve_conflicts(fpath, dname, fname, ext);

    const furl = $.NSURL.fileURLWithPath(fpath);

    const isascii = $(query).canBeConvertedToEncoding($.NSASCIIStringEncoding);
    const enc = isascii ? $.NSASCIIStringEncoding : $.NSData.data;

    const dct = {
        'UTI-Data': {
            'public.utf8-plain-text': query,
            'public.utf16-plain-text': $(query).dataUsingEncoding($.NSUTF16LittleEndianStringEncoding),
            'com.apple.traditional-mac-plain-text': enc
        }
    };

    const err = $();
    const bplist = $.NSPropertyListSerialization.dataWithPropertyListFormatOptionsError(
        $(dct),
        $.NSPropertyListBinaryFormat_v1_0,
        0,
        err
    );

    if (! err.isNil()) {
        throw new Error(`error: ${f}: ${err.localizedDescription.js}`);
    } else {
        const err = $();
        if (! bplist.writeToURLOptionsError(furl, $.NSDataWritingAtomic, err)) {
            throw new Error(`error: ${f}: ${err.localizedDescription.js}`);
        }
    }

    return [furl.path.js, base64(query), isascii.toString()];
}

シェルスクリプトを実行

fpath="${1}"
query=$(printf '%s' "${2}" | base64 -D)
isascii="${3}"

rsrc="${fpath}.r"

utxt_value=$(printf '%s' "${query}" | piconv -f UTF-8 -t UTF-16BE | xxd -c16 -p | awk '{ printf "$\"%s\"\n", $0 }')
utf8_value=$(printf '%s' "${query}" | xxd -c16 -p | awk '{ printf "$\"%s\"\n", $0 }')

utxt_data=$(printf "data 'utxt' (256) {\n%s\n};" "${utxt_value}")
utf8_data=$(printf "data 'utf8' (256) {\n%s\n};" "${utf8_value}")

if [[ "${isascii}" == "true" ]]; then
    head="00000001000000000000000000000003"
    utxt="75747874000001000000000000000000"
    utf8="75746638000001000000000000000000"
    text="54455854000001000000000000000000"

    text_value="${utf8_value}"
    drag_value=$(printf '%s\n%s\n%s\n%s' "${head}" "${utxt}" "${utf8}" "${text}" | awk '{ printf "$\"%s\"\n", $0 }')

    text_data=$(printf "data 'TEXT' (256) {\n%s\n};" "${text_value}")
    drag_data=$(printf "data 'drag' (128) {\n%s\n};" "${drag_value}")

    rsrc_data=$(printf '%s\n%s\n%s\n%s' "${utxt_data}" "${utf8_data}" "${text_data}" "${drag_data}")
else
    head="00000001000000000000000000000002"
    utxt="75747874000001000000000000000000"
    utf8="75746638000001000000000000000000"

    text_value=""
    drag_value=$(printf '%s\n%s\n%s' "${head}" "${utxt}" "${utf8}" | awk '{ printf "$\"%s\"\n", $0 }')

    text_data=""
    drag_data=$(printf "data 'drag' (128) {\n%s\n};" "${drag_value}")

    rsrc_data=$(printf '%s\n%s\n%s' "${utxt_data}" "${utf8_data}" "${drag_data}")
fi

echo "${rsrc_data}" > "${rsrc}"
Rez "${rsrc}" -o "${fpath}"
rm "${rsrc}"

echo "${fpath}"

JavaScript

'use strict';

function grapheme_clusters(str) {
    const nsstr = $(str);
    const len = nsstr.length;
    let a = [];
    let i = 0;
    while (i < len) {
        const range = nsstr.rangeOfComposedCharacterSequenceAtIndex(i);
        a.push(nsstr.substringWithRange(range).js);
        i += Number(range.length);
    }
    return a;
}

function set_fname(str, ext) {
    const fsrep = $(str).fileSystemRepresentation.replace(/^\./, '_').replace(/[/:]/g, '_').replace(/\s+/g, ' ').trim();
    const margin = 5;
    let fname = '';
    if ((fsrep + ext).length < 256 - margin) {
        fname = fsrep;
    } else {
        const chrs = grapheme_clusters(fsrep);
        const ellipsis = '…';
        for (let i = 0; i < chrs.length; i++) {
            if ((fname + chrs[i] + ellipsis + ext).length > 255 - margin) {
                break;
            } else {
                fname += chrs[i];
            }
        }
        fname = fname + ellipsis;
    }
    return fname;
}

function resolve_conflicts(fpath, dname, fname, ext) {
    const filemanager = $.NSFileManager.defaultManager;
    let n = 2;
    while (filemanager.fileExistsAtPath($(fpath))) {
        fpath = `${dname}/${fname} ${n}${ext}`;
        if (n > 1000) {
            throw new Error(`${fpath}: filename: overflow`);
        }
        n++;
    }
    return fpath;
}

function base64(string) {
    const data = $(string).dataUsingEncoding($.NSUTF8StringEncoding);
    return data.base64EncodedStringWithOptions(0).js;
}

function run(argv) {
    const query = argv[0].toString();

    const ext = '.textClipping';
    const fname = set_fname(query, ext);
    const dname = $('~/Desktop').stringByExpandingTildeInPath.js;

    let fpath = $(dname).stringByAppendingPathComponent(fname + ext).js;
    fpath = resolve_conflicts(fpath, dname, fname, ext);

    const furl = $.NSURL.fileURLWithPath(fpath);

    const m = query.match(/^\p{ASCII}+/u, '$0');
    const trad_query = m ? m[0] : '';

    const dct = {
        'UTI-Data': {
            'public.utf8-plain-text': query,
            'public.utf16-plain-text': $(query).dataUsingEncoding($.NSUTF16LittleEndianStringEncoding),
            'com.apple.traditional-mac-plain-text': $(trad_query).dataUsingEncoding($.NSASCIIStringEncoding)
        }
    };

    const err = $();
    const bplist = $.NSPropertyListSerialization.dataWithPropertyListFormatOptionsError(
        $(dct),
        $.NSPropertyListBinaryFormat_v1_0,
        0,
        err
    );

    if (! err.isNil()) {
        throw new Error(`error: ${f}: ${err.localizedDescription.js}`);
    } else {
        const err = $();
        if (! bplist.writeToURLOptionsError(furl, $.NSDataWritingAtomic, err)) {
            throw new Error(`error: ${f}: ${err.localizedDescription.js}`);
        }
    }

    return [furl.path.js, query, trad_query].map(x => base64(x));
}

シェルスクリプト

fpath=$(base64 -D <<< "${1}")
query=$(base64 -D <<< "${2}")
trad_query=$(base64 -D <<< "${3}")

rsrc="${fpath}.r"

utxt_value=$(printf '%s' "${query}" | iconv -f UTF-8 -t UTF-16BE | xxd -c16 -p | awk '{ printf "$\"%s\"\n", $0 }')
utf8_value=$(printf '%s' "${query}" | xxd -c16 -p | awk '{ printf "$\"%s\"\n", $0 }')

utxt_data=$(printf "data 'utxt' (256) {\n%s\n};" "${utxt_value}")
utf8_data=$(printf "data 'utf8' (256) {\n%s\n};" "${utf8_value}")

if [[ -n "${trad_query}" ]]; then
    head="00000001000000000000000000000003"
    utxt="75747874000001000000000000000000"
    utf8="75746638000001000000000000000000"
    text="54455854000001000000000000000000"

    text_value=$(printf '%s' "${trad_query}" | xxd -c16 -p | awk '{ printf "$\"%s\"\n", $0 }')
    drag_value=$(printf '%s\n%s\n%s\n%s' "${head}" "${utxt}" "${utf8}" "${text}" | awk '{ printf "$\"%s\"\n", $0 }')

    text_data=$(printf "data 'TEXT' (256) {\n%s\n};" "${text_value}")
    drag_data=$(printf "data 'drag' (128) {\n%s\n};" "${drag_value}")

    rsrc_data=$(printf '%s\n%s\n%s\n%s' "${utxt_data}" "${utf8_data}" "${text_data}" "${drag_data}")
else
    head="00000001000000000000000000000002"
    utxt="75747874000001000000000000000000"
    utf8="75746638000001000000000000000000"

    text_value=""
    drag_value=$(printf '%s\n%s\n%s' "${head}" "${utxt}" "${utf8}" | awk '{ printf "$\"%s\"\n", $0 }')

    text_data=""
    drag_data=$(printf "data 'drag' (128) {\n%s\n};" "${drag_value}")

    rsrc_data=$(printf '%s\n%s\n%s' "${utxt_data}" "${utf8_data}" "${drag_data}")
fi

echo "${rsrc_data}" > "${rsrc}"
Rez "${rsrc}" -o "${fpath}"
rm "${rsrc}"

echo "${fpath}"

特にNSDataで用意されているキー"com.apple.traditional-mac-plain-text"の内容は「a2ltb2NoaS5pbmZv」となっていますが、この値が何を元に生成されたものなのかわかりません．

すみません。この辺りをもうちょっと丁寧に説明すべきでした。

Sierra から Mojave まではちょっと複雑で、対象のテキストが ASCII の場合は ASCII、そうでない場合は OS の言語設定に応じた文字コード (MacRoman や MacJapanese など)、それもダメな場合は UTF-16LE でエンコード、、、というルールになっているものと思われます。多分。

Catalina 以降このルールは変更されて、先頭からの連続した ASCII 文字列となったようです。(例: españa => espa、アップル => 空データ)

何にしてもこのデータは XML ファイルでは base64 でエンコードされた文字列となります。Terminal からこんな感じで確認できます。

例1: テキストが「kimochi.info」の場合

コマンド

printf '%s' 'kimochi.info' | base64

結果

a2ltb2NoaS5pbmZv

コマンド

printf '%s' 'a2ltb2NoaS5pbmZv' | base64 -D

結果

kimochi.info

例2: OS の言語設定が日本語で、テキストが「アップル」の場合

コマンド

printf '%s' 'アップル' | piconv -f utf8 -t MacJapanese | base64

結果

g0GDYoN2g4s=

コマンド

printf '%s' 'g0GDYoN2g4s=' | base64 -D | piconv -f MacJapanese -t utf8

結果

アップル

public.utf16-plain-text についてはもうちょっと簡単で、テキストを UTF-16LE でエンコードしたデータとなるようです。

コマンド

printf '%s' 'kimochi.info' | piconv -f utf8 -t utf-16le | base64

結果

awBpAG0AbwBjAGgAaQAuAGkAbgBmAG8A

コマンド

printf '%s' 'awBpAG0AbwBjAGgAaQAuAGkAbgBmAG8A' | base64 -D | piconv -f utf-16le -t utf8

結果

kimochi.info

ただし、ASOC で処理する際は base64 でエンコードする必要はなく、NSData のままで構いません。

これらを踏まえ、お示しのコードは次のように変更すると良いと思います。(変数名とかは好きなように変えてください)

#   <key>com.apple.traditional-mac-plain-text</key>
set nString to current application's NSString's stringWithString:clippingText
set e1 to current application's NSASCIIStringEncoding
set e2 to current application's NSString's defaultCStringEncoding()
set e3 to current application's NSUTF16LittleEndianStringEncoding
repeat with e in {e1, e2, e3}
    if (nString's canBeConvertedToEncoding:e) then
        set encoding to contents of e
        exit repeat
    end if
end repeat
set appleTraditionalData to nString's dataUsingEncoding:(encoding)
set appleTraditionalKey to "com.apple.traditional-mac-plain-text"

#   <key>public.utf16-plain-text</key>
set nString to current application's NSString's stringWithString:clippingText
set publicutf16Data to nString's dataUsingEncoding:(current application's NSUTF16LittleEndianStringEncoding)
set publicutf16Key to "public.utf16-plain-text"

デコード、エンコードの順で書いた方が良かったですね。失礼しました。

ところで、com.apple.traditional-mac-plain-text キーについてちょっとだけ補足。Catalina 以降のテキストクリッピングファイルに合わせるならこんな感じで良いと思います。このデータは参照される可能性が低い (UTF-8 の情報も UTF-16 の情報もない場合に参照される) ので丁寧に作る必要はないのでしょうが、一応サンプルとしてポストしておきます。

#   <key>com.apple.traditional-mac-plain-text</key>
set nString to current application's NSString's stringWithString:clippingText
set regex to current application's NSRegularExpression's regularExpressionWithPattern:"\\A\\p{ASCII}+" options:0 |error|:(missing value)
set match to regex's firstMatchInString:nString options:0 range:(current application's NSMakeRange(0, nString's |length|()))
if match is not missing value then
    set substring to nString's substringWithRange:(match's range())
    set appleTraditionalData to substring's dataUsingEncoding:(current application's NSASCIIStringEncoding)
else
    set appleTraditionalData to current application's NSData's |data|()
end if
set appleTraditionalKey to "com.apple.traditional-mac-plain-text"

テキストクリッピングファイルの仕様が Sierra と Catalina で段階的に変更されたことを今回初めて知りました。また、(話が逸れるので詳細は書きませんが) MacJapanese 絡みの厄介な問題を発見することもできましたし、Automator のアクションのバグ (というか間違った仕様？) を見つけることもできて得した気分になりました。ありがとうございます。