白井です。 とりあえず、(個人的には満足した)郵便番号変換ツールが出来ました。 大泉さんの gendic_zip.rb には多謝です。
gendic_zip.rb と比べて変わった点は、 ・Emacs Lisp で書いたので、(ぼくにとっては)改造が容易で、辞書が 新しくなったときに、もし必要であっても、例外処理の追加はそれな りに簡単だと思う。 ・（）内部の展開に可能な限り対応 ==> 固有の地名と思われるものはすべて展開 ==> 何丁目[(1,2丁目) (1〜5丁目) etc]の展開もサポート ・事業所データベース対応 ==> 株式会社→(株) のような短縮名対応 ==> 但し、事業所の名称部分のフリーフォーマット具合はすさまじい のでミスもありそう。 といった感じです。有用だと思われたら使ってください。 コード自体は、結局、例外処理の対応をスパゲティ的に付け加えていっ たので、(汎用性はそれなりに維持しているとは思いますが)とても汚い コードになっています。 elisp と こんな感じで OK という shell script を付けておきます。 今回は Anthy (ついでに SDIC) だけですが、フォーマットがわかれば 他の形式にするのもそんなに難しく無いかな？ -- 白井秀行 (mailto:shi...@meadowy.org)
zipcode-make.el.gz
Description: Binary data
#!/bin/sh
EMACS=emacs; export EMACS
# EMACS=Meadow; export EMACS
if [ ! -f ken_all.lzh ]; then
wget http://www.post.japanpost.jp/zipcode/dl/kogaki/lzh/ken_all.lzh
fi
if [ ! -f ken_all.csv ]; then
lha ptq ken_all.lzh > ken_all.csv
fi
if [ ! -f jigyosyo.lzh ]; then
wget http://www.post.japanpost.jp/zipcode/dl/jigyosyo/lzh/jigyosyo.lzh
fi
if [ ! -f jigyosyo.csv ]; then
lha ptq jigyosyo.lzh > jigyosyo.csv
fi
$EMACS -batch -q -no-site-file -l ./zipcode-make.el -f zipcode-make
P.S.
gendic_zip.rb ですが、もう一点バグを見つけました。手元に ruby
1.9 が無いので動作確認はしてないのですが、
ken_all.each{|item|
if item[1] =~ /[０-９Ａ-Ｚ（）─]/
hankaku << [item[0], item[1].tr("０-９Ａ-Ｚ（）─", "0-9A-Z()-")]
end
}
=>
ken_all.each{|item|
if item[1] =~ /[０-９Ａ-Ｚａ-ｚ（）─]/
hankaku << [item[0], item[1].tr("０-９Ａ-Ｚａ-ｚ（）─", "0-9A-Za-z()-")]
end
}
だと思われます。
_______________________________________________ Anthy-dev mailing list Anthy-dev@lists.sourceforge.jp http://lists.sourceforge.jp/mailman/listinfo/anthy-dev
