対応表テーブルを参照して特定の文字列を置換したい

Question

SQL、VBA初心者です。
AccessもしくはExcelで解決したいと思っています（行数が多いのでできればAccessで）。

住所フィールドの表記が
北海道札幌市中央区北１１条西１－１
といったケースで、「１１条」を「十一条」のように漢数字に置換しつつ
他の半角/全角英数は維持したい、という状況で頭を悩ませています。
（全角英数は半角に修正予定です）

とりあえず考えたのが、

英数字　漢数字
１０条　十条
１１条　十一条
１２条　十二条
～

といった対応表テーブルを手作業で作成し、VLOOKUPのような手法で
該当の文字列のみ置換する、という方法ですが、具体的なやり方がわかりません。
どうかよろしくお願いします。

Answer 1

Accessのクエリでする場合

テーブル名　TReplace

英数字	漢数字
１０条	十条
１１条	十一条
１２条	十二条

テーブル名 TData

住所
北海道札幌市中央区北１１条西１－１

クエリのSQLビューに下記のSQLを記述

UPDATE
 (SELECT TData.住所, TReplace.英数字, TReplace.漢数字
  FROM TData, TReplace
  WHERE TData.住所Like "*" & TReplace.英数字 & "*"
  ORDER BY Len(TReplace.英数字) DESC) Q
SET Q.住所 = Replace([Q].[住所],[Q].[英数字],[Q].[漢数字]);

動作原理などの詳細は下記を参考に。

複数の文字列置換をクエリで一気に実行する-改良版 - hatena chips

別案

下記で紹介している関数を使います。
数値←→漢数字変換関数 - hatena chips

文字列中に含まれる数値を漢数字に変換する関数 - hatena chips

事前に上記の Num2Kanji と CnvKanjiNum を標準モジュールにコピーしておく。

クエリのSQLビューに下記のSQLを記述

UPDATE TData 
SET TData.重症 = CnvKanjiNum(TData.住所)
WHERE TData.住所 Like "*[0-9]*";

Comments

[3chomenanigashi]

できました！ありがとうございます。
応用が効きそうなので教えていただいた参考と別案も勉強させていただきます。