| お品書き |
|
| Amazon |
|
|
vbs郵便番号データの変換ツール何故か半角カナが使われている郵便番号データ。データとして半角カタカナは不便なので全角カタカナに変換するツールを作りました。 手元で手軽に使える環境がVBScriptの環境しかなかったので、vbsで作成しています。 とりあえず使える物を作ったので、かなりしょぼいです。 （処理速度等を全然考慮していませんが、Pen4 2Ghzで一分くらいです） 本当は、perlかjavaか何かで正規表現を使って処理した方が良いのですがね。 あと、エンコードの指定とか。時間があれば、vbsで半角全角カタカナ変換関数考えて見ます。 strconvだと、英数字まで全角に変換してしまったはず。 ダウンロードはこちら。inFilePathとoutFilePathを適当に変えて使ってください。 ついでに、郵便データをインポートする為にテーブル定義のDDLを作ってみました。 主キー等が必要な場合、適当にユニークIDを作ってください。
postal=convert.vbs
Option Explicit
Dim fso
Dim inFilePath
Dim outFilePath
Dim inFile
Dim outFile
Dim line_str
inFilePath = "\temp\postal.csv"
outFilePath = "\temp\postal2.csv"
Set fso = CreateObject("Scripting.FileSystemObject")
Set inFile = fso.OpenTextFile(inFilePath)
Set outFile = fso.CreateTextFile(outFilePath)
Do Until inFile.AtEndOfStream
line_str = inFile.ReadLine
line_str = Han2Zen(line_str)
outFile.write line_str & vbCrLF
Loop
inFile.close
outFile.close
Set inFile = nothing
Set outFile = nothing
Set fso = nothing
Function Han2Zen(str)
str = replace(str,"ｶﾞ","ガ")
str = replace(str,"ｷﾞ","ギ")
str = replace(str,"ｸﾞ","グ")
str = replace(str,"ｹﾞ","ゲ")
str = replace(str,"ｺﾞ","ゴ")
str = replace(str,"ｻﾞ","ザ")
str = replace(str,"ｼﾞ","ジ")
str = replace(str,"ｽﾞ","ズ")
str = replace(str,"ｾﾞ","ゼ")
str = replace(str,"ｿﾞ","ゾ")
str = replace(str,"ﾀﾞ","ダ")
str = replace(str,"ﾁﾞ","ヂ")
str = replace(str,"ﾂﾞ","ヅ")
str = replace(str,"ﾃﾞ","デ")
str = replace(str,"ﾄﾞ","ド")
str = replace(str,"ﾊﾞ","バ")
str = replace(str,"ﾋﾞ","ビ")
str = replace(str,"ﾌﾞ","ブ")
str = replace(str,"ﾍﾞ","ベ")
str = replace(str,"ﾎﾞ","ボ")
str = replace(str,"ﾊﾟ","パ")
str = replace(str,"ﾋﾟ","ピ")
str = replace(str,"ﾌﾟ","プ")
str = replace(str,"ﾍﾟ","ペ")
str = replace(str,"ﾎﾟ","ポ")
str = replace(str,"ｱ","ア")
str = replace(str,"ｲ","イ")
str = replace(str,"ｳ","ウ")
str = replace(str,"ｴ","エ")
str = replace(str,"ｵ","オ")
str = replace(str,"ｶ","カ")
str = replace(str,"ｷ","キ")
str = replace(str,"ｸ","ク")
str = replace(str,"ｹ","ケ")
str = replace(str,"ｺ","コ")
str = replace(str,"ｻ","サ")
str = replace(str,"ｼ","シ")
str = replace(str,"ｽ","ス")
str = replace(str,"ｾ","セ")
str = replace(str,"ｿ","ソ")
str = replace(str,"ﾀ","タ")
str = replace(str,"ﾁ","チ")
str = replace(str,"ﾂ","ツ")
str = replace(str,"ﾃ","テ")
str = replace(str,"ﾄ","ト")
str = replace(str,"ﾅ","ナ")
str = replace(str,"ﾆ","ニ")
str = replace(str,"ﾇ","ヌ")
str = replace(str,"ﾈ","ネ")
str = replace(str,"ﾉ","ノ")
str = replace(str,"ﾊ","ハ")
str = replace(str,"ﾋ","ヒ")
str = replace(str,"ﾌ","フ")
str = replace(str,"ﾍ","ヘ")
str = replace(str,"ﾎ","ホ")
str = replace(str,"ﾏ","マ")
str = replace(str,"ﾐ","ミ")
str = replace(str,"ﾑ","ム")
str = replace(str,"ﾒ","メ")
str = replace(str,"ﾓ","モ")
str = replace(str,"ﾔ","ヤ")
str = replace(str,"ﾕ","ユ")
str = replace(str,"ﾖ","ヨ")
str = replace(str,"ﾗ","ラ")
str = replace(str,"ﾘ","リ")
str = replace(str,"ﾙ","ル")
str = replace(str,"ﾚ","レ")
str = replace(str,"ﾛ","ロ")
str = replace(str,"ﾜ","ワ")
str = replace(str,"ｦ","ヲ")
str = replace(str,"ﾝ","ン")
str = replace(str,"ｧ","ァ")
str = replace(str,"ｨ","ｨ")
str = replace(str,"ｩ","ゥ")
str = replace(str,"ｪ","ェ")
str = replace(str,"ｫ","ォ")
str = replace(str,"ヵ","ヵ")
str = replace(str,"ヶ","ヶ")
str = replace(str,"ｯ","ッ")
str = replace(str,"ｬ","ャ")
str = replace(str,"ｭ","ュ")
str = replace(str,"ｮ","ョ")
Han2Zen = str
End Function
【参考にしたサイト】
ゆうびんホームページ 郵便番号等のダウンロード
|
||
| Copyright © 2005 開発者のつぼ | ||
