驢の耳だと思ったら遼東の豕だった

2021年3月5日

寺田浩晃「三途の川アウトレットパーク」

いつの間にか、一世代回ってしまった。

若者たちもなかなか良い生き方をしている。

がんばれ！

2018年9月29日

Windows10のクイックアクセスからピン止めが外せない時

〔自分用備忘録〕

Windows10 のエクスプローラーの「クイックアクセス」にピン止めしたものが外れないことがある。エクスプローラーの「オプション＞全般＞エクスプローラーの履歴を消去する」でも消えないことがある。私の場合、ピン止めしていたFTPサーバが不要になったので外そうとしてなかなかうまくいかなかった。

その場合は、次の2つのディレクトリの中身を削除すればよい。ただし、これらはエクスプローラーで「隠しファイルを表示」としても見えないので、コマンドプロンプトでの操作となる。全部消すと他のピン止めしたのも消える。

%APPDATA%\Microsoft\Windows\Recent\AutomaticDestinations\
%APPDATA%\Microsoft\Windows\Recent\CustomDestinations\

2018年1月1日

2018年、新年のごあいさつ

恭　賀　新　年

旧年中は一方ならぬ御高配にあずかり誠にありがとうございました
皆様のご多幸をお祈り申し上げます

さて戌年　弊社も出番です　イヌ科です

もともと極東にしかおりませんでしたので学名「Nyctereutes procyonoides」―属名は〝夜の探索者〟種小名は〝アライグマのようなもの〟―のように

「raccoon dog 」〔英〕（アライグマ犬）
「Енотовидная собака」〔露〕（アライグマ犬）
「Marderhund」〔独〕（テン犬）

など欧米の人たちからはそれぞれに身近な生き物の名を借りて呼ばれています

日本では「狸」
韓国でも「너구리」の리は「狸」でしょう
ところが中国では「貉 hé」

あれ？　「狸 lí」は〝山猫〟なのだそうです　弊社の社章　実は「九条ねこ」なのですが案外「窮狸」を正しく表しているようです

本年も何卒ご指導ご鞭撻の程よろしくお願いいたします

　　共通暦二〇一八年　元旦

窮狸校正所
https://kyuli-proofreader.blogspot.jp

2017年7月29日

ちょいスクリプト：索引の種

InDesignの索引作成機能がどうも使いづらいので、語句を拾いながら、スクリプトで「ノンブル（タブ）語句」の組をファイルに書き出すようにした。

var curSlc = app.activeDocument.selection[0];
var curStr = curSlc.contents;
//var curNom = app.layoutWindows[0].activePage.name;
var curNom = curSlc.parentTextFrames[0].parentPage.name;
var outFile = new File("/Users/tak/Dropbox/索引/writeout.txt");
outFile.encoding = "UTF-8";
outFile.lineFeed = "Unix";
if ( outFile.open("a")) {
    outFile.writeln(curNom + "\t" + curStr) ;
    outFile.close();
//    alert (curNom + "\t" + curStr +"　を追加しました。");
    } else {
    alert("書き出しファイルが開けません");
 }

索引に拾う語句をドラッグで選択して、このスクリプトを実行（ショートカットをCtrl+Opt+Cmd+iにした）。alertで書き込めたことを確認してもいいけど面倒なので、tail -f を使って書き込み具合をterminalで監視しておく方が楽。

〔2017-07-30追記〕ノンブルを取得する方法を変えた。はじめはコメントアウト部分のようにしていたが、これだと対象の語句がある頁ではなく、画面上いちばん多く見えている頁のノンブルを取得してしまい、対象語句が次頁にわたっている場合など、別の頁のノンブルを拾ってしまう。

2017年2月6日

ちょいスクリプト：12時制を24時制に書き換える

「午後4:05」→「16時5分」、「午前8時半」→「8時30分」という具合に12時制の時刻を24時制の「hh時mm分」の形式に書き換える。

ただし、「午後12時」は本来「夜中の0時」のはずだけど、「昼の12時15分」のつもりで「午後12時15分」と書く人もいるので、「午後12時」については疑問出しをするようにした。

perl

#!/usr/bin/perl
use utf8;
binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';
binmode STDIN, ':utf8';

while (<>) {
        y/１２３４５６７８９０：/1234567890:/;
        s/(\d+):(\d+)/\1時\2分/g;
        s/(?<=時)半/30分/g;
        s/00分//g;
        s/午後0/12/g;
        s/午後10/22/g;
        s/午後11/23/g;
        s/午後12(?=時\d+分)/昼？夜？0/g;
        s/午後12(?!時\d+分)/0/g;
        s/午後1/13/g;
        s/午後2/14/g;
        s/午後3/15/g;
        s/午後4/16/g;
        s/午後5/17/g;
        s/午後6/18/g;
        s/午後7/19/g;
        s/午後8/20/g;
        s/午後9/21/g;
        s/午前(?=\d+)//g;
    print $_;
}

javascript

var mySel = app.activeDocument.selection;
var myStr = mySel[0].contents;
myStr = myStr.replace(/０/g, "0");
myStr = myStr.replace(/１/g, "1");
myStr = myStr.replace(/２/g, "2");
myStr = myStr.replace(/３/g, "3");
myStr = myStr.replace(/４/g, "4");
myStr = myStr.replace(/５/g, "5");
myStr = myStr.replace(/６/g, "6");
myStr = myStr.replace(/７/g, "7");
myStr = myStr.replace(/８/g, "8");
myStr = myStr.replace(/９/g, "9");
myStr = myStr.replace(/：/g, ":");
myStr = myStr.replace(/(\d+):(\d+)/g,  "$1"+"時"+"$2"+"分");
myStr = myStr.replace(/(?<=時)半/g, "30分");
myStr = myStr.replace(/00分/g, "");
myStr = myStr.replace(/午後0/g, "12");
myStr = myStr.replace(/午後10/g, "22");
myStr = myStr.replace(/午後11/g, "23");
myStr = myStr.replace(/午後12(?=時\d+分)/g, "昼？夜？0");
myStr = myStr.replace(/午後12(?!時\d+分)/g, "0");
myStr = myStr.replace(/午後1/g, "13");
myStr = myStr.replace(/午後2/g, "14");
myStr = myStr.replace(/午後3/g, "15");
myStr = myStr.replace(/午後4/g, "16");
myStr = myStr.replace(/午後5/g, "17");
myStr = myStr.replace(/午後6/g, "18");
myStr = myStr.replace(/午後7/g, "19");
myStr = myStr.replace(/午後8/g, "20");
myStr = myStr.replace(/午後9/g, "21");
myStr = myStr.replace(/午前(?=\d+)/g, "");
mySel[0].contents = myStr;

2017年1月27日

ちょいスクリプト：ルビを統合する

韓国の人の姓名にカタカナのふりがなをつけていた（姓と名のふりがなは「・」で区切る）。

当初、字音ルビとして1文字ずつのモノルビとしたけれど、連音もあるので名の部分についてはグループルビにとの指示があったので、そのように直した（姓はモノルビのまま）。
ところが、こんどは、字間が開きすぎているから、姓・名全体をグループルビにしてほしいと新たな指示が……

モノルビにせよグループルビにせよ、分けて付けてあるルビを一つにまとめようとすると、手作業ではいま付いているルビをいったん消して、新たにルビを付け直すことになる。これでは入力ミスが起こりかねないので、スクリプトで処理することにした。

//統合したい部分は検索など何らかの方法で選択してあるものとする。
var oyaStr = app.activeDocument.selection[0];
var oyaChars = oyaStr.characters;
var newRuby = "";
var prevcharRuby = "";

//親文字列1文字ずつについてルビを読んでいく。
for ( C = 0; C < oyaChars.length; C++ ) {

//前の親文字のルビと同じだったら何もしない。
//【注意！】同じ読みが連続している場合は一つ消えるので、後で修正が必要。
//そうでなければ、新しいルビ文字列に書き足す。
        if ( oyaChars[C].rubyString !== prevcharRuby ) {
                newRuby = newRuby + oyaChars[C].rubyString;
        }
//現在の親文字のルビを、次の親文字のルビと比較するため、変数prevcharRubyに取っておく。
        prevcharRuby = oyaChars[C].rubyString;

//現在の親文字のルビを消し、前後のアキも「自動」に戻す。
        oyaChars[C].rubyString = "";
        oyaChars[C].rubyFlag = false;
        oyaChars[C].leadingAki = -1;
        oyaChars[C].trailingAki = -1;
}
//以上の操作で収集したルビ文字列を選択部分のルビとする。
oyaStr.rubyString = newRuby.replace(/\u0020|\u3000/g,"");

//以下は組方の設定。
oyaStr.rubyType = RubyTypes.GROUP_RUBY;
oyaStr.rubyAlignment = RubyAlignments.RUBY_JIS;
oyaStr.rubyParentSpacing = RubyParentSpacing.RUBY_PARENT_121_AKI;
oyaStr.rubyFlag = true;
oyaStr.rubyXOffset = 0;

グループルビでは、全体のルビが個々の親文字それぞれのルビ文字列だとされているようなので、ルビ文字列をただ連結していくと、同じルビが繰り返されることになる。それを避けようと、同じルビ文字列は付け足さないようにしている。
ただし、同じ読みを重ねるような姓名の場合、一つ消えてしまうことになるので注意！

〔1月28日修正〕

if文のところが冗長だったので整理した。（elseは必須でないのにいまごろ気付いた）
収集したルビ文字列を選択部分のルビとするとき、モノルビの箇所で区切りに使っていた空白文字が残っているのを削除するようにした。

なお、このスクリプトは、たけうちとおるさんの「グループルビをモノルビに、モノルビをグループルビに」を参考にさせていただいた。

2017年1月25日

ちょいスクリプト：モノルビをグループルビに

モノルビにしていたのに、あとでグループルビにという指示が出たとき、これでちゃちゃっと。

var OyaStr = app.activeDocument.selection[0];
//ルビ文字列から区切りの空白（全角・半角）をトル。
var newRuby = OyaStr.rubyString.replace(/[ 　]/, ""); 
OyaStr.rubyString = newRuby;
//種類をグループルビに。
OyaStr.rubyType = 1249011570; 
//揃えを1-2-1(JIS)ルールに。
OyaStr.rubyAlignment = 1249012339 ;

それにしても、InDesignのオブジェクトのプロパティって、オブジェクトモデルビューアで調べるわけだけど、それぞれにちゃんと名前がついているのにスクリプトではこうやって番号で指定しないといけないのは不便じゃないのかな。

2017年1月20日

ちょいスクリプト：註合い印の番号を変更する

InDesignで本文中の註合い印をルビ「（註番号）」の形式で付けていると、著者校で註が追加されたり削除されたりするのに従って、合い印の番号もずらさなければいけない。

一箇所ずつルビを編集していけばいいのだけど、番号を書き換えるスクリプトを書いてみた。この例では註番号を「2」増やす。

var oldNum = app.activeDocument.selection[0].rubyString.replace(/[（）]/g,"");
var newNum = String(parseInt(oldNum) + 2);
app.activeDocument.selection[0].rubyString = "（" + newNum + "）";

もともと、合い印のところは文字スタイルを当てている（ルビの文字サイズを通常のルビより大きくし、位置も下揃えにしている）ので、文字スタイルを検索し、見つけたところで上のスクリプトをあてる（ショートカットを設定しておくと楽）。もちろん、手動で選択したところにあててもいい。

《何をやっているかというと…》

検索などで選択された文字のルビ文字列（rubyString）からreplace関数で前後のパーレンを取って、変数oldNumに代入。
oldNumは文字列なので足し算をするためにparseInt関数で数値に変え、増減値（この場合2）を加えて、String関数で文字列に戻して、newNumに代入。
検索で選択された文字のルビ文字列として、前後にパーレンを付けたnewNumを指定する。

2017年1月19日

13日の金曜日を探す

ことしから10年間の「13日の金曜日」を列挙するbash oneliner。

科学的にはなんの特別なこともない日だけど、bashのfor文の練習に。

$ for y in {2017..2026}
> do
> for m in {1..12}
> do
> ncal $m $y | grep '^金.*13' > /dev/null
> if [ $? -eq 0 ]
> then echo "$y"年"$m"月13日は金曜日だ。
> else :
> fi
> done
> done

味噌は、

for は入れ子にできる。
calでなく、同じ曜日の日を1行に並べるncalを使っている。
ncalの出力からgrepで13日の金曜日を選んでるけれど、それ自体の出力は/dev/nullに捨てて、そのかわりに返り値（マッチが成功した場合に0を返す）を利用している。

なお、ncalの出力はこんな形になっている。

$ ncal 1 2017
    1月 2017
月     2  9 16 23 30
火     3 10 17 24 31
水     4 11 18 25
木     5 12 19 26
金     6 13 20 27
土     7 14 21 28
日  1  8 15 22 29

ubuntuのncalは当日をハイライト表示するけれど、そのエスケープシークエンスがじゃまなので、ハイライト抑止オプション -h を付ける必要がある。

2017年1月12日

ちょいスクリプト：箇条書きの番号をシフト

注に初校で追加があって、そのあと注番号がずれていくような場合にこんなスクリプトを書いた。

var selectedIndex = app.activeDocument.selection[0].contents;
var fixedIndex = String(parseInt(selectedIndex) + 2);
app.activeDocument.selection[0].contents= fixedIndex;

contentsは文字列（数字）なので、
まず、javascript本体のparseInt()関数で数値にして、
それに番号がずれる幅（上の例では2）を加えて、
それをString()関数で文字列に戻している。

注は、
（12）　こんな感じになっているので、正規表現検索「^(?<=（)\d+(?=）)」で数字部分を検索して、上のスクリプトを当てればいい。

本文中の合い印も変えないといけないけど、それはまたこんど。

登録: 投稿 (Atom)