2012/04/09

現在のJPY/NTDレートをひっぱってきてくれるelisp


台湾のYahoo!のページから為替レートをひっぱってきて、
表示してくれるelispを書きました。
もとのページにはいろいろな銀行の資料が表示されるのですが、
一番安く日本円を売ってくれる台湾銀行のものを表示してくれるようにしました。


(defun jpy-twd-now ()
  (interactive)
  (insert
   (format "\n%s  JPY/TWD (台湾銀行)  %s\n"
           (current-time-string)
           (replace-regexp-in-string
            "^\\(\\(.*\n\\)*\\).+?台灣銀行.+\n.+?>\\(.+?\\)<.+\n.+?>\\(.+?\\)<.+\n\\(\\(.*\n\\)*\\)$" 
            "売:\\3   買:\\4"
            (shell-command-to-string "lynx -source http://tw.money.yahoo.com/currency_foreign2bank/currency/JPY/sort/-buy")))))
(global-set-key "\C-c\C-y" 'jpy-twd-now)


↓こんなふうに表示してくれます。

Mon Apr 9 23:29:04 2012 JPY/TWD (台湾銀行) 売:0.36590 買:0.35520


正規表現でずいぶんハマってしまいました。
もっと高速で動かす方法があればご教授ください!
おねがいします。

0 件のコメント:

コメントを投稿