yay********

2008/5/22 18:07

33回答

ACCESS 2003で、正規表現を使用した置換はできますか？

ACCESS 2003で、正規表現を使用した置換はできますか？ ACCESS 2003で、正規表現を使用した置換はできますか？ 具体的には文末にピリオド(.)が入っているのを一括で削除したいのです。 例えば、 a.b.c.d.e. aa.bb.cc.dd.ee. を a.b.c.d.e aa.bb.cc.dd.ee にしたいです。 クエリなどには詳しくない初心者です。 よろしくお願い致します。

Microsoft Access・10,705閲覧・xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

このベストアンサーは投票で選ばれました

0

ata********

2008/5/23 0:30

やり方は2つある。 [ツール]-[参照設定]で "Microsoft VBScript Regular Expressions" を有効にして Set objExp = new RegExp などで宣言してから Webと同じように pattern オブジェクトに正規表現パターンを設定してから処理する方法。 もう一つは、Set objEx = CreateObject("VBScript.RegExp") などで宣言してから処理する方法。 基本は Webと同じです。

その他の回答（2件）

0

dan********

2008/5/23 14:06

”クエリなどには詳しくない・・・・” とありますが、あえてクエリ（更新クエリ）を使う方法で。 ・二つの関数を使用します。 ① Ｍｉｄ関数【例：Mid([ABC],1,4)】 ・・・・文字列からいくつかの文字列を抜き出します。ＡＢＣフィールドの１桁目から４桁まで抜き出します。質問のデータ例ですと、 a.b.c.d.e. は a.b. となり aa.bb.cc.dd.ee. は aa.b となります。 ② InStrRev関数【例：InStrRev（[ABC],"."】 ・・・・文字列の後方から指定された文字（例では""で囲んだ.(ﾋﾟﾘｵﾄﾞ））の桁位置を返します。質問のデータ例ですと、a.b.c.d.e. は 10 となり aa.bb.cc.dd.ee. は 15 となります。 必ず最後が.(ﾋﾟﾘｵﾄﾞ）で全てのデータにある場合はこの二つを組み合わせて使用できます。質問のﾃﾞｰﾀが入っているフィールド名を仮にABCとします。 Mid([ABC],1,InStrRev（[ABC],".")-1) これでABCフィールドの１桁目から、後方の.(ﾋﾟﾘｵﾄﾞ）のある１桁前（－１）までを抜き出します。 （必ず最後が.(ﾋﾟﾘｵﾄﾞ）でない場合は使えません（a.b.cの場合bc間のピリオドより前が抜き出されます）。ピリオドがないデータがある場合エラーになります。この場合はクエリをちょっと工夫しなければなりません。） あとはこの式を更新クエリに使用するだけです。作成方法は以下のページを参考にして下さい。詳しく説明されています。 アクションクエリ－更新クエリの作成： http://www.mahoutsukaino.com/ac/ac2000/ac2000/actionq/action04.htm

2

nora1962jp

カテゴリマスター

2008/5/23 11:39

VBAでユーザー関数を作ります。 Public Function regexp_replace(source, pattern, dest) Dim Reg As Object Set Reg = CreateObject("VBScript.RegExp") Reg.pattern = pattern Reg.IgnoreCase = False Reg.Global = True regexp_replace = Reg.Replace(source, dest) End Function あとはクエリでregexp_replace(TEST1.name,"\.$","")でいけるはずです。

2人がナイス！しています