9月, 2015 | 雑スクリプト

インデザインで、ひらがな／カタカナを相互変換。

2015年9月29日 tetsu InDesign, JavaScript

インデザインで文章中のひらがな／カタカナを入れ替えて変換するという

イレギュラーな仕事があったのでスクリプトを作りました。

普通に作業すると、単純に文字を入力し直すことになってしまい、

修正にかなり時間が掛かってしまいます。

そこで、スクリプトを作成しようと思ったのですが、

まず、インデザインの検索機能を使うと、

(もとの文字列）　→　　インデザインで、ひらがな／カタカナを相互変換。

(カタカナ変換）　→　　インデザインデ、ヒラガナ／カタカナヲ相互変換。

(ひらがな変換）　→　　いんでざいんで、ひらがな／かたかなを相互変換。

と一方通行の変換はできるのですが、

ひらがなの時は → カタカナ、カタカナの時は → ひらがな変換という

条件つきの変換ができません。たぶん…

(目的の変換）　→　　いんでざいんデ、ヒラガナ／かたかなヲ相互変換。

そこで単純にJavaScritpのif文を使用して作成してみました。

ひらがな → カタカナ変換、カタカナ → ひらがな変換には、

下記のサイトを参考にさせていただきました。

▼JavaScript

sel = app.activeDocument.selection;
for (j=0; j<sel.length; j++)
{
selObj = sel[j];
for (i=0; i<selObj.characters.length; i++)
{
cObj = selObj.characters[i];
if (cObj.contents.match(/[ぁ-ん]/)){ 
TargetString = cObj.contents.replace(/[ぁ-ん]/g, function(s) {
   return String.fromCharCode(s.charCodeAt(0) + 0x60);
});
cObj.contents = TargetString;
}else if (cObj.contents.match(/[ァ-ン]/) ){
TargetString = cObj.contents.replace(/[ァ-ン]/g, function(s) {
   return String.fromCharCode(s.charCodeAt(0) - 0x60);
});
cObj.contents = TargetString;
}
}
}

sel = app.activeDocument.selection;

for (j=0; j<sel.length; j++)

{

selObj = sel[j];

for (i=0; i<selObj.characters.length; i++)

{

cObj = selObj.characters[i];

if (cObj.contents.match(/[ぁ-ん]/)){

TargetString = cObj.contents.replace(/[ぁ-ん]/g, function(s) {

return String.fromCharCode(s.charCodeAt(0) + 0x60);

});

cObj.contents = TargetString;

}else if (cObj.contents.match(/[ァ-ン]/) ){

TargetString = cObj.contents.replace(/[ァ-ン]/g, function(s) {

return String.fromCharCode(s.charCodeAt(0) - 0x60);

});

cObj.contents = TargetString;

}

参考情報

カタカナをひらがなに一括変換する – JavaScript TIPSふぁくとりー

OS Xの「サービス」を使用して、文字化けした丸数字を元に戻す。

2015年9月23日 tetsu AppleScript, Automator, OS X, Other

Windowsから来たメールやテキストなどに、

よく使用されている①、②などの丸数字は、

Macだと文字化けしてしまいます。

それを簡単に元に戻す方法を紹介します。

単なる文字置換ですけど…

【作成方法】

アプリケーション　＞　Automator　＞　サービスを選択。

ライブラリ　＞　AppleScriptを実行をダブルクリック。

画像のように、AppleScriptコードを入力して、

「◯数字変換」などの適当な名前で保存します。

▼AppleScript

on run {input, parameters}
	
	try
		set a to the (input as string)
		
		set c to repChar(a, "㈰", "①") of me
		set c to repChar(c, "㈪", "②") of me
		set c to repChar(c, "㈫", "③") of me
		set c to repChar(c, "㈬", "④") of me
		set c to repChar(c, "㈭", "⑤") of me
		set c to repChar(c, "㈮", "⑥") of me
		set c to repChar(c, "㈯", "⑦") of me
		set c to repChar(c, "㉀", "⑧") of me
		set c to repChar(c, "㈷", "⑨") of me
		set c to repChar(c, "㉂", "⑩") of me
		set c to repChar(c, "㉃", "⑪") of me
		set c to repChar(c, "㈹", "⑫") of me
		set c to repChar(c, "㈺", "⑬") of me
		set c to repChar(c, "㈱", "⑭") of me
		set c to repChar(c, "㈾", "⑮") of me
		set c to repChar(c, "㈴", "⑯") of me
		set c to repChar(c, "㈲", "⑰") of me
		set c to repChar(c, "㈻", "⑱") of me
		set c to repChar(c, "㈶", "⑲") of me
		set c to repChar(c, "㈳", "⑳") of me
				
	end try
	
	return c
end run
--文字置換ルーチン
on repChar(origText, targStr, repStr)
	set {txdl, AppleScript's text item delimiters} to {AppleScript's text item delimiters, targStr}
	set temp to text items of origText
	set AppleScript's text item delimiters to repStr
	set res to temp as text
	set AppleScript's text item delimiters to txdl
	return res
end repChar

on run {input, parameters}

try

set a to the (input as string)

set c to repChar(a, "㈰", "①") of me

set c to repChar(c, "㈪", "②") of me

set c to repChar(c, "㈫", "③") of me

set c to repChar(c, "㈬", "④") of me

set c to repChar(c, "㈭", "⑤") of me

set c to repChar(c, "㈮", "⑥") of me

set c to repChar(c, "㈯", "⑦") of me

set c to repChar(c, "㉀", "⑧") of me

set c to repChar(c, "㈷", "⑨") of me

set c to repChar(c, "㉂", "⑩") of me

set c to repChar(c, "㉃", "⑪") of me

set c to repChar(c, "㈹", "⑫") of me

set c to repChar(c, "㈺", "⑬") of me

set c to repChar(c, "㈱", "⑭") of me

set c to repChar(c, "㈾", "⑮") of me

set c to repChar(c, "㈴", "⑯") of me

set c to repChar(c, "㈲", "⑰") of me

set c to repChar(c, "㈻", "⑱") of me

set c to repChar(c, "㈶", "⑲") of me

set c to repChar(c, "㈳", "⑳") of me

end try

return c

end run

--文字置換ルーチン

on repChar(origText, targStr, repStr)

set {txdl, AppleScript's text item delimiters} to {AppleScript's text item delimiters, targStr}

set temp to text items of origText

set AppleScript's text item delimiters to repStr

set res to temp as text

set AppleScript's text item delimiters to txdl

return res

end repChar

【使い方】

テキストエディットなどで

文字化けした文字列を選択して、

作成したサービスを選択すると、

上の図のように変換されます。

他にも、改行の変換や簡易校正など、

色々と使い道がありそうです。

参考情報

WindowsからiPhone／iPod touch／Macに送ってはいけない文字とは？

ディスクトレイをワンクリックでOPEN & CLOSE。

2015年9月20日 tetsu AppleScript, OS X, Other

現在の薄型iMacになってから、

ディスクドライブがなくなり、

外付けドライブだと、キーボードのディスク取り出しボタンが使用できないので

不便に感じていた人は多かったのではないでしょうか。

そこで、ワンクリックで、

ディスクトレイが自動開閉するものを作ってみました。

よく紹介されているシェルスクリプトを

アップルスクリプトで実行させるものです。

紹介するほどのスクリプトでもないのですが…

【作成方法】

ユーティリティ　＞　AppleScript エディタを起動。

下記のAppleScriptコードを入力して、

アプリケーション形式で「Open & Close」などの適当な名前で保存。

▼AppleScript

--do shell script "drutil tray open"
--do shell script "drutil tray eject"
--do shell script "drutil tray close"

try --念のため
	do shell script "drutil tray eject" --開く
end try
BeepVolume2() of me --音が必要なければ、行頭に--をつける。
try
	do shell script "drutil tray close" --閉じる
end try

on BeepVolume2()
	set getvolume to get volume settings
	set outVol to output volume of getvolume
	set myVol to outVol / (100 / 7)
	set volume 2 --実際に鳴らす音量　数値：0〜7まで
	delay 0.5
	beep 1
	delay 0.75
	beep 1
	set volume myVol
end BeepVolume2

--do shell script "drutil tray open"

--do shell script "drutil tray eject"

--do shell script "drutil tray close"

try --念のため

do shell script "drutil tray eject" --開く

end try

BeepVolume2() of me --音が必要なければ、行頭に--をつける。

try

do shell script "drutil tray close" --閉じる

end try

on BeepVolume2()

set getvolume to get volume settings

set outVol to output volume of getvolume

set myVol to outVol / (100 / 7)

set volume 2 --実際に鳴らす音量　数値：0〜7まで

delay 0.5

beep 1

delay 0.75

beep 1

set volume myVol

end BeepVolume2

【使用方法】

作成したアプリケーションをダブルクリックすると、

ディスクトレイが開き、数秒で閉じます。

また、ディスクトレイを閉じたいだけの時にも使用できます。数秒待ちますが…

【注意点】

ディスクトレイが開いても、

数秒で勝手に閉じてしまうので、

注意してください。

そういうスクリプトなんで、当たり前ですが…

参考情報

QuickOpenTray

隠されたディスクイジェクトメニューを表示する方法