Applescript | 電書魂

‘Applescript’ タグのついている投稿

mi内でタグ以外の箇所の半角英数字を一括全角置換したい

2018/04/05

　電書で縦書きの本を作ることが多いため、テキストエディタ「mi」内でXHTMLファイル内の半角英数字を全角に打ち替えなければならないことが時々あります。なんでそういうことになるのかと言えば、InDesignのデータ内では半角の英数字でも段落の設定次第で正立させて表示できるんですね。でもXHTMLとして書き出してしまうとそういう設定は飛んでしまうので半角英数字として横転してしまいます。なのでこれまでできるだけInDesign内で半角から全角に置換するようにしていましたが、やはり書き出してしまってから置換できてなかったのが判明して手で打ち替えるというケースがそれなりにあり、特に長めの単語ではめんどくさいし入力ミスが怖いなーと思っておりました。
　ということで普段使っているテキストエディタ「mi」内で気軽に置換できるようにしたので以下メモです。

やりたいこと

miに書き出した段階ではXHTMLタグテキストの編集になるため、タグ部分は除外して置換処理をしたい
テキスト全体ではなく該当部分を選んで置換処理をかけたい
できるならショートカットで置換できるように設定したい

Perlでの置換処理の内容

　Perlで処理するための置換コード自体は以下。処理としてはテキストを<>で括られた文字列（要はXHTMLのタグ）を区切り文字として分割し、配列内各要素がタグかどうかを判定してタグではないものに対してのみ置換処理をかけています（なので使用者がタグの真ん中あたりから適当に範囲選択したりするとアレなことにはなるけどそれは無視）。ここいらのコードは市川せうぞーさんにヒントをいただきました。ありがとうございます。

utf8::decode($ARGV[0]);
$_ = $ARGV[0];
my @splitArray = split(/(<[^<>]+?>)/, $_);
foreach my $eachElement(@splitArray){
  unless ($eachElement =~ /^<[^<>]+?>$/){
    $eachElement =~ tr/0-9A-Za-z/０-９Ａ-Ｚａ-ｚ/;
  }
}
$_ = join(\"\", @splitArray);
print $_;

utf8::decode($ARGV[0]);

$_ = $ARGV[0];

my @splitArray = split(/(<[^<>]+?>)/, $_);

foreach my $eachElement(@splitArray){

unless ($eachElement =~ /^<[^<>]+?>$/){

$eachElement =~ tr/0-9A-Za-z/０-９Ａ-Ｚａ-ｚ/;

}

$_ = join(\"\", @splitArray);

print $_;

ワンライナー化してAppleScriptに組み込む

これをワンライナー化してAppleScriptに組み込むことでmiでの現在の選択部分に対して置換をかけられるようになります。

on run
	tell application "mi"
		tell document 1
			set stringRef to selection
			set regexp to "my @splitArray = split(/(<[^<>]+?>)/, $_);foreach my $eachElement(@splitArray){unless ($eachElement =~ /^<[^<>]+?>$/){$eachElement =~ tr/0-9A-Za-z/０-９Ａ-Ｚａ-ｚ/;}}$_ = join(\"\", @splitArray);print $_;"
			--文字列置換
			try
				set mytxt to regexReplace(stringRef, regexp) of me
			end try
			set selection to mytxt
		end tell
	end tell
end run

--perl処理サブルーチン
on regexReplace(stringRef, regexp)
	set perlScript to "utf8::decode($ARGV[0]); $_ = $ARGV[0]; " & regexp as Unicode text
	set perlScript to quoted form of perlScript
	try
		set stringRef to do shell script "perl -Mutf8 -e " & perlScript & " " & quoted form of (contents of stringRef)
	on error errMsg number errNum
		set msg to contents of stringRef
		display alert (msg & return & return & errMsg & return & errNum) as Unicode text
	end try
	return stringRef
end regexReplace

on run

tell application "mi"

tell document 1

set stringRef to selection

set regexp to "my @splitArray = split(/(<[^<>]+?>)/, $_);foreach my $eachElement(@splitArray){unless ($eachElement =~ /^<[^<>]+?>$/){$eachElement =~ tr/0-9A-Za-z/０-９Ａ-Ｚａ-ｚ/;}}$_ = join(\"\", @splitArray);print $_;"

--文字列置換

try

set mytxt to regexReplace(stringRef, regexp) of me

end try

set selection to mytxt

end tell

end run

--perl処理サブルーチン

on regexReplace(stringRef, regexp)

set perlScript to "utf8::decode($ARGV[0]); $_ = $ARGV[0]; " & regexp as Unicode text

set perlScript to quoted form of perlScript

try

set stringRef to do shell script "perl -Mutf8 -e " & perlScript & " " & quoted form of (contents of stringRef)

on error errMsg number errNum

set msg to contents of stringRef

display alert (msg & return & return & errMsg & return & errNum) as Unicode text

end try

return stringRef

end regexReplace

　なお「on run」「end run」の行に関してはmi内のツールから実行するための記述なので、単体アプリとして保存して使うならなくてよいです。範囲選択した状態でアプリを実行すれば大丈夫。
miのモードにスクリプトを組み込む方法については詳述はしないのでmi公式ページなど見てください。実例としては以前に作ったこれの「その他」（Miscellaneous）フォルダに各種仕込んだりしてます。

キーボードショートカットで使えるようにしてさらに便利に

　で、これをキーボードショートカット一発で使えると本当に快適だなーと思って調べていたのですが、macOS設定メニュー内、キーボード項目のショートカット設定で行けるという情報を見つけました。素晴らしい！何でも行けるじゃないですかこれなら。

　ということで早速設定。ついでにひらがな←→カタカナの変換も仕込みました。そちらもタグは除外して置換するようにしました。まあXHTMLのタグ内にカナとか漢字が混じってるとは思えないけど。

タグの部分以外が一括で置換された

　他にも仕事ごとにいろいろ仕込んで使えそうだけどまあそこいらはおいおい。

（2018.4.5）

タグ: Applescript, mi, Perl, ワンライナー
カテゴリー: 未分類 | 1 件のコメント »

NumbersからCSVを書き出すドロップレット

2018/03/12

　ちょっと前からNumbersの新バージョンでAppleScriptを使ってCSVをエクスポートしようとするとエクスポートに失敗する上にNumbersの元ファイルが壊れて開けなくなるという不具合が出てまして、旧バージョンのNumbersを使うことでごまかしていたのですが、マシン更新でさすがにごまかしきれなくなってきたので適当に英語のフォーラムを漁ってどうにかしました。まあサンプルコードがフォルダ選択なのをドロップレットにした以外何にもしてませんが、また数年後に同じネタでハマってググるの嫌なので備忘録として置いておきます。

on open theDocs
	repeat with aDoc in theDocs
		tell application "Finder"
			set docName to aDoc's name as text
			if docName ends with ".numbers" then
				set exportName to (folder of aDoc as text) & docName
				set exportName to exportName's text 1 thru -9 & ".csv"
				tell application "Numbers"
					open aDoc
					delay 0.6 -- ちょっと待つ
					tell front document
						export to file exportName as CSV
						close
					end tell
				end tell
			end if
		end tell
	end repeat
end open

on open theDocs

repeat with aDoc in theDocs

tell application "Finder"

set docName to aDoc's name as text

if docName ends with ".numbers" then

set exportName to (folder of aDoc as text) & docName

set exportName to exportName's text 1 thru -9 & ".csv"

tell application "Numbers"

open aDoc

delay 0.6 -- ちょっと待つ

tell front document

export to file exportName as CSV

end tell

end if

end tell

end repeat

end open

　以上。ドロップレットとして使うにはスクリプトエディタにペーストしてアプリとして保存してね。しかしファイル壊れるってよっぽどだよな。あと未だにAppleScriptの型変換苦手です。ワケがわからん。

（2018.3.13）

タグ: Applescript, csv, Numbers
カテゴリー: 未分類 | コメントはまだありません »

「自然順ソート」あれこれ

2016/09/20

　最近ちょっとしたツールを作っていて、スクリプト内で「Finderの表示順にファイルをソート（整列）させたい」という要件がありまして、なかなかに手こずったので今後のために備忘録としてまとめておきます。

Finderでのソート順って？

　まず、Finderでのソート順って何かっていいますと、

ファイル1,ファイル2,ファイル3…ファイル10,ファイル11,ファイル12

　となるようなソート方法のことです。文字列の後に数字が来るような場合でも数値順にソートさせたい。
　perlなどで普通に文字列順にソートさせても数値でソートさせても

ファイル1,ファイル10,ファイル11,ファイル12,ファイル2,ファイル3…

　となってしまい、思ったような処理ができません。

　Finderでのソート順については、降りてきた天の声によると

@JunTajima FinderはJIS X 4061 照合順番を実装していると木田さんが言ってたような。

— 小形克宏 (@ogwata) 2016年9月11日

　とのことらしく。ありがとうございます@ogwataさん。

　なお、どうやらJIS X 4061 照合順番で定義されてるようなソート方法を「自然順ソート」と言うらしいのですが、PerlだとSort::Naturallyあたりのモジュールを利用すればできる模様（参考）。ただ今回は配布ツールでの使用を考えているので、CPANからモジュールを入れる的な話はできれば避けたく、いろいろと違う方向性を模索していたわけです。

Xojo内でCocoaのライブラリを呼び出してソート

　フロントエンドのツールはXojoなので、Xojo内でできればなと思って、過去にQiitaにされていたアップされていたこちらの神エントリをもとにどうにかソートできるようにしたのが以下。さすがです@monokanoさん。

  'ファンクション宣言
  Declare function localizedStandardCompare lib "Cocoa" selector "localizedStandardCompare:" (s1 as CFStringRef, s2 as CFStringRef) as Integer
  '最終出力用変数の定義
  Dim mySortedArray() AS String
  
  '自然順ソート実行
  For Each myItem As String In myArray
    If mySortedArray.Ubound = -1 then
      mySortedArray.Append (myItem)
    Else
      For myCount AS Integer = mySortedArray.Ubound Downto 0
        Dim myMatchItem As String = mySortedArray(myCount)
        Dim myCompareResult AS Integer
        myCompareResult = localizedStandardCompare( myMatchItem, myItem )
        If myCompareResult = - 1 then
          mySortedArray.Insert(myCount+1, myItem)
          Exit
        ElseIf myCount = 0 then
          mySortedArray.Insert(myCount, myItem)
        End If
      Next myCount
    End If
  Next
  
  Return mySortedArray()

'ファンクション宣言

Declare function localizedStandardCompare lib "Cocoa" selector "localizedStandardCompare:" (s1 as CFStringRef, s2 as CFStringRef) as Integer

'最終出力用変数の定義

Dim mySortedArray() AS String

'自然順ソート実行

For Each myItem As String In myArray

If mySortedArray.Ubound = -1 then

mySortedArray.Append (myItem)

Else

For myCount AS Integer = mySortedArray.Ubound Downto 0

Dim myMatchItem As String = mySortedArray(myCount)

Dim myCompareResult AS Integer

myCompareResult = localizedStandardCompare( myMatchItem, myItem )

If myCompareResult = - 1 then

mySortedArray.Insert(myCount+1, myItem)

Exit

ElseIf myCount = 0 then

mySortedArray.Insert(myCount, myItem)

End If

Next myCount

End If

Return mySortedArray()

　Xojo内でモジュール化しておいて元の配列を投げ、ソート後の配列を得る、みたいな使い方です。今回の目的としてはFinderのソート順の再現なので、Finderと同じエンジンを使うこちらが一番目的に叶いそうです。ただもちろんCocoaのライブラリを呼び出している以上Mac専用にはなります。

Applescriptでの自然順ソート

　AppleScriptでもできそうかなということでこちらの投稿をもとに作ってみたのが以下。

on run (myOriginalJoinedString)
	--入力値を分割してリストに
	set mySplitArray to splitList(item 1 of myOriginalJoinedString, ",")
	--ソート実行
	considering numeric strings
		set mySortedList to simple_sort(mySplitArray)
	end considering
	--リストを結合して文字列に
	set mySortedJoinString to joinList(mySortedList, ",")
	--結果を返す
	return mySortedJoinString
end run

--自然順ソートアルゴリズム
on simple_sort(my_list)
	set the index_list to {}
	set the sorted_list to {}
	repeat (the number of items in my_list) times
		set the low_item to ""
		repeat with i from 1 to (number of items in my_list)
			if i is not in the index_list then
				set this_item to item i of my_list as text
				if the low_item is "" then
					set the low_item to this_item
					set the low_item_index to i
				else if this_item comes before the low_item then
					set the low_item to this_item
					set the low_item_index to i
				end if
			end if
		end repeat
		set the end of sorted_list to the low_item
		set the end of the index_list to the low_item_index
	end repeat
	return the sorted_list
end simple_sort

--リスト分割
on splitList(theText, aDelimiter)
	set tmp to AppleScript's text item delimiters
	set AppleScript's text item delimiters to aDelimiter
	set theList to get text items of theText
	set AppleScript's text item delimiters to tmp
	return theList
end splitList

--リスト結合
on joinList(theList, aDelimiter)
	set tmp to AppleScript's text item delimiters
	set AppleScript's text item delimiters to aDelimiter
	set theText to theList as string
	set AppleScript's text item delimiters to tmp
	return theText
end joinList

on run (myOriginalJoinedString)

--入力値を分割してリストに

set mySplitArray to splitList(item 1 of myOriginalJoinedString, ",")

--ソート実行

considering numeric strings

set mySortedList to simple_sort(mySplitArray)

end considering

--リストを結合して文字列に

set mySortedJoinString to joinList(mySortedList, ",")

--結果を返す

return mySortedJoinString

end run

--自然順ソートアルゴリズム

on simple_sort(my_list)

set the index_list to {}

set the sorted_list to {}

repeat (the number of items in my_list) times

set the low_item to ""

repeat with i from 1 to (number of items in my_list)

if i is not in the index_list then

set this_item to item i of my_list as text

if the low_item is "" then

set the low_item to this_item

set the low_item_index to i

else if this_item comes before the low_item then

set the low_item to this_item

set the low_item_index to i

end if

end repeat

set the end of sorted_list to the low_item

set the end of the index_list to the low_item_index

end repeat

return the sorted_list

end simple_sort

--リスト分割

on splitList(theText, aDelimiter)

set tmp to AppleScript's text item delimiters

set AppleScript's text item delimiters to aDelimiter

set theList to get text items of theText

set AppleScript's text item delimiters to tmp

return theList

end splitList

--リスト結合

on joinList(theList, aDelimiter)

set tmp to AppleScript's text item delimiters

set AppleScript's text item delimiters to aDelimiter

set theText to theList as string

set AppleScript's text item delimiters to tmp

return theText

end joinList

　他の処理系に投げるので一回文字列に結合して引数として投げ、ソートした後に再結合した文字列を得ます。でそれをまた分解して配列に。
　AppleScriptはテキストアイテムデリミタでの文字列の分解結合処理がいつもながらややこしいのですが、そのあたりはまあご愛敬ということで。こちらもAppleScriptを使う以上Mac専用です。まあそのうちAppleScriptで自然順ソートさせなきゃならないケースも出てくるかも知れないし。

PHPのnatsort関数でソート

　PHPには自然順ソートができるnatsortという関数がデフォルトで入っているとのことなのでやってみたのが以下。

<?php
$joinedOriginalString = $argv[1];
$myArray = explode(",", $joinedOriginalString);
natsort($myArray);
$joinedString = implode(",", $myArray);
print($joinedString);
?>

<?php

$joinedOriginalString = $argv[1];

$myArray = explode(",", $joinedOriginalString);

natsort($myArray);

$joinedString = implode(",", $myArray);

print($joinedString);

　一番簡単かも。Mac環境に依存しないのでそういう意味での使い出もありそうです。

　3種類の自然順ソートを収録したXojoのファイルを

natsort_sample.zip

1 file(s) 11.46 KB

Download

に置いておきます。

◇

　で、ブログにまとめてたら最後になんかPerlでモジュールを使わずにできそうなサンプルを発見してしまった。最初に出てきて欲しかった（汗）。

（2016.9.20）

追加情報メモ。
・ApplescriptならFinderにtellしてsort by nameで並べ替えちゃうのが手っ取り早いと。ただし処理は遅いから大量のファイル処理には向かないとのこと。
・OS Xでもバージョンによって微妙にソート結果が変わったりするらしい。なので確実にFinderのソート順通りのソート結果が欲しければApplescript上からFinderを呼び出して値を取得するか、Cocoaのライブラリを呼び出してソートさせるかするしかない。
・対象がファイル名ならPerl内からosascriptでApplescript呼んでFinderに聞くのが手っ取り早いんじゃないのと言われたのでちょい試しました。以下コードをメモ。

#! /usr/bin/perl
my $imagePath = "/Users/JunTajima/Desktop/testfolder";
my $appleScriptPath = "/Users/JunTajima/Desktop/testapplescript.scpt";
my $result = `osascript $appleScriptPath $imagePath`;
print $result;

#! /usr/bin/perl

my $imagePath = "/Users/JunTajima/Desktop/testfolder";

my $appleScriptPath = "/Users/JunTajima/Desktop/testapplescript.scpt";

my $result = `osascript $appleScriptPath $imagePath`;

print $result;

on run argv
	set myImageFolderPathPOSIX to item 1 of argv
	tell application "Finder"
		set myImageFolderPath to myImageFolderPathPOSIX as POSIX file
		set imageFilePaths to every item in folder myImageFolderPath
		set imageFilePaths to (sort imageFilePaths by name)
		set imageFileNamesList to {}
		repeat with filePath in imageFilePaths
			set the end of imageFileNamesList to filePath's name
		end repeat
	end tell
	set mySortedJoinString to joinList(imageFileNamesList, ",")
	return mySortedJoinString
end run
--リスト結合
on joinList(theList, aDelimiter)
	set tmp to AppleScript's text item delimiters
	set AppleScript's text item delimiters to aDelimiter
	set theText to theList as string
	set AppleScript's text item delimiters to tmp
	return theText
end joinList

on run argv

set myImageFolderPathPOSIX to item 1 of argv

tell application "Finder"

set myImageFolderPath to myImageFolderPathPOSIX as POSIX file

set imageFilePaths to every item in folder myImageFolderPath

set imageFilePaths to (sort imageFilePaths by name)

set imageFileNamesList to {}

repeat with filePath in imageFilePaths

set the end of imageFileNamesList to filePath's name

end repeat

end tell

set mySortedJoinString to joinList(imageFileNamesList, ",")

return mySortedJoinString

end run

--リスト結合

on joinList(theList, aDelimiter)

set tmp to AppleScript's text item delimiters

set AppleScript's text item delimiters to aDelimiter

set theText to theList as string

set AppleScript's text item delimiters to tmp

return theText

end joinList

行けますね。楽でいいかも。

タグ: Applescript, Finder, JIS X 4061, PHP, Xojo, ソート, 自然順ソート
カテゴリー: 未分類 | 2 件のコメント »