郵便番号自動変換

Question

CSVファイルに郵便番号とそれに対応する住所があるのですが
それを読み取るところまではわかるのですが、郵便番号が同じで住所が違うところがあります。
その場合どうやって回避しますか？
以下 現在書いているコード
Private Sub adressConversion()
Dim reader As StreamReader = Nothing
Try
reader = New StreamReader(Application.StartupPath() & "\KEN_ALL.CSV", Encoding.Default)
While (-1 < reader.Peek)
Dim buffer As String = reader.ReadLine
Dim arystr As String() = buffer.Split(",")
arystr(0) = String.Format("{0:0000000}", CType(arystr(0), Integer))
postmessagetable.Add(arystr(0), arystr(1))

		End While
	Catch ex As Exception
		Throw ex
	Finally
		If reader IsNot Nothing Then
			reader.Close()

		End If

	End Try

End Sub

Comments

[KoichiSugiyama]

質問の意図がちょっとわかりづらいです。「郵便番号が同じで住所が違うところがあります。 その場合どうやって回避しますか？ 」と書かれていますが、どうあるべきなのかわからない、ということでしょうか。
タイトルから郵便番号を入力すると、住所を表示するようなプログラムを作っていると思われますが、そのあたりも含めて、どういう目的のプログラムを作っているのかをもっと詳しく書いてください。

Answer 1

どのようなプログラムを作ろうとしているのか分からないのですが、(GUIであれば)複数候補がある場合はプルダウンで表示して「ユーザに選択してもらう」と言うのもありかと思います。

Answer 2

＞KEN_ALL.CSV
から、JPの郵便番号データの事だと思いますので、
JPのサイト
郵便番号データの説明
http://www.post.japanpost.jp/zipcode/dl/readme.html
を、よく読まれて、（※１～※７以外にも注意する部分があります。）
ネットサイト上にある、郵便番号データの例外処理を組込んでいたり、
例外を独自の方法で扱っているサイトなどを参照されると、良いかも？
’
私の場合は、
１．DB化してしまっています。（連番、データ年度、データ種別、、、、、
過去のデータ（平成の大合併で市区町村が大幅に変わったので）含めて検索可能にしてあります。
２．例外的なデータは、全体からみると多くは無いので、
個別に扱っています。（枝番：００００、大口なども含め）
３．完璧を求めないで、９割位自動で、ダメな処は、手動修正、手動入力OKで
ゆるーく作ってあります。