【ACCESS】クエリによる正規表現の基本的書き方
いつもお世話になっております。
ACCESSのクエリで、下記8パターンにマッチする文字列を
yyyyMMddの形で抽出する方法が判りません。
例でも構わないので、ご教示いただけないでしょうか。
(1)yyyyMMdd （数字は半角）
(2)yyyy年M月dd日 （数字は半角）
(3)ｙｙｙｙ年ＭＭ月ｄｄ日 （数字は全角）
(4)ｙｙｙｙ年Ｍ月ｄｄ日 （数字は全角）
(5)yyyy年MM月dd日 （数字は半角）
(6)yyyy年M月dd （数字は半角）
(7)ｙｙｙｙ／ＭＭ／ｄｄ （数字は全角）
(8)yyyy/MM/dd （数字は半角）
※12月32日等の日付不正は対象外
数字の全・半角は区別しなくても抽出可能と考えています。
ただ、そもそも、正規表現の基本的な書き方が判らず。。
グループ化させるための括弧「()」や、論理和の「|」を使うと
抽出できませんでした。
accessでは利用不可なのでしょうか。。
一応、私の作成したクエリを掲載致します。
テーブルaからdate列を抽出します。上記8パターンにマッチする場合は、yyyyMMdd形式で、いずれにもマッチしなければ空白を返させたいと思います。
SELECT IIf (a.date Like '[1-9][0-9][0-9][0-9](0[1-9]|1[012])(0[1-9]|[12][0-9]|3[01])', a.date,
IIf (a.date Like '[1-9][0-9][0-9][0-9]年[1-9]月(0[1-9]|[12][0-9]|3[01])日', Format(CDate(Format(Replace(Replace(Replace(a.date, '年', ''), '月', ''), '日', ''), "@@@@/@@/@@")), "yyyymmdd"),
IIf (a.date Like '[１-９][０-９][０-９][０-９]年(０[１-９]|１[０１２])月(０[１-９]|[１２][０-９]|３[０１])日', Format(CDate(Format(Replace(Replace(Replace(a.date, '年', ''), '月', ''), '日', ''), "@@@@/@@/@@")), "yyyymmdd"),
IIf (a.date Like '[１-９][０-９][０-９][０-９]年[１-９]月(０[１-９]|[１２][０-９]|３[０１])日', Format(CDate(Format(Replace(Replace(Replace(a.date, '年', ''), '月', ''), '日', ''), "@@@@/@@/@@")), "yyyymmdd"),
IIf (a.date Like '[1-9][0-9][0-9][0-9]年(0[1-9]|1[012])月(0[1-9]|[12][0-9]|3[01])日', Format(CDate(Format(Replace(Replace(Replace(a.date, '年', ''), '月', ''), '日', ''), "@@@@/@@/@@")), "yyyymmdd"),
IIf (a.date Like '[1-9][0-9][0-9][0-9]年[1-9]月(0[1-9]|[12][0-9]|3[01])', Format(CDate(Format(Replace(Replace(a.date, '年', ''), '月', ''), "@@@@/@@/@@")), "yyyymmdd"),
IIf (a.date Like '[１-９][０-９][０-９][０-９]／(０[１-９]|１[０１２])／(０[１-９]|[１２][０-９]|３[０１])', Format(CDate(Format(Replace(Replace(a.date, '／', ''), '／', ''), "@@@@/@@/@@")), "yyyymmdd"),
IIf (a.date Like '[1-9][0-9][0-9][0-9]/(0[1-9]|1[012])/(0[1-9]|[12][0-9]|3[01])', Format(CDate(Format(Replace(Replace(a.date, '/', ''), '/', ''), "@@@@/@@/@@")), "yyyymmdd"),
''
)
)
)
)
)
)
)
)
FROM a
以上、何卒よろしくお願いいたします。
補足
回答ありがとうございます。 /が必要という事は、値が"20100601"の場合 "20100601".Substring(0, 4) & "/" & "20100601".Substring(4, 2) & "/" & "20100601".Substring(6, 2) とする方法で確認できました。 冗長気味なコードは避けましょうと聞くのですが 質問のケースの場合は、この方法がベストでしょうか？