加茂屋株式会社 - ソフトウェアー - Tips


郵便番号バーコードに必要なデータを住所より抜き出します。

漢数字を数字に置き換えます。


ダウンロード ClassJPostalConv.vb (右クリックで、対象をファイルに保存を選んでください。)

 

Function PostalConv(ByVal addressB As String) As String

郵便番号バーコードに必要なデータを住所より抜き出します。

まず、住所を町域名までの住所Aと町域名以降の住所Bに分割します。

住所Aについては、郵便番号表より対応する郵便番号を求めます。

住所Bより、必要なデータを抜き出そうとするのが、本Functionの目的です。

住所Aより求めた郵便番号に本Functionより求められたデータを連結することにより、バーコードに必要な文字情報となります。

日本郵便の http://www.post.japanpost.jp/zipcode/zipmanual/p19.html に手順が記載されています。

要約すると、まず、スラッシュ"/",ピリオド".",中グロ"・",アンパサンドを取り除きます。

残りのデータより、数字、連続していないアルファベットをハイフンで区切って表現します。

但し、アルファベットは、必ず1文字であるためハイフン区切りは省略します。

漢数字が、"丁目","丁","番地","番","号","地割","線","の","ノ"の前にある場合は、数字とします。

アルファベットが、'F'であり数字に続く場合は、アルファベットとして扱いません。"階"と解釈できる為と思われます。

"東3丁目20-5 郵便東三丁目ビル604号"などは"3-20-5-3-604"とデータを返しますが、マニュアルどおりなので、OKとします。

作成されたコードの合計けた数が20けたを超えた場合、以降の文字については切り捨てることになっていますが、制御文字の関係もありこの関数では、行っておりません。

バーコードシンボル作成クラス KsBarCode.dllでは、切り捨ての処理を行います。

本関数は、動作を保証するものではありません。

 

Function KansuujiToNumber(ByVal kansuuji As String) As Decimal

上記のPostalConvにて、漢数字を数字に置き換える必要があったので、作りました。

1230456を変換しますと"壱弐参〇四五六","123万456","壱百弐拾参萬四百五拾六"などと候補が出ますのでそのような表現にも対応しました。

その結果、"壱千弐百参拾四億一二三四万1234"は、変換できる結果となってしまいました。

本関数は、動作を保証するものではありません。

改変、使用は、自由です。Copyright Seizaemon 2012

Tipsへ


お問い合わせは、こちら

加茂屋株式会社 (C) Kamoya Corporation