アマゾン・アソシエイトID（アフィリエイト用のID）を含んだ商品URLを生成する秀丸マクロ

先日の版を、/dp/だけではなく/ASIN/でも動くようにしたものです。

// amazon.mac
// アマゾンの商品URLがクリップボードに入っている状態で起動すると、
// アソシエイトIDを含んだ商品URLとはてなのasin記法を生成して秀丸エディタに挿入する秀丸マクロ。
// クリップボードのURLの形式は
//      …/dp/XXXXXXXXXX/… または
//      …/ASIN/XXXXXXXXXX/… という形式を想定している。

// My associate amazon id.
$id = "hyuki-22";

// Get a string in the clipboard.
beginclipboardread;
$url = getclipboard;

// Check patterns.
if (strstr($url,"/dp/") != -1) {
    #pos = strstr($url,"/dp/") + 4;
} else if (strstr($url,"/ASIN/") != -1) {
    #pos = strstr($url,"/ASIN/") + 6;
} else {
    #pos = -1;
}

// Compose an insert string.
if (#pos == -1) {
    $s = "ERROR: /dp/XXXXXXXXXX/ is not found in clipboard.\x0D\x0A";
} else {
    $asin = midstr($url, #pos, 10);
    $s =  "http://www.amazon.co.jp/exec/obidos/ASIN/" + $asin + "/" + $id + "/" + "\x0D\x0A"
        + "asin:" + $asin + ":detail:large" + "\x0D\x0A";
}

// Insert it.
insert $s;

インストール方法 - 上記のamazon.macを秀丸のマクロが入っているディレクトリに入れる。 - [マクロ]→[マクロ登録]でamazon.macを登録する。 実行方法 - アマゾンの商品ページを開く。 - URLをコピーする。 - 秀丸上でamazon.macを[マクロ]→[マクロ実行]する。 入力例：コピーした元URL（『数学ガール』の例）

http://www.amazon.co.jp/%E6%95%B0%E5%AD%A6%E3%82%AC%E3%83%BC%E3%83%AB-%E7%B5%90%E5%9F%8E-%E6%B5%A9/dp/4797341378

出力例：秀丸にペーストされる文字列

http://www.amazon.co.jp/exec/obidos/ASIN/4797341378/hyuki-22/
asin:4797341378:detail:large