compare - TextWrangler: AppleScript の助けを借りて、空白を無視して 2 つのドキュメントを比較する

Question

TextWrangler の空白を無視して 2 つのドキュメントを比較する方法を探していました。TextWrangler のインターフェースはそのオプションを提供していませんが、私はこれを見つけましたhttps://groups.google.com/d/msg/bbedit/ER3VdOf2xOs/IcKi3ccA90oJ

現在、これは完全に機能するソリューションではありませんでした。このスクリプトの間：

tell application "TextWrangler"
    compare document 1 against document 2 options ¬
        {case sensitive:true, ignore curly quotes:true, ignore extra spaces:true, ignore leading spaces:true, ignore trailing spaces:true}
end tell

動作しますが、やや柔軟性がありません。だから私は2番目のスタブを機能させようとしました：

set compOpts to {"All Options:false", "case sensitive:true", "ignore curly quotes:true", "ignore extra spaces:true", "ignore leading spaces:true", "ignore trailing spaces:true"}

tell application "TextWrangler"

    tell me to set compOpts to choose from list compOpts ¬
        with title "Compare Front Two Documents" with prompt ¬
        "Select Options" default items (items 2 thru -1 of compOpts) ¬
        multiple selections allowed true ¬
        with empty selection allowed

    display dialog compOpts as string

    set compareOptions to make new Compare Options with properties compOpts

    compare document 1 against document 2 options compareOptions

end tell

しかし、ここでエラーが発生します:

error "TextWrangler got an error: Can’t make class Compare Options." number -2710 from Compare Options to class

私はここで何を間違っていますか？

次のスクリプトも機能することを付け加えておきます。

tell application "TextWrangler"
    set compareOptions to ¬
        {case sensitive:true, ignore curly quotes:true, ignore extra spaces:true, ignore leading spaces:true, ignore trailing spaces:true} ¬

    compare document 1 against document 2 options compareOptions

end tell

しかし、これは機能しません:

set compareOptions to {All Options:false, case sensitive:true, ignore curly quotes:true, ignore extra spaces:true, ignore leading spaces:true, ignore trailing spaces:true}

コンパイルされないだけです。なに…？