郵便番号のCSVデータを読み込み配列に格納して住所検索のソフトを作成してみた。
スプリクトは下記内容です。
マッチング時に使用できる。
Dim fso,data,data1(9999999),ki
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
' 読み込みファイルの指定
Dim inputFile
Set inputFile = fso.OpenTextFile("KEN_ALL.CSV", 1, False, 0)a = 0
Do Until inputFile.AtEndOfStream
a = a + 1
Dim lineStr
lineStr = inputFile.ReadLine
data = Split(lineStr,",") 'コンマ区切りのデータを配列に入れる
'Wscript.Echo data(2)
ki = CLng(Replace(data(2),"""","")) 'ダブルクォーテーションを削除して文字列を数値に変換する
data1(ki) = data(6) & data(7) & data(8) '郵便番号の配列に住所を入れる
Loop
data2 = InputBox("郵便番号7桁を入力して下さい")
Wscript.Echo data1(CLng(data2)) '配列より住所を取得する
' バッファを Flush してファイルを閉じる
inputFile.Close
