【初月無料キャンペーン中】gooドクター

アクセスで教えてください
住所を抜き出したいのですが、
区があれば区より前、
郡のときは町より前、
市だけのときは市より前を
抜き出すことはできますか?

gooドクター

A 回答 (3件)

No2さんのいうとおりですね。


考え足らずでした。
個別対応は、気が遠くなる作業かもしれません。

こういうところで、自治体リストをダウンロードして加工していくほうが楽かもしれません。

https://www.j-lis.go.jp/spd/code-address/hokkaid …
    • good
    • 0

出来ますが既回答の様に一筋縄では行きません。



市川市、町田市、村田町、郡山市何々町など判別不能が山ほど出てきます。
    • good
    • 0

instr 関数


split 関数
を使って、新たな関数を作ればできます。

function frontpart(strAddress) as string
dim fp as variant
frontpart=strAddress
if instr(strAddress,"区")<>0 then
fp = split(straddress,"区”)
frontpart = fp(0)
end if
if instr(strAddress,"群")<>0 then
fp = split(straddress,"町”)
frontpart = fp(0)
end if
if instr(strAddress,"市")<>0 then
fp = split(straddress,"市”)
frontpart = fp(0)
end if
end function

のような感じだと思います。
動作環境持っていないので、動作確認及び、デバッグ等できませんが、、、

クエリとかからも呼び出して使うことができます。
速度に問題があるなら、可能性が高い順に並べ入れ子でelse ifとかにするとか、都度exit function しちゃうとかもありです。

例外として、東京都八丈町とかもありますが、、、まあ、必要に応じて追加してください。
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング