MacBSの日常生活的日記

少し発売が延びていたiPadですが、やっと発売日や価格が決まった
みたいで、各所で話題になっています。
5/28ということで、延期後の予定だった5月末はギリギリ守られましたね。

昨日の時点で、Wi-Fiモデルの価格を私は49800、59800、69800円と
予想してましたが、それよりもちょっと安い感じになりました。
容量は多いほうが安心ではありますが、容量を一番消費するであろう
動画については、同期する時間も結構かかるでしょうし、AirVideo
みたいな感じで、リモート再生するほうが気楽かも。

あとは3Gモデルにするか、Wi-Fiにするかも難しいところですねぇ。
個人的にはアウトドアはiPhone、インドアでiPadと割り切るのも
良いのではないかなぁという気がします。
ビジネスの場だと、iPhoneはケータイとして持ち込みがかろうじて
可能ですが、iPadはあからさまに「パソコン」ですからねぇ。

もちろん、それだけに公衆無線LANはもっと普及してほしいところです。
FONにも再注目ですし、モバイルルータもあったほうが良いかも。
といいつつも、iPhoneのニューモデルも気になりますし、私自身は
プライベートでのiPad購入予定はないんですけどね。(^^;

iPhoneで広告チラシが読めるというソフト、「チラシ検索」が
無料で配信されていたので、早速試してみました。

都道府県を指定して絞り込むことができ、それなりの数のお店が
リストアップされました。
地方都市では全然出てこないかなぁと思っていたので、そこはうれしい
誤算でした。

とはいえ、掲載されてるのは大手チェーン店が中心で、最も需要が
ありそうなスーパーが全然ないのは、ちょっと残念ですねぇ。
ただ、うちは新聞を取ってないので、ヤマダ電機やキタムラの広告が
見られるだけでも価値はありそうです。

iPadが普及したら、チラシや新聞も電子配信になるかもしれませんね。
新聞の勧誘も「洗剤、置いていきますから〜」じゃなくて、そのうち
「iPad、置いていきますから〜」とかになるのかも!?
そうなったら、新聞もまた読みたくなるかもしれませんね。

(5/6 15:47更新)
先日のAppleScript版に続き、VBScriptのほうも修正したので、更新して
再掲しておきます。
—

TwitterにURLを貼る場合、URL短縮サービスを使うことが多々あります。
最近のクライアントは自動でやってくれるものも多いですが、なぜか
うまくいかなかったりすることもありますよね。

というわけで、事前にクリップボードに入ったURLを短縮しちゃう
スクリプトを作ってみました。
Macではアップルスクリプトのものは先日掲載したので、次はVBScriptで。
ソースはこんな感じになりました。

s = GetClipText

if Left(s, 4) = “http” Then
    result = BitlyPost(s)
    If result = “” Then
        Msgbox “URLの短縮に失敗しました。”
        WScript.Quit
    End If
    SetClipText result
Else
    Msgbox “クリップボードにURLがセットされていません。”
End If

WScript.Quit

Function BitlyPost(url)

    sURL = “http://api.bit.ly/v3/shorten?login=★ユーザー名★&apiKey=★APIキー★&uri=” & url & “&format=txt”

    Set oHTTP = WScript.CreateObject(“Msxml2.XMLHTTP”)

    oHTTP.Open “GET”, sURL, False
    oHTTP.send

    BitlyPost = oHttp.responseText

End Function

Function GetClipText

    Set uf=CreateObject(“Forms.Form.1”)
    Set tb=uf.Controls.Add(“Forms.TextBox.1”).Object
    tb.MultiLine=True
    If tb.CanPaste Then
       tb.Paste
       GetClipText = tb.Text
    End If

    Set tb=Nothing
    Set uf=Nothing

End Function

Function SetClipText(s)

    Set uf=CreateObject(“Forms.Form.1”)
    Set tb=uf.Controls.Add(“Forms.TextBox.1”).Object
    tb.MultiLine=True
    tb.Text=s
    tb.SelStart=0
    tb.SelLength=tb.TextLength
    tb.Copy

    Set tb=Nothing
    Set uf=Nothing

End Function

クリップボードへのアクセスがWindows標準ではできないので、ここでは
Officeを利用しています。
IEでも可能なんですが、セキュリティ設定によっては動作しないことが
あるんですよねぇ。
ということで、しょぼいスクリプトのわりにはOffice必須です。(^^;

なお、クリップボードの取得・設定方法につきましては、以下のサイト様の
情報をそのまま利用させていただきました。感謝、感謝であります。
http://winscript.s41.xrea.com/wiki/index.php?[[FAQ]]#content_1_4

AppleScriptのほうはurlencode必須でしたが、Windowsのブラウザは
urlencodeした状態で返してくれるようなので、そのまま何もしていません。
一応うまくいってるようですが、あくまでもサンプルみたいなものですので、
自己責任でご利用いただければ幸いです。
なお、スクリプトファイルは下の場所にも置いておきました。
http://saramac.main.jp/fw/bitly.vbs

以前から短縮URLに変換するのにアップルスクリプトを
使ってるのですが、今日使おうと思ったら、うまく動かなくなって
いるのに気づきました。

どうやらサイトリニューアルに合わせてか、古いAPIが使えなく
なったようです。
新しいものはユーザー登録してAPIキーを取る必要があるんですね。
ということで、新しいAPIを使って作り直してみました。

set the cbURL to (the clipboard as string)
if ((characters 1 through 4 of cbURL as string) is not “http”) then
    display dialog “No URL.” default button 1 buttons “OK”
else
    set theTextEnc to do shell script “php -r ‘echo trim(urlencode(” & “\”” & cbURL & “” & “\”));'”

    set clCMD to “curl –stderr /dev/null ‘http://api.bit.ly/v3/shorten?login=★ユーザー名★&apiKey=★APIキー★&uri=”; & theTextEnc & “&format=txt'”
    set the clipboard to (do shell script clCMD) as string
end if

エンコードの関係で上のをコピペすると一部が全角になっちゃうので、
下のファイルをダウンロードしていただくのが便利かと。
http://saramac.main.jp/fw/bitly.scpt

ユーザー名とAPIキーの部分はご自身のものに置き換える必要があります。
なお、すでにユーザー登録していたら、下のURLで確認できます。
http://bit.ly/a/your_api_key

urlencodeが必要になったので、そこがちょっと困りましたが、PHPを
呼び出してエンコードしちゃいました。
もしかすると、環境に依存するかもしれませんね。

あと、以前作ったVBScriptバージョンのほうも作り替えないとダメですね。
近いうちに更新したいと思います。

林信行さん著の「iPhoneとツイッターは、なぜ成功したのか？」が
iPhoneアプリとして、5/5まで無料で読めるということで、早速、
ダウンロードして読ませてもらいました。

まずは電子書籍アプリとして見て、非常に良く出来ていて、
そこに最初に感心しました。
理想書店版のもあって、そちらだとパソコンでも読めるそうです。

もちろん、実際に本でも発売されてるわけですが、内容的にもまさに
こうした電子書籍を視野に入れた執筆を今後進めていかれることを
前提にした実験なのかなぁと感じました。

音楽ではすでにスタートしていますが、まだまだ日本では著作物について
妙に閉鎖的なところが残っています。
もちろん、著作者の保護はとても大切なことですが、そうしたご本人の
意思とは反したところで「利権」のようなもので縛られている印象も
ありますからねぇ。

本の内容は無料なわけですし、ぜひ実際に読んでいただくのが一番かと
思いますが、個人的に一番共感したのは日本のものづくりへの危機感
でしょうか。

今の日本製品はどうも「ハコモノ」的な印象を受けます。
競合製品やスペックだけを意識しすぎて、視点がずれていたり、
長期的なスタンスに立っていないものが多いような気がします。

著書ではAppleやGoogleなどを中心に色々な成功例を挙げてありますが、
もちろん、そうした企業もすべてが成功しているわけではありません。
モノマネをするだけではダメだとは思いますが、謙虚に見習うべき点を
見つめ直してみるのも良いのかなぁとも思いました。

作詞家、松本隆さんの手がけた作品をカバーしたコンピレーション
アルバム「松本隆に捧ぐ -風街DNA-」が5/12にリリースされるそうで。

収録曲とカバーするアーティストさんは以下のような感じとのこと。

01. キャンディ（原田真二） / 青山テルマ
02. ルビーの指環（寺尾聰） / 福山雅治
03. 空いろのくれよん（はっぴいえんど） / 持田香織
04. 赤いスイートピー（松田聖子） / 綾瀬はるか
05. 木綿のハンカチーフ（太田裕美） / 佐藤竹善
06. スローなブギにしてくれ（I want you）（南佳孝） / CHEMISTRY
07. Romanticが止まらない（C-C-B） / 玉置成実
08. 薄荷キャンディー（Kinki Kids） / オトナモード
09. 瞳はダイアモンド（松田聖子） / 徳永英明
10. 風をあつめて（はっぴいえんど） / My Little Lover

懐かしい曲がいっぱいですね。
綾瀬はるかさんが参加されてるのがちょっと意外なところかな。

歌ってたっけ？と思ったら、だいぶ前に持田さんの作詞でシングルを
発売されてたりするんですね。

松本さんの歌詞は中学生の頃、ノートに書き写したりしてたなぁ。
あの頃は友だちからレコードやCDを借りて、テープに録音して、
歌詞カードは手書きで写してましたからね。

CDになってからはテープのA面とB面にうまく曲が収まるように
曲順を変えてみたりとか、そういう工夫をしてたなぁ。
今は便利になったけれど、あれはあれで楽しかったんだけどなぁと
ちょっと懐かしく思いました。